|
Как элемент списка нарисовать своим цветомDelphi , Компоненты и Классы , Списки
Как элемент списка нарисовать своим цветом
Hе забудь установить свойство Style у твоего ListBox в lbOwnerDrawFixed или в lbOwnerDrawVariable.
procedure TForm1.ListBox1DrawItem(Control: TWinControl; index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with ListBox1 do
begin
if odSelected in State then
Canvas.Brush.Color:=clTeal { твой цвет }
else
Canvas.Brush.Color:=clWindow;
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left+2,Rect.Top,Items[index]);
end;
end;
|
Статья Как элемент списка нарисовать своим цветом раздела Компоненты и Классы Списки может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
:: Главная :: Списки ::
|
|
