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

GridPrinter: More options to control the preview's toolbar.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8609 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-11-11 22:59:52 +00:00
parent 8bd3387381
commit 1fe764c55e
12 changed files with 1089 additions and 480 deletions
Download Patch File Download Diff File Expand all files Collapse all files

65
components/gridprinter/examples/multi-language/main.lfm
View File

@ -15,12 +15,12 @@ object MainForm: TMainForm
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnPrint
Left = 6
Height = 419
Top = 35
Width = 644
Left = 8
Height = 411
Top = 39
Width = 640
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
BorderSpacing.Around = 8
ColCount = 6
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing, goColSizing, goEditing, goThumbTracking, goSmoothScroll, goCellEllipsis]
RowCount = 6
@ -30,13 +30,13 @@ object MainForm: TMainForm
AnchorSideLeft.Control = Owner
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 6
Left = 8
Height = 25
Top = 460
Top = 458
Width = 60
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Around = 6
BorderSpacing.Around = 8
Caption = 'Print...'
OnClick = btnPrintClick
TabOrder = 1
@ -45,9 +45,9 @@ object MainForm: TMainForm
AnchorSideLeft.Control = cmbDialogs
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnPrint
Left = 260
Left = 264
Height = 25
Top = 460
Top = 458
Width = 76
AutoSize = True
BorderSpacing.Left = 24
@ -60,11 +60,11 @@ object MainForm: TMainForm
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnPrint
AnchorSideTop.Side = asrCenter
Left = 72
Left = 76
Height = 23
Top = 461
Top = 459
Width = 164
BorderSpacing.Left = 6
DropDownCount = 24
ItemHeight = 15
Items.Strings = (
'RSNoPrinterDialog'
@ -82,12 +82,13 @@ object MainForm: TMainForm
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 342
Left = 348
Height = 22
Top = 461
Width = 308
Top = 459
Width = 300
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
BorderSpacing.Around = 8
DropDownCount = 24
ItemHeight = 16
Items.Strings = (
'ppoNavigationBtns'
@ -97,30 +98,34 @@ object MainForm: TMainForm
'ppoMarginsBtn'
'ppoHeaderFooterBtn'
'ppoPrintOrderBtns '
'ppoCenterBtns'
'ppoPageSetupBtn'
'ppoPageInfo'
'ppoZoomInfo'
)
OnItemChange = ccbPreviewOptionsItemChange
TabOrder = 4
end
object Panel1: TPanel
Left = 0
Height = 29
Top = 0
Width = 656
Left = 8
Height = 23
Top = 8
Width = 640
Align = alTop
AutoSize = True
BorderSpacing.Around = 8
BevelOuter = bvNone
ClientHeight = 29
ClientWidth = 656
ClientHeight = 23
ClientWidth = 640
TabOrder = 5
object Label1: TLabel
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = cmbLanguages
AnchorSideTop.Side = asrCenter
Left = 6
Left = 0
Height = 15
Top = 10
Top = 4
Width = 55
BorderSpacing.Left = 6
Caption = 'Language:'
end
object cmbLanguages: TComboBox
@ -129,14 +134,12 @@ object MainForm: TMainForm
AnchorSideTop.Control = Panel1
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
Left = 67
Left = 61
Height = 23
Top = 6
Width = 581
Top = 0
Width = 579
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 8
ItemHeight = 15
OnChange = cmbLanguagesChange
Style = csDropDownList

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

@ -65,6 +65,10 @@ resourcestring
RSPageMarginsButtons = 'Page margins button';
RSHeaderFooterButton = 'Header/footer button';
RSPrintOrderButtons = 'Print order: colums first or rows first';
RSCenterButtons = 'Buttons for centering grid on page';
RSPageSetupButton = 'Page setup dropdown-menu';
RSPageNumberInfoPanel = 'Page number info';
RSZoomLevelInfoPanel = 'Zoom level info';
{ TMainForm }
@ -92,6 +96,10 @@ begin
if ccbPreviewOptions.Checked[4] then Include(optns, ppoMarginsBtn);
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);
GridPrintPreviewDialog1.Options := optns;
end;
@ -110,7 +118,7 @@ begin
cmbDialogs.ItemIndex := 2;
ccbPreviewOptions.ItemIndex := 0;
for i := 0 to ccbPreviewOptions.Count-1 do
ccbPreviewOptions.Checked[i] := true;
ccbPreviewOptions.Checked[i] := TGridPrintPreviewOption(i) in DEFAULT_GRIDPRN_OPTIONS;
FLanguagesDir := ExpandFileName(Application.Location + '../../languages/');
PopulateLanguages;
@ -212,6 +220,10 @@ begin
ccbPreviewOptions.Items[4] := RSPageMarginsButtons;
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.ItemIndex := idx2;
end;