|
Registriert seit: 19. Jan 2006
Ort: München
392 Beiträge
Delphi XE Starter
|
Re: nochmals StringGridDrawcell
28. Aug 2009, 19:00
vielleicht so
Delphi-Quellcode:
if ARow > 1 then begin
if StrToFloatDef(Cells[ACol, ARow], 0.0) > StrToFloatDef(Cells[ACol, ARow - 1], 0.0) then
Canvas.Brush.Color:= clgreen
else
Canvas.Brush.Color:= clred;
end;
Mario
'Lesen Sie schnell, denn nichts ist beständiger als der Wandel im Internet!'
|