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

GridPrinter: Add GUI for printer scaling.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8623 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-11-15 22:52:13 +00:00
parent 8f4791320c
commit d13027dc87
18 changed files with 903 additions and 371 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
components/gridprinter/examples/multi-language/main.pas
View File

@ -66,6 +66,7 @@ resourcestring
RSHeaderFooterButton = 'Header/footer button';
RSPrintOrderButtons = 'Print order: colums first or rows first';
RSCenterButtons = 'Buttons for centering grid on page';
RSScalePrinterButton = 'Scale printer button';
RSPageSetupButton = 'Page setup dropdown-menu';
RSPageNumberInfoPanel = 'Page number info';
RSZoomLevelInfoPanel = 'Zoom level info';
@ -97,9 +98,10 @@ begin
if ccbPreviewOptions.Checked[5] then Include(optns, ppoHeaderFooterBtn);
if ccbPreviewOptions.Checked[6] then Include(optns, ppoPrintOrderBtns);
if ccbPreviewOptions.Checked[7] then Include(optns, ppoCenterBtns);
if ccbPreviewOptions.Checked[8] then Include(optns, ppoPageSetupBtn);
if ccbPreviewOptions.Checked[9] then Include(optns, ppoPageNumberInfo);
if ccbPreviewOptions.Checked[10] then Include(optns, ppoZoomLevelInfo);
if ccbPreviewOptions.Checked[8] then Include(optns, ppoScalePrinterBtn);
if ccbPreviewOptions.Checked[9] then Include(optns, ppoPageSetupBtn);
if ccbPreviewOptions.Checked[10] then Include(optns, ppoPageNumberInfo);
if ccbPreviewOptions.Checked[11] then Include(optns, ppoZoomLevelInfo);
GridPrintPreviewDialog1.Options := optns;
end;
@ -110,7 +112,7 @@ end;
procedure TMainForm.FormCreate(Sender: TObject);
const
NUM_ROWS = 100;
NUM_ROWS = 80;
NUM_COLS = 15;
var
i, r, c: Integer;
@ -224,9 +226,10 @@ begin
ccbPreviewOptions.Items[5] := RSHeaderFooterButton;
ccbPreviewOptions.Items[6] := RSPrintOrderButtons;
ccbPreviewOptions.Items[7] := RSCenterButtons;
ccbPreviewOptions.Items[8] := RSPageSetupButton;
ccbPreviewOptions.Items[9] := RSPageNumberInfoPanel;
ccbPreviewOptions.Items[10] := RSZoomLevelInfoPanel;
ccbPreviewOptions.Items[8] := RSScalePrinterButton;
ccbPreviewOptions.Items[9] := RSPageSetupButton;
ccbPreviewOptions.Items[10] := RSPageNumberInfoPanel;
ccbPreviewOptions.Items[11] := RSZoomLevelInfoPanel;
ccbPreviewOptions.ItemIndex := idx2;
end;