Текущий архив: 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.013 c
