Witam,
Czy może wie ktoś jak rozwiązać poniższy problem?
Mam ListView wypełniony w pierwszym wierszu nazwą i potem 12 kolumn z liczbami. Liczby ujemne chcę pokazać na czerwono. Mam taki kod:
procedure TForm1.ListView1AdvancedCustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
Stage: TCustomDrawStage; var DefaultDraw: Boolean);
begin
if (subitem=1) and (strtoint(item.SubItems[0])<0) then
listview1.Canvas.Font.color:=clred else listview1.Canvas.Font.Color:=clblack;
end;
Działa on poprawnie na pierwszej kolumnie z liczbami. Gdy dam w procedurze:
if (subitem=1) and (strtoint(item.SubItems[0])<0) then
listview1.Canvas.Font.color:=clred else listview1.Canvas.Font.Color:=clblack;
if (subitem=2) and (strtoint(item.SubItems[1])<0) then
listview1.Canvas.Font.color:=clred else listview1.Canvas.Font.Color:=clblack;
to wtedy robi na czerwono liczby tylko w drugiej kolumnie, a w pierwszej na czarno.
Gdy nie dam else listview1.Canvas.Font.Color:=clblack; to oczywiście na czerwono będzie cały wiersz, a mi chodzi o to aby tylko "komórki" z liczbami ujemnymi były na czerwono.
Proszę o pomoc.