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

[Keldorn]

Zitat von JoelH:

Also quasi einen Parameter dazu gemacht welche Spalten er einfügen soll und dann sieht die GridColor Procedure so aus

Delphi-Quellcode:

procedure Gridcolor(Sender: TObject;
  ACol, ARow: Integer; Rect: TRect; State: TGridDrawState; geldrows : Array of Integer);
var check : boolean;
    i : integer;
begin
  with Sender as TStringgrid do
  begin
    WITH Canvas DO
    BEGIN  //1
      check := false;
      for i := 0 to length(geldrows)-1 do
      begin   //2
        if ARow = geldrows[i] Then check := true;
      end;    //2
      if (ARow <> 0) AND (check) then
        Brush.Color := schriftfarbe
      else
        Brush.Color := gridhintergrund;
      END;    //1  --<<<<<<< das end ist zuviel 
      IF (Selection.Left = ACol) AND (Selection.Top = ARow) THEN
        Brush.Color := clLime;
      FillRect(Rect);
      Font.Color := Brush.Color XOR 65535;
      TextOut(Rect.Left, Rect.Top, Cells[ACol, ARow]);
    END;
  end;
end;

da ist ein end zuviel.

//eidt: zu langsam

Mfg Frank