pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

GridPrinter: Fix TsWorksheetGrid scaling in preview/printout.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8627 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-11-16 23:02:24 +00:00
parent 3a6f3503fe
commit 42eccf22b7
1 changed files with 28 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
components/gridprinter/examples/fpspreadsheet/main.pas
View File

@ -39,6 +39,7 @@ type
ACanvas: TCanvas; ACol, ARow: Integer; ARect: TRect); ACanvas: TCanvas; ACol, ARow: Integer; ARect: TRect);
private private
FGridCanvas: TCanvas; FGridCanvas: TCanvas;
FOldZoomFactor: Double;
FOldPadding: Integer; FOldPadding: Integer;
FNewPadding: Integer; FNewPadding: Integer;
@ -67,23 +68,15 @@ begin
sWorkbookSource1.LoadFromSpreadsheetFile(ParamStr(1)); sWorkbookSource1.LoadFromSpreadsheetFile(ParamStr(1));
end; end;
procedure TMainForm.GridPrinter1AfterPrint(Sender: TObject);
begin
sWorksheetGrid1.Canvas := FGridCanvas;
varCellPadding := FOldPadding;
// Restore drawing of the grid lines by the grid printer.
GridPrinter1.Options := GridPrinter1.Options + [
gpoHorGridLines, gpoVertGridLines,
gpoFixedHorGridLines, gpoFixedVertGridLines,
gpoHeaderBorderLines
];
end;
procedure TMainForm.GridPrinter1BeforePrint(Sender: TObject); procedure TMainForm.GridPrinter1BeforePrint(Sender: TObject);
begin begin
// We want to draw on the printer/preview canvas. Therefore, we assign the
// grid's canvas to that of the GridPrinter. In order to restore the grid
// canvas after printing, we store its old canvas.
FGridCanvas := sWorksheetGrid1.Canvas; FGridCanvas := sWorksheetGrid1.Canvas;
sWorksheetGrid1.Canvas := GridPrinter1.Canvas; sWorksheetGrid1.Canvas := GridPrinter1.Canvas;
//
FOldPadding := varCellPadding; FOldPadding := varCellPadding;
FNewPadding := GridPrinter1.Padding - varCellPadding; FNewPadding := GridPrinter1.Padding - varCellPadding;
@ -95,6 +88,28 @@ begin
gpoFixedHorGridLines, gpoFixedVertGridLines, gpoFixedHorGridLines, gpoFixedVertGridLines,
gpoHeaderBorderLines gpoHeaderBorderLines
]; ];
// Store the worksheetgrid's ZoomFactor. We may have to change it
FOldZoomFactor := sWorksheetGrid1.ZoomFactor;
sWorksheetGrid1.ZoomFactor := GridPrinter1.PrintScaleFactor;
end;
procedure TMainForm.GridPrinter1AfterPrint(Sender: TObject);
begin
// Restore the worksheetgrid's Canvas.
sWorksheetGrid1.Canvas := FGridCanvas;
varCellPadding := FOldPadding;
// Restore drawing of the grid lines by the grid printer.
GridPrinter1.Options := GridPrinter1.Options + [
gpoHorGridLines, gpoVertGridLines,
gpoFixedHorGridLines, gpoFixedVertGridLines,
gpoHeaderBorderLines
];
// Restore the worksheetgrid's ZoomFactor
sWorksheetGrid1.ZoomFactor := FOldZoomFactor;
end; end;
procedure TMainForm.btnPrintClick(Sender: TObject); procedure TMainForm.btnPrintClick(Sender: TObject);