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?

zusammenfalten · markieren

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.

Äh, was hat der Thementitel mit dem Problem zu tun? Offensichtlich schaffst du es doch schon die Daten zu vergleichen. Du darfst eben nur eine Zelle färben und nicht die ganze Zeile. Dazzu musst du eben gucken mit welcher Eigenschaft der Komponente du eine Zelle ansprichst. Ich kenne das AdvStringGrid nicht.

Zumal wird beim Zeichnen einer jeden Zelle dein Code ausgeführt (schaue mal in allen Zeilen nach).

Die Methode gibt dir doch mit, welche Zelle jetzt gerade gezeichnet werden soll ACol, ARow : Integer

markieren

Delphi-Quellcode:

if ACol = 11 then
  with TAdvStringGrid( Sender ) do
    begin
      Colors[ ACol, ARow ] := clRed;
    end;

Hallo und danke.
@Luckie: Habe den Titel geändert.
@Sir Rufo: Okay das färbt auch die ganze Spalte.
Wie muss ich das mit dem ausrechnen/anzeigen der Farbe in Kombination mit dem Datum machen?
Im ColumnHeader steht Wort "Datum" und "Fällig" ich dachte, dass ich deshalb mit

markieren

Delphi-Quellcode:

for i := 1 to AdvStringGrid3.rowcount - 2 do begin
      Datumrechnung := StrToDate(AdvStringGrid3.Cells[9, i]);
      Datumrechungfaellig := StrToDate(AdvStringGrid3.Cells[11, i]);

arbeiten muss.

Sonst gibt Delphi Fehlermeldungen aus weil das Wort "Datum" kein gültiges Datum ist.

Gruss
Waldow

Zitat von Waldow:

@Luckie: steht doch in meinem ersten Post.

Ja, jetzt passt der Thementitel zum Problem. Vorher stand da was anderes.

Moin Waldow,

das müsste so (oder so ähnlich ) funktionieren:
(Bei deinem Ansatz würde er imho beim Zeichnen jeder Zelle immer alle Zeilen durchgehen)

markieren

Delphi-Quellcode:

if (ARow <> 0) and (ACol in [9,11]) then
begin
  Colors[ ACol, ARow ] := clRed;
end;

Hallo,

so funktioniert das mit TMS nie. Setze deinen Code unter GetCellColor.

procedure..
if ARow > 0 then //Spaltenüberschriften nicht mit einbeziehen
begin
if acol=1 then //Spalte mit deinem Rechnungsdatum
begin
if (AdvGrid1.cells[2], arow] =rdatum+14) then //Fälligkeitspalte
Color:=clred;
end;
end;


Die Spaltennummern mußt du selber anpassen. Ich denke das ist kein Problem.

Olaf

Du kannst die Abfrage der Zeilennummer auch umgehen und mit TryStrToDate(const S: string; out Value: TDateTime): Boolean arbeiten. Gibt true zurück wenn in S ein "Datum" steht.

aber bei TMS gibt es auch

markieren

Delphi-Quellcode:

  
  AdvStringGrid1.FixedFooters
  AdvStringGrid1.FixedRows
  AdvStringGrid1.FixedCols

Das sind deine Start bzw. End-Spalten/Zeilen also:

if ARow > AdvStringGrid1.FixedRows then

Danke, wie muss sich ich das mit dem FixedFooters machen um diese Reihe auszuschliessen?

if AdvStringGrid3.FixedFooters < 1 Damit funktioniert es nicht.

Gruss
waldow

Versuch es doch mal mit
if ARow < AdvStringGrid1.FixedFooters then