Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];




Вниз

Как в листбоксе каждую страку зделать своим цветом 


Diablo   (2002-01-31 17:38) [0]

Как в листбоксе каждую страку зделать своим цветом и своим фоном, причем цвет и фон будут зависить от текста.



kronprince   (2002-01-31 20:06) [1]

См. OnDrawItem

ListBox1.Style:=lbOwnerDrawFixed;


procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
case Index of
1:ListBox1.Canvas.Brush.Color:=clRed;
2:ListBox1.Canvas.Brush.Color:=clGreen;
3:ListBox1.Canvas.Brush.Color:=clBlue;
end;
ListBox1.Canvas.FillRect(Rect);
end;


Посмотри также как сделан TColorComboBox из RXControls.



SCat   (2002-02-01 10:22) [2]

и ещё добавить

ListBox1.Canvas.TextOut(Rect.Left, Rect.Top, ListBox1.Items [Index]);

а то итемов видно не будет




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.02 c
4-42899           Вовка                 2001-12-16 21:37  2002.02.14  
WinAPI


1-42762           _SnAke_               2002-01-31 11:57  2002.02.14  
Отображение главной формы


1-42807           Potemkin              2002-01-31 14:42  2002.02.14  
FastReport


1-42756           DmitryB               2002-01-31 00:20  2002.02.14  
Как заполнилть таблицу?


14-42861          fliz                  2001-12-26 17:36  2002.02.14  
Есть ли какие-то ключи(настройки),предписвыающие Дельфи6 компилить под Вин2000 ?