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