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

GridPrinter: Add standard actions for printing/previewing a grid.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8596 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-11-09 16:14:31 +00:00
parent 39089540a1
commit d48f33a70d
22 changed files with 928 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -54,8 +54,9 @@ uses
resourcestring
RSNoPrinterDialog = 'No printer dialog';
RSPageSetupDialog = 'Page-setup dialog';
RSPageSetupDialog = 'Page setup dialog';
RSPrinterDialog = 'Printer dialog';
RSPrinterSetupDialog = 'Printer setup dialog';
RSNavigationButtons = 'Navigation buttons';
RSNavigationEdit = 'Navigation edit';
@ -70,11 +71,7 @@ resourcestring
procedure TMainForm.btnPrintClick(Sender: TObject);
begin
case cmbDialogs.ItemIndex of
0: GridPrinter1.PrintDialogs := gpdNone;
1: GridPrinter1.PrintDialogs := gpdPageSetup;
2: GridPrinter1.PrintDialogs := gpdPrintDialog;
end;
GridPrinter1.ShowPrintDialog := TGridPrnDialog(cmbDialogs.ItemIndex);
GridPrinter1.Print;
end;
@ -204,6 +201,7 @@ begin
cmbDialogs.Items[0] := RSNoPrinterDialog;
cmbDialogs.Items[1] := RSPageSetupDialog;
cmbDialogs.Items[2] := RSPrinterDialog;
cmbDialogs.Items[3] := RSPrinterSetupDialog;
cmbDialogs.ItemIndex := idx1;
// ... and of the preview dialog options check combobox.