Форум: "Основная";
Текущий архив: 2003.09.04;
Скачать: [xml.tar.bz2];
ВнизУкрашение ListBox a Найти похожие ветки
← →
Молодой Человек (2003-08-23 20:26) [0]Хочется немного приукрасить ListBox.. Цвет фона менять можно, а как поменять цвет выделения пункта с темно синего на какой нибудь другой?
← →
Calm (2003-08-23 21:43) [1]ListBox1.Style:=lbOwnerDrawFixed;
или даже
ListBox1.Style:=lbOwnerDrawVariable;
+
событие OnDrawItem.
Можешь украшать, пока не надоест :)
← →
Yanis (2003-08-24 08:58) [2]To [1]
Так каждый написать может
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;
Hе забудь установить свойство Style у твоего ListBox в lbOwnerDrawFixed или в
lbOwnerDrawVariable.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.09.04;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.15 c