StringGrid mit Farben drucken

[HolgerCW]

Danke schon mal. Nur wie bekomme ich das mit dem Rect hin ?

So klappt es nicht:

Delphi-Quellcode:

...

for I := 1 to Zeilen do 
    begin 
      if Grid.RowCount >= I + (Seite - 1) * Zeilen then 
      begin 
        XPos := 0; 
        for J := 0 to Grid.ColCount - 1 do 
        begin 
          
          Printer.Canvas.Brush.Color := Grid.Canvas.Pixels[XPos,YPos];
          Printer.Canvas.FillRect(Rect);
           
          Printer.Canvas.TextOut(XPos, - YPos, 
            Grid.Cells[J, I + (Seite - 1) * Zeilen - 1]); 
          XPos := XPos + Grid.ColWidths[J] * 3; 
        end; 
        YPos := YPos + ZeilenSize; 
      end; 
    end; 

...