Gelöst: Algorithmus zum Ermitteln bestimmter StringGrid-Zellen

[Helmi]

Hallo,

ich kenne jetzt deine Konstanten (besser Records) nicht, aber müsste das hier nicht so heissen:

Delphi-Quellcode:

     IF p > 0 THEN// wenn Zeilenumbruch gefunden dann
         BEGIN
              IF (ACol > 0) AND (ARow > 0) THEN// wenn Spalte > 0 AND Zeile > 0 dann
              BEGIN
                   StrGrid_Monat.Canvas.Font.Color := Konst.Benutzer.TermStrGridEinColorFont; // Schriftfarbe setzen
                   StrGrid_Monat.Canvas.Brush.Color := Konst.Benutzer.TermStrGridEinColor; // Hintergrundfarbe setzen
                   StrGrid_Monat.Canvas.FillRect(Rect); // zeichnen
              END;
         END ELSE// wenn kein Zeilenumbruch gefunden
         BEGIN
              IF (ACol > 0) AND (ARow > 0) THEN
              BEGIN
                   StrGrid_Monat.Canvas.Font.Color := Konst.Benutzer.TermStrGridColorFont;           //<== Konst. hinzugefügt
                   StrGrid_Monat.Canvas.Brush.Color := Konst.Benutzer.TermStrGridColor;
                   StrGrid_Monat.Canvas.FillRect(Rect);
              END;
         END;