Ich hab das Problem mal eingekreist, wenn ich diese Zeilen lösche, tritt die Weiße Zeile nicht auf.
Delphi-Quellcode:
Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, cells[acol, arow]);
Canvas.FrameRect(Rect);
s:=Cells[ACol,ARow];
Canvas.FillRect(Rect); // Zellfarbe zeichnen
allerdings funktioniert dann diese Procedur nicht
richtig
Delphi-Quellcode:
procedure TForm1.insertGridLine(Grid :TStringGrid; index: integer);
var i:integer;
begin
Grid.RowCount :=Grid.RowCount +1;
for i :=Grid.RowCount -2 downto index do
begin
Grid.Rows[i] :=Grid.Rows[i-1];
Grid.Rows[i-1].clear;
end;
end;