|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Вопрос по изменению цвета шрифта в TCheckListBox
Вопрос первый:
в ниже приведенном коде при условии, если строка = 'HoReCa', то текст этой строки необходимо перекрасить в зеленый цвет. Так как я сделал работать не хочет! Впорос второй: Возможно ли при добавлении итема(в моем случаем s+ss), первую строку(s) сделать одним цветом, а другую(ss) другим, т.е. слова в тексте одной строки были разными цветами? Код:
AssignFile(f,getcurrentdir+'\ADP_VED\'+combobox1.Text+'.adp'); {$i-} Reset(f); while not eof(f) do begin readln(f,s); readln(f,ss); if (s='HoReCa') or (ss='HoReCa') then begin form13.CheckListBox1.Font.Color:=cllime; form13.CheckListBox1.Items.Add(s+' '+ss); end else begin form13.CheckListBox1.font.Color:=clblack; form13.CheckListBox1.Items.Add(s+' '+ss); end; end; CloseFile(f); {$i+} Спасибо. |
#2
|
||||
|
||||
Наверно надо обрабатывать событие OnDrawItem
Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#3
|
|||
|
|||
Не наверное, а точно...
|