FillRect(Rect) geht und in der Unterprocedure geht es nicht

[jbg]

Zitat:

Delphi-Quellcode:

      if (ARow <> 0) AND (check) then 
        Brush.Color := schriftfarbe 
      else 
        Brush.Color := gridhintergrund; 
      END;

Wo ist den hier das zum END dazugehörende begin ? Hier machst du die with Canvas do Anweisung zu, womit sich FillRect und TextOut auf die Funktionen in Windows.pas beziehen und nicht auf die Canvas Methoden.