Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.09.03;
Скачать: CL | DM;

Вниз

Как в ListBox программно поменять цвет выделенной строчки?   Найти похожие ветки 

 
Zilog ©   (2006-08-15 15:33) [0]

Как в ListBox программно поменять цвет выделенной строчки?


 
Джо ©   (2006-08-15 15:34) [1]

> Zilog ©   (15.08.06 15:33)
> Как в ListBox программно поменять цвет выделенной строчки?

Использовать OwnerDraw := True и в событии OnDraw самому отрисовывать на канве.


 
Джо ©   (2006-08-15 15:36) [2]

> OnDraw

OnDrawItem, пардон.


 
Джо ©   (2006-08-15 15:37) [3]

В таком роде:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
 Rect: TRect; State: TOwnerDrawState);
begin
 with TListBox(Control).Canvas do
 begin
   if odSelected in State then
   begin
     Brush.Color := clActiveCaption;
     Font.Color := clHighlightText;
   end
   else
   begin
     Brush.Color := clWindow;
     Font.Color := clWindowText;
   end;
   ListBox1.Canvas. FillRect (Rect);

   TextOut(Rect.Left,Rect.Top,TListBox(Control).Items[Index]);
 end;
end;


 
Zilog ©   (2006-08-15 15:56) [4]

пробовал и так - дело в том, что у меня ListBox1DrawItem не вызывается... ?


 
Джо ©   (2006-08-15 15:59) [5]

> [4] Zilog ©   (15.08.06 15:56)
> пробовал и так - дело в том, что у меня ListBox1DrawItem
> не вызывается... ?

Читать [1] внимательно.


 
Zilog ©   (2006-08-15 16:16) [6]

OwnerDraw - нет там такого


 
Джо ©   (2006-08-15 16:18) [7]

> [6] Zilog ©   (15.08.06 16:16)
> OwnerDraw - нет там такого

Зато есть Style := lbOwnerDrawFixed :) Сорри, это я по-памяти с TListView перепутал.


 
clickmaker ©   (2006-08-15 17:25) [8]


> Zilog ©   (15.08.06 16:16) [6]

а самому по списку свойств пошариться? Это ж даже со стула вставать не надо...



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

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

Наверх




Память: 0.48 MB
Время: 0.043 c
2-1152649663
ANTPro
2006-07-12 00:27
2006.09.03
ShellExecute


6-1144008177
Vovanchik
2006-04-03 00:02
2006.09.03
TWebBrowser - прокрутка


15-1154694675
ПЛОВ
2006-08-04 16:31
2006.09.03
Описание сервиса


1-1153397148
dracula
2006-07-20 16:05
2006.09.03
Как узнать - занят файл другим процессом или нет?


15-1155063322
Ketmar
2006-08-08 22:55
2006.09.03
delphi2006 -- чего нового по сравнению с d7.