Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];

Вниз

listbox   Найти похожие ветки 

 
denis24   (2004-01-24 12:27) [0]

Можно ли выводить в сабже строчки разными цветами?


 
denis24   (2004-01-25 14:53) [1]

Неужели нет советов?


 
Александр из Минска   (2004-01-25 16:08) [2]

этот код тебе поможет
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
with (Control as TListBox).Canvas do
begin
case (Index mod 3) of
0: begin
Font.Color := clBlue;
Brush.Color := clYellow;
end;
1: begin
Font.Color := clRed;
Brush.Color := clLime;
end;
2: begin
Font.Color := clGreen;
Brush.Color := clFuchsia;
end;
end;
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);
end;
end;

Этот код можно усовершенствовать до нужного типа. Главное, что тут показан алгоритм закраски строк!
Желаю УДАЧИ!


 
denis24   (2004-01-26 11:23) [3]

добавляю сткоки в листбокс методом items.ADD
но событие TForm1.ListBox1DrawItem не происходит.И соответственно не раскрашиваются сткроки.Кто знает ?
Правда у меня checklistbox ,хотя идея таже.


 
clickmaker   (2004-01-26 12:16) [4]

Style := lbOwnerDrawFixed



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

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

Наверх





Память: 0.44 MB
Время: 0.068 c
1-16242
New
2004-01-26 13:04
2004.02.06
Удаление файла


3-16136
Серж
2004-01-14 10:21
2004.02.06
Вернуть данные из процедуры Oracle в dbgrid Delphi


4-16810
GrandleBugenShpreh
2003-11-25 17:48
2004.02.06
WM_GETTEXT


14-16710
Ломброзо
2004-01-15 21:14
2004.02.06
Злой президент, обиженная женщина и добрые чечены


14-16608
Стесняюсь...
2004-01-02 00:57
2004.02.06
Пачеко





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский