TListBox и Canvas

[northener]

Сообщение от NEoMASTERR

Неужели никто не сталкивался?

ListBox1.Style = lbOwnerDrawFixed

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
   with ListBox1.Canvas do begin
     if odSelected in State then
       Brush.Color:=clBlue
     else Brush.Color:=ListBox1.Color;
     FillRect(Rect);
     TextOut(Rect.Left + 2, Rect.Top, ListBox1.Items[Index]);
   end;
end;

[NEoMASTERR]

Сообщение от northener

ListBox1.Style = lbOwnerDrawFixed

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
   with ListBox1.Canvas do begin
     if odSelected in State then
       Brush.Color:=clBlue
     else Brush.Color:=ListBox1.Color;
     FillRect(Rect);
     TextOut(Rect.Left + 2, Rect.Top, ListBox1.Items[Index]);
   end;
end;

Да сколько можно? Сказано же (да и на скрине видно) на фоне листбокса лежит картинка!

[northener]

Сообщение от NEoMASTERR

Да сколько можно? Сказано же (да и на скрине видно) на фоне листбокса лежит картинка!

Ну и? При чём тут какая-то картинка, которая на ком-то (чём-то) лежит?
Сколько можно? Столько сколько нужно тебе, чтобы либо правильно задать вопрос, либо понять ответы.