Скачать: CL | DM;

Фон в 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 и в нем заливать фон.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.005 c