[~ SaM ~]

Вопрос первый:
в ниже приведенном коде при условии, если строка = '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+}

Спасибо.

[The Shadow]

Наверно надо обрабатывать событие OnDrawItem

[Maximus]

Не наверное, а точно...