Фон в listbox
dplz © (2009-12-05 18:49:00)
Всем добрый вечер. Пытался сделать фон в 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:00) [1]
> Подскажите как сделать чтобы было видно все строки?
Сделать свой обработчик сообщения WM_ERASEBKGND для listbox и
в нем заливать фон.
Наверх 
ЧАТ |
Орешник |
|
