GetCellColor ist dein Freund...
so ungefähr (schnell hier im editor geschrieben)...
Delphi-Quellcode:
procedure TFRechnung.AdvStringGrid3GetCellColor(Sender: TObject; ARow, ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont);
var
Datumrechnung, Datumrechungfaellig: TDate;
begin
if odd(ARow) then begin
abrush.color := $00E4E4E4; // $00ECECF0
afont.Color := clBlack;
end else begin
abrush.color := $00EEEEEE;
afont.Color := clBlack;
end;
if ARow = 0 then begin
abrush.Color := clBtnFace;
afont.Color := clBlack;
end;
// Hier nun eine Prüfung ob die aktuelle Zelle anders gefärbt werden muss.
// wenn ja, dann abrush und/oder afont entsprechend setzen...
Datumrechnung := StrToDate(AdvStringGrid3.Cells[9, i]);
Datumrechungfaellig := StrToDate(AdvStringGrid3.Cells[11, i]);
if Datumrechungfaellig = Datumrechnung + 14 then abrush.color := clred;
end;