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

Вниз

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

 
Bobby Digital ©   (2004-11-23 01:15) [0]

Нужно измеить цвет одного из элементов Listbox ... как это сделать или какой другой компонент-альтернативу использовать


 
GuAV ©   (2004-11-23 01:29) [1]


style = lbOwnerDrawFixed

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
 Rect: TRect; State: TOwnerDrawState);
begin
 with (Control as TListBox), Canvas do
begin
   if Index = 2 then Brush.Color := clRed;
  FillRect(Rect);
   TextOut(Rect.Left, Rect.Top, Items[Index]);
 end;
end;


 
Bobby Digital ©   (2004-11-23 11:37) [2]

это единственний способ?


 
ssk ©   (2004-11-23 12:10) [3]

>это единственний способ?

а что, этого разве недостаточно?
можно еще своего потомка от ListBox"а сделать с соответствующими методами и свойствами.


 
GuAV ©   (2004-11-23 12:50) [4]

Bobby Digital ©   (23.11.04 11:37) [2]
это единственний способ?


А чем не устраивает ?


 
Pirat1   (2004-11-23 13:16) [5]


> GuAV ©


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


 
GuAV ©   (2004-11-23 13:48) [6]

Pirat1   (23.11.04 13:16) [5]
А как сделать различным цвет каждой буквы нужной строки?


Выводить по одной букве в цикле, меняя цвет. X - координату брать из PenPos, чтобы инициализировать для первой - MoveTo.


 
GuAV ©   (2004-11-23 13:49) [7]

PS: и зачем такое извращение ? :-)


 
Shama_n ©   (2004-11-23 15:57) [8]

> PS: и зачем такое извращение ?
Полагаю принципиально новая схема новогодней елки


 
ssk ©   (2004-11-23 16:54) [9]

человек наверное эффект перемигивающейся строки делает, как список в аське, при появлении новой записи


 
Bobby Digital ©   (2004-11-24 00:47) [10]

GuAV большое спасибо за помощь, но

Я не совсем понимаю с какиеми параметрами вызвается данная процедура

можешь написать что озн каждий параметр и где увазыватся
style = lbOwnerDrawFixed

ListBox1DrawItem();


 
GuAV ©   (2004-11-24 01:29) [11]

У ListBox есть свойство (property) style и событие (event) OnDrawItem. Параметры Control - сам ListBox,  Index - номер рисуемого item,  Rect -Месо рисуемого Item,  State - состояние его. TListbox + F1 поможет.


 
Bobby Digital ©   (2004-11-24 01:44) [12]

Большое спасибо !


 
Bobby Digital ©   (2004-11-25 11:46) [13]


> GuAV ©


а при вызове процедуры ListBox1DrawItem из другой процедуры что указать в параметре Rect
я вызываю так
ListBox1DrawItem(Listbox1,Listbox1.ItemIndex,...,ibOwenerDrawFixed);
а что в rect указать
...
вообщем мне нужно сравнить один лист с другим и в том случае если имеются одинаковые елементы то выделить их цветом


 
zz 5 ©   (2004-11-25 12:12) [14]

Bobby Digital ©   (25.11.04 11:46) [13]
Не надо вызывать эту процедуру явно, она будет вызываться сама, когда листбокс будет перерисовываться


 
GuAV ©   (2004-11-25 15:16) [15]

... а явно указать необходимость перерисовки можно методом Invalidate.


 
Mishenka   (2004-12-01 10:43) [16]


> GuAV ©   (24.11.04 01:29) [11]
> State - состояние его.


А как это состояние изменит вручную?



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

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

Наверх




Память: 0.47 MB
Время: 0.04 c
1-1101806975
Skyhawk
2004-11-30 12:29
2004.12.12
Изменение размеров формы без заголовка


1-1101475987
Dmitry_04
2004-11-26 16:33
2004.12.12
Что значит $ в объявлении констант типа integer?


1-1101488782
denis24
2004-11-26 20:06
2004.12.12
форма по вводу пароля и создание основной


14-1101186125
Sour
2004-11-23 08:02
2004.12.12
Еще вопрос про SMTP и POP3 серверы


1-1101878751
Vladik
2004-12-01 08:25
2004.12.12
MDI формы, анимация





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