Hallo,
"verkehrt rum" würde ich nicht sagen, eher zuviel an Ausgabeinformationen.
Wenn die Gitterlinien ausgeblendet und die Funktionsvariablen richtig gesetzt werden,
hast Du nur noch die reinen Zellinhalte.
Ruf meine Funktion mal so auf:
Delphi-Quellcode:
var Bmp : TBitmap;
begin
Bmp := TBitmap.Create;
StringGrid1.Options := StringGrid1.Options - [goVertLine,goHorzLine];//<----
if GridToBmp(StringGrid1,False,Bmp,0,clBlack) then
begin
Image1.Picture.Bitmap.Assign(Bmp);
//oder
//Bmp.SaveToFile('C:\Temp\StringGrid.bmp');
//Clipboard.Assign(Bmp); //in uses clipbrd einbinden !!!
end;
StringGrid1.Options := StringGrid1.Options + [goVertLine,goHorzLine];//<----
Bmp.Free;
end;
Es gibt aber ein Problem
,
wird in OnDrawCell auf gdFixed oder FixedCols/FixedRows reagiert,
ändert sich das Zeichnen der Fixed- Spalten/Zeilen wenn die Funktion, gesteuert über die Variable
Fixed: Boolean, temporaer die Fixed- Spalten/Zeilen entfernt.
Das kann aber über eine Veränderung der OnDrawCell-Ereignisbehandlung angepasst werden.