Как окрасить определенный элемент списка в Delphi?

Question

Я создаю систему планирования и хочу пометить некоторые конкретные элементы в представлении списка. Например, если текущее время в часах составляет 07:00, тогда в представлении списка будут отображаться все элементы, в которых есть 07:00 AM. Как мне это сделать? Я действительно не знаю, с чего начать. То, что я сейчас это,

Посмотреть Расписание

Answer 1

Вы можете установить свойство шрифта в OnCustomDrawItem и OnCustomDrawSubItem обработчиков событий. Например:

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; 
    State: TCustomDrawState; var DefaultDraw: Boolean); 
begin 
    if odd(Item.Index) then begin 
    Sender.Canvas.Font.Color := clRed; 
    end; 
end; 

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView; Item: TListItem; 
    SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean); 
begin 
    if odd(Item.Index) then begin 
    Sender.Canvas.Font.Color := clRed; 
    end; 
end;