Форум: "Основная";
Текущий архив: 2002.05.16;
Скачать: [xml.tar.bz2];
ВнизКак сделать в 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c