DrawGrid - Zeilen einfügen

[maddin4u]

Hallo

Ich möchte in einen DrawGrid eine Zeile mit Text und Bilder in den Spalten einfügen.

Dazu habe ich mir eine Prozedur geschrieben die das ganze konfortabel für mich übernehmen sollte:

Delphi-Quellcode:

procedure GridInsertRow(Cell1, Cell2: string);
var
  posRow: integer;
  Rectangle: TRect;
begin
  posRow:= DrawGrid1.RowCount - 1;

  DrawGrid1.DefaultDrawing:= false;
  
  // Spalte1
  Rectangle:= DrawGrid1.CellRect(0,posRow);
  DrawGrid1.Canvas.TextOut(Rectangle.Left,Rectangle.Top,Cell1);

  // Spalte2
  Rectangle:= DrawGrid1.CellRect(1,posRow);
  DrawGrid1.Canvas.TextOut(Rectangle.Left,Rectangle.Top,Cell2);
end;

Das klappt soweit auch, bis auf grafische Fehler. Ich kann mir auch vorstellen warum: Da man eigentlich die Zeilen im OnDrawCell Ergeignis des Grids einfügen soll?!

Ich möchte eigentlich "bloß" Spalten zur Laufzeit hinzufügen. Wie kann ich das am klügsten anstellen? Da der obere Code nur bedingt Funktioniert.

Vieln Dank