Hallo zusammen,
wie bekomme ich es hin, das bei einem Stringgrid welches 3 Spalten und 2 Zeilen hat,
das die Spalte 2 + 3 in Zeile 1 als ganzes gezeichnet werden und auch ein Text über beide Spalten geschrieben wird ?
Die Spalten haben eine breite von 25.
Habe mal so angefangen:
Delphi-Quellcode:
If ACol = 1 then
begin
Rect.Right := Rect.Right + (2 * 25);
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left+2, Rect.Top+2, Cells[ACol, ARow]);
end;
If (ACol > 2) then
begin
Rect.Right := Rect.Right - 25;
Canvas.FillRect(Rect);
end;
Das Ergebnis was dabei raus kommt sieht aber nicht sauber aus. Man kann noch die Trennlinie zwischen Spalte 2 und 3 sehen, un der Text wird auch nicht über Spalte 2 hinaus geschrieben.
Gruss
Holger