Фон в listbox

← →
dplz © (2009-12-05 18:49) [0]

Всем добрый вечер. Пытался сделать фон в listbox, получается, но видно только выделенную строку:
procedure TForm.ListBoxDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
BitMap: TBitMap;
begin
BitMap := TBitMap.Create;
BitMap.LoadFromFile(Path);
(Control as TListBox).Canvas.Draw(0, 0, BitMap);
(Control as TListBox).Canvas.TextOut(Rect.Left + 1, Rect.Top + 1,
(Control as TListBox).Items.Strings[Index]);
end;
Подскажите как сделать чтобы было видно все строки?

← →
DVM © (2009-12-05 19:13) [1]

> Подскажите как сделать чтобы было видно все строки?

Сделать свой обработчик сообщения WM_ERASEBKGND для listbox и в нем заливать фон.

Фон в listbox Найти похожие ветки