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

Вниз

Как сделать в Listbox первую строку определенным цветом?   Найти похожие ветки 

 
Феликс ©   (2002-04-28 16:59) [0]

Я уже спрашивал, и уважаемый Алмаз мне сказали, что надо использовать ListBox1DrawItem. Но чего то у меня не получилось, поэтому может кто подскажет как решить мою проблему указав при этом исходник.

Заранее благодарен.


 
Atrem   (2002-04-28 18:54) [1]

Все очень просто.
На событии OnDrawItem рисуем на канве литбокса
Вот небольшой примерчик :

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
if index=0 then with ListBox1.Canvas do
begin
Brush.Color:=clRed;
FillRect(Rect);
Font.Color:=clYellow;
TextOut(rect.Left,rect.Top,ListBox1.Items[index]);
end
else with ListBox1.Canvas do
begin
Brush.Color:=clWhite;
FillRect(Rect);
Font.Color:=clBlack;
TextOut(rect.Left,rect.Top,ListBox1.Items[index]);
end ;

З.Ы. Не забудте стиль листбокса поставить LbOwenerDrawFixed

Удачи!


 
Феликс ©   (2002-04-29 18:32) [2]

Спасибо!



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

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

Наверх




Память: 0.47 MB
Время: 0.014 c
3-49823
Awex
2002-04-18 13:44
2002.05.16
Получение списка юзеров IB Server a


4-50180
chernoruk
2002-03-16 22:20
2002.05.16
Вопрос: Get Process ID (path to a file.exe) ????????????


3-49861
Борис
2002-04-17 12:14
2002.05.16
Почему этот код ну очень медленно выполняется?


6-50071
scam
2002-03-05 01:45
2002.05.16
Написание plugin ов для Internet Explorer.


3-49879
Tolick
2002-04-19 13:41
2002.05.16
Конвертировать словарь DCT в DDF