Изменение цвета шрифта надписи в ListBox

Posted by Chas under Пост-обзор

Stilet:

Вполне.
Выставь свойство Style:=lbOwnerDrawFixed
И опиши два обработчика:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
   with TListBox(Control) do begin
     if index=ItemIndex then
     Canvas.font.Color:=clred
     else
       Canvas.font.Color:=clblack;
     Canvas.FillRect(rect);
     Canvas.TextOut(rect.Left,rect.Top,items[index]);
   end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
   ListBox1.Repaint;
end;

Тема на форуме

Похожие статьи

• Как создать в listbox события OnChange и OnChanging?
• Как втавить Image в ListBox?
• Заполнение StringGrid из ListBox c извлечением имени
• Как удалить все значения Items в ListBox?
• Возможно ли использовать в Delphi шрифты не установленные в системе?
• ListBox как проводник
• Как перемешать значения в listbox?
• Изменение цвета шрифта надписи в выделенной ячейки ListBox
• Выбор записей из ListBox в соответствии со значением ComboBox и размещение результата в Memo
• Особенности виртуального ListBox при отображении больших объемов информации