TListview Subitem Renk

[aliplane]

Aşağıdaki kod ile subitem backgroundum değişiyor fakat ben yanıp sönme efekti istiyorum bir türlü olmuyor.
Yani aşağıdaki kodda background sarı olduktan birkaç saniye sonra beyaz olsun,diğeride kırmızıdan birkaç saniye sonra beyaz olsun istiyorum.
Not:Listview değerleri thread ile update edilmektedir.

Yardımlar için teşekkürler.

Kod: Tümünü seç

ListView1AdvancedCustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  Stage: TCustomDrawStage; var DefaultDraw: Boolean);

begin
if (SubItem=1) and (strtofloat(item.SubItems[0]) >strtofloat(item.SubItems[1]) ) then
      begin
ListView1.Canvas.Brush.Color:=clyellow;
end
else
ListView1.Canvas.Brush.Color:=clred;
end;

[conari]

Timer ile yapılabilir sanırım.

[aliplane]

Timer ile denedim fakat olmadı.
Porttan gelen verileri thread içinde listview'a atıyorum.
subitem1 update olduğunda background sarı yanıp sönsün.
bir türlü olmadı