Фоновая картинка в листбоксе и отрисовка

[NEoMASTERR]

Здравствуйте, рисую в листбоксе (style = lbOwnerDrawFixed) картинку в фоне, под итемами, в итемах есть картинки и текст (аватарки и ник) но при нажатии на 0 итем остальные не прорисовываются, если убрать if index=0 то прорисовываться будет лишь тот итем на который кликнули, подскажите как прорисовывать все итемы и фоновую картинку сразу? (плюс залить строчку зеленым полупрозрачным желательно)

procedure TForm3.lst1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  i:integer;
  j:integer;
  jpg:TJPEGImage;
  me:TMemoryStream;
begin
  if index=0 then
  begin
    bitBlt(lst1.Canvas.Handle,0,0,lst1.Width,lst1.Height,fon.Canvas.Handle,0,0,SRCCOPY);         // Грузим фон
  end;

  if not MyCl[Index].avatar^.recv then
  begin
    client.RequestAvatar(mycl[Index].id);                          // нет аватарки - запрос
  end;

  jpg:=nil;
  if mycl[index].avatar_mini<>nil then                            // Если есть аватарка - грузим
  begin
    me:=TMemoryStream.Create;
    me.Write(mycl[index].avatar_mini^.pict,mycl[index].avatar_mini^.pict_size);
    me.Seek(0,soFromBeginning);

    jpg:=TJPEGImage.Create;
    jpg.LoadFromStream(me);

    me.free;
  end;

  if MyCl[Index].online=1 then
  begin
    if Index mod 2 = 0
    then lst1.canvas.Brush.Color := RGB(0, 150, 0)                  // онлайн - зеленый/темно зеленый (пока не заливаем)
    else lst1.canvas.Brush.Color := RGB(0, 130, 0);
    //lst1.canvas.textout(rect.left+il1.width+5,rect.top+16,'В сети');
  end
  else
  begin 
    if Index mod 2 = 0                 // оффлайн - серый
    then lst1.canvas.Brush.Color := clGray
    else lst1.canvas.Brush.Color := clDkGray;
  end;

  lst1.Canvas.Brush.Style:=bsclear;          // делаем итем прозрачным
  lst1.canvas.fillrect(rect);

  if jpg<>nil then
  begin
    lst1.Canvas.Draw(Rect.Left,rect.Top,jpg);          // лепим аватарку
    //il1.Draw(lst1.Canvas,Rect.Left,rect.Top,index);
    jpg.free;
  end;

  //lst1.Canvas.Brush.Color:=clWindowText;
  lst1.canvas.textout(rect.left+55,rect.top+2,lst1.items[index]);   // выводим текст
end;

[Аватар]

Заливку фоновой картинки скорее всего отлавливая WM_ERASEBKGND. В любом случае не в OnDrawItem

[NEoMASTERR]

Сообщение от Аватар

Заливку фоновой картинки скорее всего отлавливая WM_ERASEBKGND. В любом случае не в OnDrawItem

большое Спасибо

Теперь попутный вопрос, выделенный итем чтобы был заполнен каким либо цветом (полупрозрачным), как?

[min@y™]

Не забывайте говорить спасибо)

спасибо, чо...

по проблеме: в хэлпах есть экзэмпл. Сам найдёшь или мне его сюда вывалить?