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

Вниз

Украшение 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.034 c
1-10783
Vorobyev Sergey
2003-08-21 08:33
2003.09.04
Как сохранить совместимость при передаче указат. на объект в DLL?


1-10673
DVP1
2003-08-21 10:25
2003.09.04
Как в Delphi7 SQL-запросе сделать условие с использованием функци


3-10550
AlexRush
2003-08-11 18:30
2003.09.04
DBF - кодировка DOS -> Win


1-10734
Юлия
2003-08-25 09:36
2003.09.04
Почему выполняются не все команды?


3-10652
User_OKA
2003-08-12 12:56
2003.09.04
Fib +