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

Вниз

цвет строки в ListBox   Найти похожие ветки 

 
Mistic ©   (2003-12-09 14:36) [0]

Как изменить цвет определенной строки у ListBox?


 
sokohigh   (2003-12-09 14:56) [1]

Пример для CheckListBox-а (подойдет и для ListBox):

CheckListBox1.Style := lbOwnerDrawFixed

procedure TfmSetSelector.CheckListBox1DrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
with TCheckListBox(Control).Canvas do begin
if not (odSelected in State) then begin
if (какое-нибудь условие) then
Brush.Color := ЦветВыделенияНевыбраннойСтроки
;
end else begin
if (то же условие) then
Brush.Color := ЦветВыделенияВыбраннойСтроки
;
end
;
FillRect(Rect);
with TCheckListBox(Control) do
TextOut(Rect.Left, Rect.Top, Items[Index])
;
end
;
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.024 c
7-62299
DeadMeat
2003-10-11 21:08
2003.12.19
RegisterShellHook


1-62036
VaS
2003-12-06 11:11
2003.12.19
Утечка, которая не была утечкой


3-61903
gestern
2003-11-27 14:50
2003.12.19
TIBDataSet


1-62028
Djek
2003-12-06 11:47
2003.12.19
Ошибка при открытии формы


3-61931
Не знающий
2003-11-26 14:04
2003.12.19
ProgressBar