Hallo!
Ich habe in einem Stringgrid ein Rechnungsdatum und ein Fälligkeitsdatum stehen.
Wenn das Fälligkeitsdatum erreicht ist soll die Zelle rot angezeigt werden.
Mit meinem Code wird aber immer die ganze Spalte rot.
Was mache ich falsch?
Delphi-Quellcode:
procedure TFRechnung.AdvStringGrid3DrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
var
Datumrechnung, Datumrechungfaellig: TDate;
I: Integer;
begin
with (Sender as TAdvStringGrid) do
begin
for i := 1 to AdvStringGrid3.rowcount - 2 do begin
Datumrechnung := StrToDate(AdvStringGrid3.Cells[9, i]);
Datumrechungfaellig := StrToDate(AdvStringGrid3.Cells[11, i]);
if
Datumrechungfaellig = Datumrechnung + 14 then
AdvStringGrid3.Colors[11, i] := clred;
end;
end;
end;
Um mein Problem zu verdeutlichen sende ich eine Grafik mit.