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

Вниз

listbox выводить текст разным цветом   Найти похожие ветки 

 
redlord   (2006-10-01 14:20) [0]

всем привет
извените что поднимаю ету тему в сотый раз.
подскажите как в listbox выводить текст разным цветом для определенного итема?

P.S. ссылки на старые обсуждения этой темы приветствуются


 
Джо ©   (2006-10-01 14:24) [1]

ListBox1.Style := lsOwnerDrawFixed;
Обработчик события OnDrawItem:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
 Rect: TRect; State: TOwnerDrawState);
begin
 with TListBox(Control).Canvas do
 begin
   // Тут, в зависимости от своих условий,
   // можешь задать цвет для
   // шрифта — Font.Color
   // или рамки выделения — Brush.Color
   if odSelected in State then
   begin
     Brush.Color := clActiveCaption;
     Font.Color := clHighlightText;
   end
   else
   begin
     Brush.Color := clWindow;
     Font.Color := clWindowText;
   end;
   ListBox1.Canvas. FillRect (Rect);

   TextOut(Rect.Left,Rect.Top,TListBox(Control).Items[Index]);

 end;
end;



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

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

Наверх




Память: 0.44 MB
Время: 0.059 c
3-1155984409
Lexx_
2006-08-19 14:46
2006.10.15
Autoincrement + ADOCommand


15-1158691104
angelnay
2006-09-19 22:38
2006.10.15
Ктонибудь может привести исходный код *.gif файла.


5-1140943637
Reset
2006-02-26 11:47
2006.10.15
Default - значения свойств


2-1159273157
flaxe
2006-09-26 16:19
2006.10.15
GRID


15-1158672046
Оксана
2006-09-19 17:20
2006.10.15
Работа





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский