Stringgrid-Zellen rechtsbündig drucken

[Lannes]

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.