[Delphi] ListView

Aby zmienic kolor w wierszach ListView stosowalem ponizsza procedure:

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
Sender.Canvas.Brush.Color:= clRed;
end;

w programie mam tez jakas inna procedure:
procedure jakas_nazwa;
begin
...
end;

I mam wlasnie takie pytanie, czy istnieje mozliwosc aby wiersze w ListView zmienily kolor dopiero po wykonaniu tej 2 procedury !?

Poprawka do pytania ! ;-)

Czy jest mozliwosc zmiany koloru w trakcie wykonywania tej 2 procedury, np gdy jest w niej spelniony jakis warunek !

Ustawiaj jakiegoś booleana globalnego i gdy wykonujesz proc nr. 2 ustaw booleana na True i daj ListView.RePaint albo ListView.Paint albo ListView.Visible:=False; ListView.Visible:=True; W porcedurze On.... sprawdzaj booleana i ustawiaj Brush na clRed gdy True.