Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.01.24;
Скачать: 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 вся ветка

Текущий архив: 2010.01.24;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.012 c
2-1259750612
Matveih1
2009-12-02 13:43
2010.01.24
Как передать соединение BDE в другой модуль.


11-1210657161
MM_ASH
2008-05-13 09:39
2010.01.24
VMT


2-1260087982
Washington
2009-12-06 11:26
2010.01.24
AlphaControls, кастомизация скинов


2-1259727444
Danco
2009-12-02 07:17
2010.01.24
Перевод символа в другой формат


15-1258876108
Григорьев Антон
2009-11-22 10:48
2010.01.24
Delphi научился делить на 0