You've already forked lazarus-ccr
GridPrinter: More options to control the preview's toolbar.
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
@ -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
|
||||
|
||||
@ -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;
|
||||
|
||||
|
||||
@ -9,12 +9,30 @@ msgstr ""
|
||||
"MIME-Version: 1.0\n"
|
||||
"Content-Type: text/plain; charset=UTF-8\n"
|
||||
"Content-Transfer-Encoding: 8bit\n"
|
||||
"X-Generator: Poedit 3.1.1\n"
|
||||
"X-Generator: Poedit 3.2\n"
|
||||
|
||||
#: gridprnstrings.rsbottommargin
|
||||
msgid "Bottom margin"
|
||||
msgstr "Unterer Rand"
|
||||
|
||||
#: gridprnstrings.rscenterhor
|
||||
msgctxt "gridprnstrings.rscenterhor"
|
||||
msgid "Center horizontally"
|
||||
msgstr "Horizontal zentrieren"
|
||||
|
||||
#: gridprnstrings.rscenterhorhint
|
||||
msgid "Center grid in page horizontally"
|
||||
msgstr "Die Tabelle auf der Seite horizontal zentrieren"
|
||||
|
||||
#: gridprnstrings.rscentervert
|
||||
msgctxt "gridprnstrings.rscentervert"
|
||||
msgid "Center vertically"
|
||||
msgstr "Vertikal zentrieren"
|
||||
|
||||
#: gridprnstrings.rscenterverthint
|
||||
msgid "Center grid in page vertically"
|
||||
msgstr "Die Tabelle auf der Seite vertikal zentrieren"
|
||||
|
||||
#: gridprnstrings.rsclose
|
||||
msgid "Close"
|
||||
msgstr "Schließen"
|
||||
@ -35,7 +53,13 @@ msgstr "Fußzeilen-Rand"
|
||||
msgid "Header"
|
||||
msgstr "Kopfzeile"
|
||||
|
||||
#: gridprnstrings.rsheaderfooterconfig
|
||||
#: gridprnstrings.rsheaderfooter
|
||||
msgctxt "gridprnstrings.rsheaderfooter"
|
||||
msgid "Header/footer..."
|
||||
msgstr "Kopf-/Fußzeile"
|
||||
|
||||
#: gridprnstrings.rsheaderfooterhint
|
||||
msgctxt "gridprnstrings.rsheaderfooterhint"
|
||||
msgid "Header/footer configuration"
|
||||
msgstr "Kopf/Fußzeilen-Konfiguration"
|
||||
|
||||
@ -63,7 +87,13 @@ msgstr ""
|
||||
msgid "Header margin"
|
||||
msgstr "Kopfzeilen-Rand"
|
||||
|
||||
#: gridprnstrings.rslandscapepageorientation
|
||||
#: gridprnstrings.rslandscape
|
||||
msgctxt "gridprnstrings.rslandscape"
|
||||
msgid "Landscape"
|
||||
msgstr "Querformat"
|
||||
|
||||
#: gridprnstrings.rslandscapehint
|
||||
msgctxt "gridprnstrings.rslandscapehint"
|
||||
msgid "Landscape page orientation"
|
||||
msgstr "Seite im Querformat"
|
||||
|
||||
@ -85,14 +115,42 @@ msgstr "Originalgröße (100%)"
|
||||
|
||||
#: gridprnstrings.rspageandzoominfo
|
||||
#, object-pascal-format
|
||||
msgid "Page %d of %d, Zoom %d %%"
|
||||
msgid "Page %0:d of %1:d, Zoom %2:d %%"
|
||||
msgstr "Seite %d von %d, Skalierung %d %%"
|
||||
|
||||
#: gridprnstrings.rspageinfo
|
||||
#, object-pascal-format
|
||||
msgid "Page %0:d of %1:d"
|
||||
msgstr "Seite %0:d von %1:d"
|
||||
|
||||
#: gridprnstrings.rspageinfopanel
|
||||
msgid "Page numbers"
|
||||
msgstr "Seitenzahlen"
|
||||
|
||||
#: gridprnstrings.rspagemargins
|
||||
msgctxt "gridprnstrings.rspagemargins"
|
||||
msgid "Margins"
|
||||
msgstr "Seitenränder"
|
||||
|
||||
#: gridprnstrings.rspagemarginsconfig
|
||||
msgid "Page margins configuration"
|
||||
msgstr "Einstellung der Seitenränder"
|
||||
|
||||
#: gridprnstrings.rsportraitpageorientation
|
||||
#: gridprnstrings.rspagemarginshint
|
||||
msgid "Page margins"
|
||||
msgstr "Seitenränder"
|
||||
|
||||
#: gridprnstrings.rspagesetuphint
|
||||
msgid "Page setup options"
|
||||
msgstr "Seiteneinrichtungs-Optionen"
|
||||
|
||||
#: gridprnstrings.rsportrait
|
||||
msgctxt "gridprnstrings.rsportrait"
|
||||
msgid "Portrait"
|
||||
msgstr "Hochformat"
|
||||
|
||||
#: gridprnstrings.rsportraithint
|
||||
msgctxt "gridprnstrings.rsportraithint"
|
||||
msgid "Portrait page orientation"
|
||||
msgstr "Seite im Hochformat"
|
||||
|
||||
@ -101,6 +159,12 @@ msgid "Print"
|
||||
msgstr "Drucken"
|
||||
|
||||
#: gridprnstrings.rsprintcolsfirst
|
||||
msgctxt "gridprnstrings.rsprintcolsfirst"
|
||||
msgid "Columns first"
|
||||
msgstr "Spalten zuerst"
|
||||
|
||||
#: gridprnstrings.rsprintcolsfirsthint
|
||||
msgctxt "gridprnstrings.rsprintcolsfirsthint"
|
||||
msgid ""
|
||||
"First print columns from top to bottom,\n"
|
||||
"then print from left to right"
|
||||
@ -126,6 +190,12 @@ msgid "Preview..."
|
||||
msgstr "Druckvorschau..."
|
||||
|
||||
#: gridprnstrings.rsprintrowsfirst
|
||||
msgctxt "gridprnstrings.rsprintrowsfirst"
|
||||
msgid "Rows first"
|
||||
msgstr "Zeilen zuerst"
|
||||
|
||||
#: gridprnstrings.rsprintrowsfirsthint
|
||||
msgctxt "gridprnstrings.rsprintrowsfirsthint"
|
||||
msgid ""
|
||||
"First print rows from left to right,\n"
|
||||
"then print from top to bottom"
|
||||
@ -181,6 +251,15 @@ msgstr "Oberer Rand"
|
||||
msgid "Zoom in"
|
||||
msgstr "Vergrößern"
|
||||
|
||||
#: gridprnstrings.rszoominfo
|
||||
#, object-pascal-format
|
||||
msgid "Zoom %2:d %%"
|
||||
msgstr "Skalierung %2:d %%"
|
||||
|
||||
#: gridprnstrings.rszoominfopanel
|
||||
msgid "Zoom level"
|
||||
msgstr "Skalierungsniveau"
|
||||
|
||||
#: gridprnstrings.rszoomout
|
||||
msgid "Zoom out"
|
||||
msgstr "Verkleinern"
|
||||
|
||||
@ -9,12 +9,30 @@ msgstr ""
|
||||
"MIME-Version: 1.0\n"
|
||||
"Content-Type: text/plain; charset=UTF-8\n"
|
||||
"Content-Transfer-Encoding: 8bit\n"
|
||||
"X-Generator: Poedit 3.1.1\n"
|
||||
"X-Generator: Poedit 3.2\n"
|
||||
|
||||
#: gridprnstrings.rsbottommargin
|
||||
msgid "Bottom margin"
|
||||
msgstr "Bottom margin"
|
||||
|
||||
#: gridprnstrings.rscenterhor
|
||||
msgctxt "gridprnstrings.rscenterhor"
|
||||
msgid "Center horizontally"
|
||||
msgstr "Center horizontally"
|
||||
|
||||
#: gridprnstrings.rscenterhorhint
|
||||
msgid "Center grid in page horizontally"
|
||||
msgstr "Center grid in page horizontally"
|
||||
|
||||
#: gridprnstrings.rscentervert
|
||||
msgctxt "gridprnstrings.rscentervert"
|
||||
msgid "Center vertically"
|
||||
msgstr "Center vertically"
|
||||
|
||||
#: gridprnstrings.rscenterverthint
|
||||
msgid "Center grid in page vertically"
|
||||
msgstr "Center grid in page vertically"
|
||||
|
||||
#: gridprnstrings.rsclose
|
||||
msgid "Close"
|
||||
msgstr "Close"
|
||||
@ -35,7 +53,13 @@ msgstr "Footer margin"
|
||||
msgid "Header"
|
||||
msgstr "Header"
|
||||
|
||||
#: gridprnstrings.rsheaderfooterconfig
|
||||
#: gridprnstrings.rsheaderfooter
|
||||
msgctxt "gridprnstrings.rsheaderfooter"
|
||||
msgid "Header/footer..."
|
||||
msgstr "Header/footer..."
|
||||
|
||||
#: gridprnstrings.rsheaderfooterhint
|
||||
msgctxt "gridprnstrings.rsheaderfooterhint"
|
||||
msgid "Header/footer configuration"
|
||||
msgstr "Header/footer configuration"
|
||||
|
||||
@ -63,7 +87,13 @@ msgstr ""
|
||||
msgid "Header margin"
|
||||
msgstr "Header margin"
|
||||
|
||||
#: gridprnstrings.rslandscapepageorientation
|
||||
#: gridprnstrings.rslandscape
|
||||
msgctxt "gridprnstrings.rslandscape"
|
||||
msgid "Landscape"
|
||||
msgstr "Landscape"
|
||||
|
||||
#: gridprnstrings.rslandscapehint
|
||||
msgctxt "gridprnstrings.rslandscapehint"
|
||||
msgid "Landscape page orientation"
|
||||
msgstr "Landscape page orientation"
|
||||
|
||||
@ -85,14 +115,43 @@ msgstr "Original size (100%)"
|
||||
|
||||
#: gridprnstrings.rspageandzoominfo
|
||||
#, object-pascal-format
|
||||
msgid "Page %d of %d, Zoom %d %%"
|
||||
msgstr "Page %d of %d, Zoom %d %%"
|
||||
#| msgid "Page %d of %d, Zoom %d %%"
|
||||
msgid "Page %0:d of %1:d, Zoom %2:d %%"
|
||||
msgstr "Page %0:d of %1:d, Zoom %2:d %%"
|
||||
|
||||
#: gridprnstrings.rspageinfo
|
||||
#, object-pascal-format
|
||||
msgid "Page %0:d of %1:d"
|
||||
msgstr "Page %0:d of %1:d"
|
||||
|
||||
#: gridprnstrings.rspageinfopanel
|
||||
msgid "Page numbers"
|
||||
msgstr "Page numbers"
|
||||
|
||||
#: gridprnstrings.rspagemargins
|
||||
msgctxt "gridprnstrings.rspagemargins"
|
||||
msgid "Margins"
|
||||
msgstr "Margins"
|
||||
|
||||
#: gridprnstrings.rspagemarginsconfig
|
||||
msgid "Page margins configuration"
|
||||
msgstr "Page margins configuration"
|
||||
|
||||
#: gridprnstrings.rsportraitpageorientation
|
||||
#: gridprnstrings.rspagemarginshint
|
||||
msgid "Page margins"
|
||||
msgstr "Page margins"
|
||||
|
||||
#: gridprnstrings.rspagesetuphint
|
||||
msgid "Page setup options"
|
||||
msgstr "Page setup options"
|
||||
|
||||
#: gridprnstrings.rsportrait
|
||||
msgctxt "gridprnstrings.rsportrait"
|
||||
msgid "Portrait"
|
||||
msgstr "Portrait"
|
||||
|
||||
#: gridprnstrings.rsportraithint
|
||||
msgctxt "gridprnstrings.rsportraithint"
|
||||
msgid "Portrait page orientation"
|
||||
msgstr "Portrait page orientation"
|
||||
|
||||
@ -101,6 +160,12 @@ msgid "Print"
|
||||
msgstr "Print"
|
||||
|
||||
#: gridprnstrings.rsprintcolsfirst
|
||||
msgctxt "gridprnstrings.rsprintcolsfirst"
|
||||
msgid "Columns first"
|
||||
msgstr "Columns first"
|
||||
|
||||
#: gridprnstrings.rsprintcolsfirsthint
|
||||
msgctxt "gridprnstrings.rsprintcolsfirsthint"
|
||||
msgid ""
|
||||
"First print columns from top to bottom,\n"
|
||||
"then print from left to right"
|
||||
@ -126,6 +191,12 @@ msgid "Preview..."
|
||||
msgstr "Preview..."
|
||||
|
||||
#: gridprnstrings.rsprintrowsfirst
|
||||
msgctxt "gridprnstrings.rsprintrowsfirst"
|
||||
msgid "Rows first"
|
||||
msgstr "Rows first"
|
||||
|
||||
#: gridprnstrings.rsprintrowsfirsthint
|
||||
msgctxt "gridprnstrings.rsprintrowsfirsthint"
|
||||
msgid ""
|
||||
"First print rows from left to right,\n"
|
||||
"then print from top to bottom"
|
||||
@ -181,6 +252,15 @@ msgstr "Top margin"
|
||||
msgid "Zoom in"
|
||||
msgstr "Zoom in"
|
||||
|
||||
#: gridprnstrings.rszoominfo
|
||||
#, object-pascal-format
|
||||
msgid "Zoom %2:d %%"
|
||||
msgstr "Zoom %2:d %%"
|
||||
|
||||
#: gridprnstrings.rszoominfopanel
|
||||
msgid "Zoom level"
|
||||
msgstr "Zoom level"
|
||||
|
||||
#: gridprnstrings.rszoomout
|
||||
msgid "Zoom out"
|
||||
msgstr "Zoom out"
|
||||
|
||||
@ -5,6 +5,24 @@ msgstr "Content-Type: text/plain; charset=UTF-8"
|
||||
msgid "Bottom margin"
|
||||
msgstr ""
|
||||
|
||||
#: gridprnstrings.rscenterhor
|
||||
msgctxt "gridprnstrings.rscenterhor"
|
||||
msgid "Center horizontally"
|
||||
msgstr ""
|
||||
|
||||
#: gridprnstrings.rscenterhorhint
|
||||
msgid "Center grid in page horizontally"
|
||||
msgstr ""
|
||||
|
||||
#: gridprnstrings.rscentervert
|
||||
msgctxt "gridprnstrings.rscentervert"
|
||||
msgid "Center vertically"
|
||||
msgstr ""
|
||||
|
||||
#: gridprnstrings.rscenterverthint
|
||||
msgid "Center grid in page vertically"
|
||||
msgstr ""
|
||||
|
||||
#: gridprnstrings.rsclose
|
||||
msgid "Close"
|
||||
msgstr ""
|
||||
@ -25,7 +43,13 @@ msgstr ""
|
||||
msgid "Header"
|
||||
msgstr ""
|
||||
|
||||
#: gridprnstrings.rsheaderfooterconfig
|
||||
#: gridprnstrings.rsheaderfooter
|
||||
msgctxt "gridprnstrings.rsheaderfooter"
|
||||
msgid "Header/footer..."
|
||||
msgstr ""
|
||||
|
||||
#: gridprnstrings.rsheaderfooterhint
|
||||
msgctxt "gridprnstrings.rsheaderfooterhint"
|
||||
msgid "Header/footer configuration"
|
||||
msgstr ""
|
||||
|
||||
@ -45,7 +69,13 @@ msgstr ""
|
||||
msgid "Header margin"
|
||||
msgstr ""
|
||||
|
||||
#: gridprnstrings.rslandscapepageorientation
|
||||
#: gridprnstrings.rslandscape
|
||||
msgctxt "gridprnstrings.rslandscape"
|
||||
msgid "Landscape"
|
||||
msgstr ""
|
||||
|
||||
#: gridprnstrings.rslandscapehint
|
||||
msgctxt "gridprnstrings.rslandscapehint"
|
||||
msgid "Landscape page orientation"
|
||||
msgstr ""
|
||||
|
||||
@ -67,14 +97,42 @@ msgstr ""
|
||||
|
||||
#: gridprnstrings.rspageandzoominfo
|
||||
#, object-pascal-format
|
||||
msgid "Page %d of %d, Zoom %d %%"
|
||||
msgid "Page %0:d of %1:d, Zoom %2:d %%"
|
||||
msgstr ""
|
||||
|
||||
#: gridprnstrings.rspageinfo
|
||||
#, object-pascal-format
|
||||
msgid "Page %0:d of %1:d"
|
||||
msgstr ""
|
||||
|
||||
#: gridprnstrings.rspageinfopanel
|
||||
msgid "Page numbers"
|
||||
msgstr ""
|
||||
|
||||
#: gridprnstrings.rspagemargins
|
||||
msgctxt "gridprnstrings.rspagemargins"
|
||||
msgid "Margins"
|
||||
msgstr ""
|
||||
|
||||
#: gridprnstrings.rspagemarginsconfig
|
||||
msgid "Page margins configuration"
|
||||
msgstr ""
|
||||
|
||||
#: gridprnstrings.rsportraitpageorientation
|
||||
#: gridprnstrings.rspagemarginshint
|
||||
msgid "Page margins"
|
||||
msgstr ""
|
||||
|
||||
#: gridprnstrings.rspagesetuphint
|
||||
msgid "Page setup options"
|
||||
msgstr ""
|
||||
|
||||
#: gridprnstrings.rsportrait
|
||||
msgctxt "gridprnstrings.rsportrait"
|
||||
msgid "Portrait"
|
||||
msgstr ""
|
||||
|
||||
#: gridprnstrings.rsportraithint
|
||||
msgctxt "gridprnstrings.rsportraithint"
|
||||
msgid "Portrait page orientation"
|
||||
msgstr ""
|
||||
|
||||
@ -83,6 +141,12 @@ msgid "Print"
|
||||
msgstr ""
|
||||
|
||||
#: gridprnstrings.rsprintcolsfirst
|
||||
msgctxt "gridprnstrings.rsprintcolsfirst"
|
||||
msgid "Columns first"
|
||||
msgstr ""
|
||||
|
||||
#: gridprnstrings.rsprintcolsfirsthint
|
||||
msgctxt "gridprnstrings.rsprintcolsfirsthint"
|
||||
msgid ""
|
||||
"First print columns from top to bottom,\n"
|
||||
"then print from left to right"
|
||||
@ -106,6 +170,12 @@ msgid "Preview..."
|
||||
msgstr ""
|
||||
|
||||
#: gridprnstrings.rsprintrowsfirst
|
||||
msgctxt "gridprnstrings.rsprintrowsfirst"
|
||||
msgid "Rows first"
|
||||
msgstr ""
|
||||
|
||||
#: gridprnstrings.rsprintrowsfirsthint
|
||||
msgctxt "gridprnstrings.rsprintrowsfirsthint"
|
||||
msgid ""
|
||||
"First print rows from left to right,\n"
|
||||
"then print from top to bottom"
|
||||
@ -159,6 +229,15 @@ msgstr ""
|
||||
msgid "Zoom in"
|
||||
msgstr ""
|
||||
|
||||
#: gridprnstrings.rszoominfo
|
||||
#, object-pascal-format
|
||||
msgid "Zoom %2:d %%"
|
||||
msgstr ""
|
||||
|
||||
#: gridprnstrings.rszoominfopanel
|
||||
msgid "Zoom level"
|
||||
msgstr ""
|
||||
|
||||
#: gridprnstrings.rszoomout
|
||||
msgid "Zoom out"
|
||||
msgstr ""
|
||||
|
||||
@ -9,7 +9,11 @@ msgstr ""
|
||||
"MIME-Version: 1.0\n"
|
||||
"Content-Type: text/plain; charset=UTF-8\n"
|
||||
"Content-Transfer-Encoding: 8bit\n"
|
||||
"X-Generator: Poedit 3.1.1\n"
|
||||
"X-Generator: Poedit 3.2\n"
|
||||
|
||||
#: main.rscenterbuttons
|
||||
msgid "Buttons for centering grid on page"
|
||||
msgstr "Schalter zum Zentrieren der Tabelle auf der Seite"
|
||||
|
||||
#: main.rsheaderfooterbutton
|
||||
msgid "Header/footer button"
|
||||
@ -31,10 +35,19 @@ msgstr "Kein Dialog"
|
||||
msgid "Page margins button"
|
||||
msgstr "Schalter für Seitenränder"
|
||||
|
||||
#: main.rspagenumberinfopanel
|
||||
msgid "Page number info"
|
||||
msgstr "Seitennummer-Information"
|
||||
|
||||
#: main.rspageorientationbuttons
|
||||
msgid "Page orientation buttons"
|
||||
msgstr "Schalter für Seitenausrichtung"
|
||||
|
||||
#: main.rspagesetupbutton
|
||||
msgctxt "main.rspagesetupbutton"
|
||||
msgid "Page setup dropdown-menu"
|
||||
msgstr "Seiteneinrichtungs-Menü"
|
||||
|
||||
#: main.rspagesetupdialog
|
||||
msgid "Page setup dialog"
|
||||
msgstr "Seiteneinrichtungsdialog"
|
||||
@ -55,6 +68,10 @@ msgstr "Druckreihenfolge: Spalten oder Zeilen zuerst"
|
||||
msgid "Zoom buttons"
|
||||
msgstr "Schalter für Vergrößerung"
|
||||
|
||||
#: main.rszoomlevelinfopanel
|
||||
msgid "Zoom level info"
|
||||
msgstr "Skalierungs-Information"
|
||||
|
||||
#: tmainform.btnpreview.caption
|
||||
msgid "Preview..."
|
||||
msgstr "Druckvorschau..."
|
||||
|
||||
@ -9,7 +9,11 @@ msgstr ""
|
||||
"MIME-Version: 1.0\n"
|
||||
"Content-Type: text/plain; charset=UTF-8\n"
|
||||
"Content-Transfer-Encoding: 8bit\n"
|
||||
"X-Generator: Poedit 3.1.1\n"
|
||||
"X-Generator: Poedit 3.2\n"
|
||||
|
||||
#: main.rscenterbuttons
|
||||
msgid "Buttons for centering grid on page"
|
||||
msgstr "Buttons for centering grid on page"
|
||||
|
||||
#: main.rsheaderfooterbutton
|
||||
msgid "Header/footer button"
|
||||
@ -31,10 +35,19 @@ msgstr "No printer dialog"
|
||||
msgid "Page margins button"
|
||||
msgstr "Page margins button"
|
||||
|
||||
#: main.rspagenumberinfopanel
|
||||
msgid "Page number info"
|
||||
msgstr "Page number info"
|
||||
|
||||
#: main.rspageorientationbuttons
|
||||
msgid "Page orientation buttons"
|
||||
msgstr "Page orientation buttons"
|
||||
|
||||
#: main.rspagesetupbutton
|
||||
msgctxt "main.rspagesetupbutton"
|
||||
msgid "Page setup dropdown-menu"
|
||||
msgstr "Page setup dropdown-menu"
|
||||
|
||||
#: main.rspagesetupdialog
|
||||
msgid "Page setup dialog"
|
||||
msgstr "Page setup dialog"
|
||||
@ -55,6 +68,10 @@ msgstr "Print order: colums first or rows first"
|
||||
msgid "Zoom buttons"
|
||||
msgstr "Zoom buttons"
|
||||
|
||||
#: main.rszoomlevelinfopanel
|
||||
msgid "Zoom level info"
|
||||
msgstr "Zoom level info"
|
||||
|
||||
#: tmainform.btnpreview.caption
|
||||
msgid "Preview..."
|
||||
msgstr "Preview..."
|
||||
|
||||
@ -1,6 +1,10 @@
|
||||
msgid ""
|
||||
msgstr "Content-Type: text/plain; charset=UTF-8"
|
||||
|
||||
#: main.rscenterbuttons
|
||||
msgid "Buttons for centering grid on page"
|
||||
msgstr ""
|
||||
|
||||
#: main.rsheaderfooterbutton
|
||||
msgid "Header/footer button"
|
||||
msgstr ""
|
||||
@ -21,10 +25,19 @@ msgstr ""
|
||||
msgid "Page margins button"
|
||||
msgstr ""
|
||||
|
||||
#: main.rspagenumberinfopanel
|
||||
msgid "Page number info"
|
||||
msgstr ""
|
||||
|
||||
#: main.rspageorientationbuttons
|
||||
msgid "Page orientation buttons"
|
||||
msgstr ""
|
||||
|
||||
#: main.rspagesetupbutton
|
||||
msgctxt "main.rspagesetupbutton"
|
||||
msgid "Page setup dropdown-menu"
|
||||
msgstr ""
|
||||
|
||||
#: main.rspagesetupdialog
|
||||
msgid "Page setup dialog"
|
||||
msgstr ""
|
||||
@ -45,6 +58,10 @@ msgstr ""
|
||||
msgid "Zoom buttons"
|
||||
msgstr ""
|
||||
|
||||
#: main.rszoomlevelinfopanel
|
||||
msgid "Zoom level info"
|
||||
msgstr ""
|
||||
|
||||
#: tmainform.btnpreview.caption
|
||||
msgid "Preview..."
|
||||
msgstr ""
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -4,41 +4,10 @@
|
||||
{"hash":13109985,"name":"tgridprintpreviewform.tbdivider1.caption","sourcebytes":[116,98,68,105,118,105,100,101,114,49],"value":"tbDivider1"},
|
||||
{"hash":13109986,"name":"tgridprintpreviewform.tbdivider2.caption","sourcebytes":[116,98,68,105,118,105,100,101,114,50],"value":"tbDivider2"},
|
||||
{"hash":13109987,"name":"tgridprintpreviewform.tbdivider3.caption","sourcebytes":[116,98,68,105,118,105,100,101,114,51],"value":"tbDivider3"},
|
||||
{"hash":14901026,"name":"tgridprintpreviewform.edpagenumber.text","sourcebytes":[101,100,80,97,103,101,78,117,109,98,101,114],"value":"edPageNumber"},
|
||||
{"hash":13109988,"name":"tgridprintpreviewform.tbdivider4.caption","sourcebytes":[116,98,68,105,118,105,100,101,114,52],"value":"tbDivider4"},
|
||||
{"hash":13109989,"name":"tgridprintpreviewform.tbdivider5.caption","sourcebytes":[116,98,68,105,118,105,100,101,114,53],"value":"tbDivider5"},
|
||||
{"hash":5738580,"name":"tgridprintpreviewform.acprint.caption","sourcebytes":[80,114,105,110,116],"value":"Print"},
|
||||
{"hash":5738580,"name":"tgridprintpreviewform.acprint.hint","sourcebytes":[80,114,105,110,116],"value":"Print"},
|
||||
{"hash":4863637,"name":"tgridprintpreviewform.acclose.caption","sourcebytes":[67,108,111,115,101],"value":"Close"},
|
||||
{"hash":4863637,"name":"tgridprintpreviewform.acclose.hint","sourcebytes":[67,108,111,115,101],"value":"Close"},
|
||||
{"hash":5048740,"name":"tgridprintpreviewform.acfirstpage.caption","sourcebytes":[70,105,114,115,116],"value":"First"},
|
||||
{"hash":217173685,"name":"tgridprintpreviewform.acfirstpage.hint","sourcebytes":[83,104,111,119,32,102,105,114,115,116,32,112,97,103,101],"value":"Show first page"},
|
||||
{"hash":147653555,"name":"tgridprintpreviewform.acprevpage.caption","sourcebytes":[80,114,101,118,105,111,117,115],"value":"Previous"},
|
||||
{"hash":239386821,"name":"tgridprintpreviewform.acprevpage.hint","sourcebytes":[83,104,111,119,32,112,114,101,118,105,111,117,115,32,112,97,103,101],"value":"Show previous page"},
|
||||
{"hash":347380,"name":"tgridprintpreviewform.acnextpage.caption","sourcebytes":[78,101,120,116],"value":"Next"},
|
||||
{"hash":923269,"name":"tgridprintpreviewform.acnextpage.hint","sourcebytes":[83,104,111,119,32,110,101,120,116,32,112,97,103,101],"value":"Show next page"},
|
||||
{"hash":338084,"name":"tgridprintpreviewform.aclastpage.caption","sourcebytes":[76,97,115,116],"value":"Last"},
|
||||
{"hash":84807877,"name":"tgridprintpreviewform.aclastpage.hint","sourcebytes":[83,104,111,119,32,108,97,115,116,32,112,97,103,101],"value":"Show last page"},
|
||||
{"hash":23459486,"name":"tgridprintpreviewform.aczoomin.caption","sourcebytes":[90,111,111,109,32,105,110],"value":"Zoom in"},
|
||||
{"hash":23459486,"name":"tgridprintpreviewform.aczoomin.hint","sourcebytes":[90,111,111,109,32,105,110],"value":"Zoom in"},
|
||||
{"hash":106918100,"name":"tgridprintpreviewform.aczoomout.caption","sourcebytes":[90,111,111,109,32,111,117,116],"value":"Zoom out"},
|
||||
{"hash":106918100,"name":"tgridprintpreviewform.aczoomout.hint","sourcebytes":[90,111,111,109,32,111,117,116],"value":"Zoom out"},
|
||||
{"hash":108902056,"name":"tgridprintpreviewform.aczoomtofitwidth.caption","sourcebytes":[70,105,116,32,119,105,100,116,104],"value":"Fit width"},
|
||||
{"hash":28176728,"name":"tgridprintpreviewform.aczoomtofitwidth.hint","sourcebytes":[90,111,111,109,32,116,111,32,102,105,116,32,119,105,100,116,104],"value":"Zoom to fit width"},
|
||||
{"hash":116338068,"name":"tgridprintpreviewform.aczoomtofitheight.caption","sourcebytes":[70,105,116,32,104,101,105,103,104,116],"value":"Fit height"},
|
||||
{"hash":122522228,"name":"tgridprintpreviewform.aczoomtofitheight.hint","sourcebytes":[90,111,111,109,32,116,111,32,102,105,116,32,112,97,103,101,32,104,101,105,103,104,116],"value":"Zoom to fit page height"},
|
||||
{"hash":213797,"name":"tgridprintpreviewform.aczoom100.caption","sourcebytes":[49,48,48,37],"value":"100%"},
|
||||
{"hash":23626005,"name":"tgridprintpreviewform.aczoom100.hint","sourcebytes":[79,114,105,103,105,110,97,108,32,115,105,122,101],"value":"Original size"},
|
||||
{"hash":59301891,"name":"tgridprintpreviewform.acpagemargins.caption","sourcebytes":[77,97,114,103,105,110,115],"value":"Margins"},
|
||||
{"hash":116328739,"name":"tgridprintpreviewform.acpagemargins.hint","sourcebytes":[80,97,103,101,32,109,97,114,103,105,110,115],"value":"Page margins"},
|
||||
{"hash":208537918,"name":"tgridprintpreviewform.acheaderfooter.caption","sourcebytes":[72,101,97,100,101,114,47,102,111,111,116,101,114,46,46,46],"value":"Header/footer..."},
|
||||
{"hash":120242270,"name":"tgridprintpreviewform.acheaderfooter.hint","sourcebytes":[72,101,97,100,101,114,47,102,111,111,116,101,114,32,99,111,110,102,105,103,117,114,97,116,105,111,110],"value":"Header/footer configuration"},
|
||||
{"hash":110855028,"name":"tgridprintpreviewform.acportrait.caption","sourcebytes":[80,111,114,116,114,97,105,116],"value":"Portrait"},
|
||||
{"hash":97583166,"name":"tgridprintpreviewform.acportrait.hint","sourcebytes":[80,111,114,116,114,97,105,116,32,112,97,103,101,32,111,114,105,101,110,116,97,116,105,111,110],"value":"Portrait page orientation"},
|
||||
{"hash":79284965,"name":"tgridprintpreviewform.aclandscape.caption","sourcebytes":[76,97,110,100,115,99,97,112,101],"value":"Landscape"},
|
||||
{"hash":214097038,"name":"tgridprintpreviewform.aclandscape.hint","sourcebytes":[76,97,110,100,115,99,97,112,101,32,112,97,103,101,32,111,114,105,101,110,116,97,116,105,111,110],"value":"Landscape page orientation"},
|
||||
{"hash":252759476,"name":"tgridprintpreviewform.acprintcolsfirst.caption","sourcebytes":[67,111,108,117,109,110,115,32,102,105,114,115,116],"value":"Columns first"},
|
||||
{"hash":179142132,"name":"tgridprintpreviewform.acprintcolsfirst.hint","sourcebytes":[70,105,114,115,116,32,112,114,105,110,116,32,99,111,108,117,109,110,115,32,102,114,111,109,32,116,111,112,32,116,111,32,98,111,116,116,111,109,44,13,10,116,104,101,110,32,112,114,105,110,116,32,102,114,111,109,32,108,101,102,116,32,116,111,32,114,105,103,104,116],"value":"First print columns from top to bottom,\r\nthen print from left to right"},
|
||||
{"hash":90873668,"name":"tgridprintpreviewform.acprintrowsfirst.caption","sourcebytes":[82,111,119,115,32,102,105,114,115,116],"value":"Rows first"},
|
||||
{"hash":159637965,"name":"tgridprintpreviewform.acprintrowsfirst.hint","sourcebytes":[70,105,114,115,116,32,112,114,105,110,116,32,114,111,119,115,32,102,114,111,109,32,108,101,102,116,32,116,111,32,114,105,103,104,116,44,13,10,116,104,101,110,32,112,114,105,110,116,32,102,114,111,109,32,116,111,112,32,116,111,32,98,111,116,116,111,109],"value":"First print rows from left to right,\r\nthen print from top to bottom"}
|
||||
{"hash":231980464,"name":"tgridprintpreviewform.tbpagesetup.caption","sourcebytes":[116,98,80,97,103,101,83,101,116,117,112],"value":"tbPageSetup"},
|
||||
{"hash":13109990,"name":"tgridprintpreviewform.tbdivider6.caption","sourcebytes":[116,98,68,105,118,105,100,101,114,54],"value":"tbDivider6"},
|
||||
{"hash":13109991,"name":"tgridprintpreviewform.tbdivider7.caption","sourcebytes":[116,98,68,105,118,105,100,101,114,55],"value":"tbDivider7"},
|
||||
{"hash":14901026,"name":"tgridprintpreviewform.edpagenumber.text","sourcebytes":[101,100,80,97,103,101,78,117,109,98,101,114],"value":"edPageNumber"}
|
||||
]}
|
||||
|
||||
@ -13,16 +13,24 @@ type
|
||||
TGridPrintPreviewZoomMode = (zmCustom, zmFitWidth, zmFitHeight);
|
||||
|
||||
TGridPrintPreviewOption = (ppoNavigationBtns, ppoNavigationEdit,
|
||||
ppoZoomBtns, ppoPageOrientationBtns, ppoMarginsBtn, ppoHeaderFooterBtn,
|
||||
ppoPrintOrderBtns
|
||||
ppoZoomBtns,
|
||||
ppoPageOrientationBtns, ppoMarginsBtn, ppoHeaderFooterBtn,
|
||||
ppoPrintOrderBtns, ppoCenterBtns,
|
||||
ppoPageSetupBtn,
|
||||
ppoPageNumberInfo,
|
||||
ppoZoomLevelInfo
|
||||
);
|
||||
TGridPrintPreviewOptions = set of TGridPrintPreviewOption;
|
||||
|
||||
const
|
||||
DEFAULT_GRIDPRN_OPTIONS = [
|
||||
ppoNavigationBtns, ppoNavigationEdit,
|
||||
ppoZoomBtns, ppoPageOrientationBtns, ppoMarginsBtn, ppoHeaderFooterBtn,
|
||||
ppoPrintOrderBtns
|
||||
ppoZoomBtns,
|
||||
// ppoPageOrientationBtns, ppoMarginsBtn, ppoHeaderFooterBtn,
|
||||
// ppoPrintOrderBtns, ppoCenterBtns,
|
||||
ppoPageSetupBtn,
|
||||
ppoPageNumberInfo,
|
||||
ppoZoomLevelInfo
|
||||
];
|
||||
|
||||
type
|
||||
@ -41,6 +49,8 @@ type
|
||||
acLandscape: TAction;
|
||||
acPrintColsFirst: TAction;
|
||||
acPrintRowsFirst: TAction;
|
||||
acCenterHor: TAction;
|
||||
acCenterVert: TAction;
|
||||
acZoom100: TAction;
|
||||
acZoomToFitWidth: TAction;
|
||||
acZoomToFitHeight: TAction;
|
||||
@ -49,8 +59,21 @@ type
|
||||
ActionList: TActionList;
|
||||
edPageNumber: TEdit;
|
||||
InfoPanel: TPanel;
|
||||
mnuHeaderFooter: TMenuItem;
|
||||
mnuPageMargins: TMenuItem;
|
||||
mnuLandscape: TMenuItem;
|
||||
mnuPortrait: TMenuItem;
|
||||
mnuPrintColsFirst: TMenuItem;
|
||||
mnuPrintRowsFirst: TMenuItem;
|
||||
mnuCenterHor: TMenuItem;
|
||||
mnuCenterVert: TMenuItem;
|
||||
PageSetupPopup: TPopupMenu;
|
||||
PageNoEditPanel: TPanel;
|
||||
PreviewImage: TImage;
|
||||
ScrollBox: TScrollBox;
|
||||
mnuSeparator3: TMenuItem;
|
||||
mnuSeparator2: TMenuItem;
|
||||
mnuSeparator1: TMenuItem;
|
||||
ToolbarImages: TImageList;
|
||||
ToolBar: TToolBar;
|
||||
tbPrint: TToolButton;
|
||||
@ -67,14 +90,21 @@ type
|
||||
tbZoomWidth: TToolButton;
|
||||
tbZoomHeight: TToolButton;
|
||||
tbZoom100: TToolButton;
|
||||
ToolButton1: TToolButton;
|
||||
tbPageMargins: TToolButton;
|
||||
tbHeaderFooter: TToolButton;
|
||||
ToolButton2: TToolButton;
|
||||
ToolButton3: TToolButton;
|
||||
tbDivider5: TToolButton;
|
||||
tbDivider4: TToolButton;
|
||||
tbPortraint: TToolButton;
|
||||
tbPortrait: TToolButton;
|
||||
tbLandscape: TToolButton;
|
||||
tbDivider5: TToolButton;
|
||||
tbPageSetup: TToolButton;
|
||||
tbPrintColsFirst: TToolButton;
|
||||
tbPrintRowsFirst: TToolButton;
|
||||
tbCenterHor: TToolButton;
|
||||
tbCenterVert: TToolButton;
|
||||
tbDivider6: TToolButton;
|
||||
tbDivider7: TToolButton;
|
||||
procedure acCenterHorExecute(Sender: TObject);
|
||||
procedure acCenterVertExecute(Sender: TObject);
|
||||
procedure acCloseExecute(Sender: TObject);
|
||||
procedure acFirstPageExecute(Sender: TObject);
|
||||
procedure acHeaderFooterExecute(Sender: TObject);
|
||||
@ -115,6 +145,7 @@ type
|
||||
FDraggedPos: Integer;
|
||||
FGridPrinter: TGridPrinter;
|
||||
FHintWindow: THintWindow;
|
||||
FInfoMask: String;
|
||||
FPageCount: Integer;
|
||||
FPageNumber: Integer;
|
||||
FOptions: TGridPrintPreviewOptions;
|
||||
@ -165,6 +196,8 @@ uses
|
||||
|
||||
const
|
||||
ZOOM_MULTIPLIER = 1.05;
|
||||
CHECKMARK = #$E2#$9C#$93; // Checkmark characer in UTF-8
|
||||
SPACE_CHECKMARK = ' ' + CHECKMARK;
|
||||
|
||||
{ Returns true when X1 is in range between X2-Delta and X2+Delta. }
|
||||
function InRange(X1, X2, Delta: Integer): Boolean; inline;
|
||||
@ -185,6 +218,16 @@ begin
|
||||
Result := X;
|
||||
end;
|
||||
|
||||
{ Appends a checkmark to the given caption string if AEnable is true.
|
||||
Meant to better show the checked state of menu items having icons. }
|
||||
function MarkAsChecked(ACaption: String; AEnable: Boolean): String;
|
||||
begin
|
||||
if AEnable then
|
||||
Result := ACaption + SPACE_CHECKMARK
|
||||
else
|
||||
Result := ACaption;
|
||||
end;
|
||||
|
||||
{ TGridPrintPreviewForm }
|
||||
|
||||
constructor TGridPrintPreviewForm.Create(AOwner: TComponent);
|
||||
@ -208,6 +251,32 @@ begin
|
||||
ModalResult := mrCancel;
|
||||
end;
|
||||
|
||||
procedure TGridPrintPreviewForm.acCenterHorExecute(Sender: TObject);
|
||||
begin
|
||||
if Assigned(FGridPrinter) then
|
||||
begin
|
||||
if acCenterHor.Checked then
|
||||
FGridPrinter.Options := FGridPrinter.Options + [gpoCenterHor]
|
||||
else
|
||||
FGridPrinter.Options := FGridPrinter.Options - [gpoCenterHor];
|
||||
acCenterHor.Caption := MarkAsChecked(RSCenterHor, acCenterHor.Checked);
|
||||
ShowPage(FPageNumber);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TGridPrintPreviewForm.acCenterVertExecute(Sender: TObject);
|
||||
begin
|
||||
if Assigned(FGridPrinter) then
|
||||
begin
|
||||
if acCenterVert.Checked then
|
||||
FGridPrinter.Options := FGridPrinter.Options + [gpoCenterVert]
|
||||
else
|
||||
FGridPrinter.Options := FGridPrinter.Options - [gpoCenterVert];
|
||||
acCenterVert.Caption := MarkAsChecked(RSCenterVert, acCenterVert.Checked);
|
||||
ShowPage(FPageNumber);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TGridPrintPreviewForm.acFirstPageExecute(Sender: TObject);
|
||||
begin
|
||||
ShowPage(1);
|
||||
@ -232,6 +301,8 @@ begin
|
||||
if Assigned(FGridPrinter) then
|
||||
begin
|
||||
acLandscape.Checked := true;
|
||||
acLandscape.Caption := MarkAsChecked(RSLandscape, true);
|
||||
acPortrait.Caption := MarkAsChecked(RSPortrait, false);
|
||||
FGridPrinter.Orientation := poLandscape;
|
||||
ShowPage(FPageNumber);
|
||||
end;
|
||||
@ -259,6 +330,8 @@ begin
|
||||
if Assigned(FGridPrinter) then
|
||||
begin
|
||||
acPortrait.Checked := true;
|
||||
acPortrait.Caption := MarkAsChecked(RSPortrait, true);
|
||||
acLandscape.Caption := MarkAsChecked(RSLandscape, false);
|
||||
FGridPrinter.Orientation := poPortrait;
|
||||
ShowPage(FPageNumber);
|
||||
end;
|
||||
@ -275,6 +348,8 @@ begin
|
||||
if Assigned(FGridPrinter) then
|
||||
begin
|
||||
acPrintColsFirst.Checked := true;
|
||||
acPrintColsFirst.Caption := MarkAsChecked(RSPrintColsFirst, true);
|
||||
acPrintRowsFirst.Caption := RSPrintRowsFirst;
|
||||
FGridPrinter.PrintOrder := poColsFirst;
|
||||
ShowPage(FPageNumber);
|
||||
end;
|
||||
@ -290,6 +365,8 @@ begin
|
||||
if Assigned(FGridPrinter) then
|
||||
begin
|
||||
acPrintRowsFirst.Checked := true;
|
||||
acPrintRowsFirst.Caption := MarkAsChecked(RSPrintRowsFirst, true);
|
||||
acPrintColsFirst.Caption := RSPrintColsFirst;
|
||||
FGridPrinter.PrintOrder := poRowsFirst;
|
||||
ShowPage(FPageNumber);
|
||||
end;
|
||||
@ -324,8 +401,10 @@ begin
|
||||
acLandscape.Enabled := (FGridPrinter <> nil);
|
||||
acHeaderFooter.Enabled := acPrint.Enabled;
|
||||
acPageMargins.Enabled := acPrint.Enabled;
|
||||
acPrintColsFirst.Enabled := acPrint.Enabled;;
|
||||
acPrintRowsFirst.Enabled := acPrint.Enabled;;
|
||||
acPrintColsFirst.Enabled := acPrint.Enabled;
|
||||
acPrintRowsFirst.Enabled := acPrint.Enabled;
|
||||
acCenterHor.Enabled := acPrint.Enabled;
|
||||
acCenterVert.Enabled := acPrint.Enabled;
|
||||
end;
|
||||
|
||||
procedure TGridPrintPreviewForm.acZoomInZoomOutExecute(Sender: TObject);
|
||||
@ -771,30 +850,45 @@ begin
|
||||
begin
|
||||
FGridPrinter := AValue;
|
||||
case FGridPrinter.Orientation of
|
||||
poPortrait: acPortrait.Checked := true;
|
||||
poLandscape: acLandscape.Checked := true;
|
||||
poPortrait:
|
||||
acPortrait.Checked := true;
|
||||
poLandscape:
|
||||
acLandscape.Checked := true;
|
||||
end;
|
||||
|
||||
case FGridPrinter.PrintOrder of
|
||||
poRowsFirst: acPrintRowsFirst.Checked := true;
|
||||
poColsFirst: acPrintColsFirst.Checked := true;
|
||||
poRowsFirst:
|
||||
acPrintRowsFirst.Checked := true;
|
||||
poColsFirst:
|
||||
acPrintColsFirst.Checked := true;
|
||||
end;
|
||||
acCenterHor.Checked := gpoCenterHor in FGridPrinter.Options;
|
||||
acCenterVert.Checked := gpoCenterVert in FGridPrinter.Options;
|
||||
|
||||
acPortrait.Caption := MarkAsChecked(RSPortrait, acPortrait.Checked);
|
||||
acLandscape.Caption := MarkAsChecked(RSLandscape, acLandscape.Checked);
|
||||
acPrintRowsFirst.Caption := MarkAsChecked(RSPrintRowsFirst, acPrintRowsFirst.Checked);
|
||||
acPrintColsFirst.Caption := MarkAsChecked(RSPrintColsFirst, acPrintColsFirst.Checked);
|
||||
acCenterHor.Caption := MarkAsChecked(RSCenterHor, acCenterHor.Checked);
|
||||
acCenterVert.Caption := MarkAsChecked(RSCenterVert, acCenterVert.Checked);
|
||||
end;
|
||||
SetOptions(FOptions);
|
||||
end;
|
||||
|
||||
procedure TGridPrintPreviewForm.SetOptions(AValue: TGridPrintPreviewOptions);
|
||||
begin
|
||||
if FOptions <> AValue then
|
||||
//if FOptions <> AValue then
|
||||
begin
|
||||
FOptions := AValue;
|
||||
|
||||
// Page navigation
|
||||
acFirstPage.Visible := ppoNavigationBtns in FOptions;
|
||||
acPrevpage.Visible := acFirstpage.Visible;
|
||||
acNextPage.Visible := acFirstPage.Visible;
|
||||
acLastPage.Visible := acFirstPage.Visible;
|
||||
edPageNumber.Visible := ppoNavigationEdit in FOptions;
|
||||
tbDivider1.Visible := acFirstPage.Visible or edPageNumber.Visible;
|
||||
PageNoEditPanel.Visible := ppoNavigationEdit in FOptions;
|
||||
tbDivider1.Visible := acFirstPage.Visible or PageNoEditPanel.Visible;
|
||||
|
||||
// Zooming
|
||||
acZoomIn.Visible := ppoZoomBtns in FOptions;
|
||||
acZoomOut.Visible := acZoomIn.Visible;
|
||||
acZoom100.Visible := acZoomIn.Visible;
|
||||
@ -802,15 +896,78 @@ begin
|
||||
acZoomtoFitHeight.Visible := acZoomIn.Visible;
|
||||
tbDivider2.Visible := acZoomIn.Visible;
|
||||
|
||||
acPortrait.Visible := ppoPageOrientationBtns in FOptions;
|
||||
acLandscape.Visible := acPortrait.Visible;
|
||||
acHeaderFooter.Visible := ppoHeaderFooterBtn in FOptions;
|
||||
acPageMargins.Visible := ppoMarginsBtn in FOptions;
|
||||
tbDivider3.Visible := acPortrait.Visible or acHeaderFooter.Visible or acPageMargins.Visible;
|
||||
// Page orientation, header/footer and page margins
|
||||
if ppoPageOrientationBtns in FOptions then
|
||||
begin
|
||||
tbPortrait.Action := acPortrait;
|
||||
tbLandscape.Action := acLandscape;
|
||||
end else
|
||||
begin
|
||||
tbPortrait.Action := nil;
|
||||
tbLandscape.Action := nil;
|
||||
end;
|
||||
tbPortrait.Visible := tbPortrait.Action <> nil;
|
||||
tbLandscape.Visible := tbLandscape.Action <> nil;
|
||||
|
||||
acPrintColsFirst.Visible := ppoPrintOrderBtns in FOptions;
|
||||
acPrintRowsFirst.Visible := acPrintColsFirst.Visible;
|
||||
tbDivider4.Visible := acPrintColsFirst.Visible;
|
||||
if ppoHeaderFooterBtn in FOptions then
|
||||
tbHeaderFooter.Action := acHeaderFooter
|
||||
else
|
||||
tbHeaderFooter.Action := nil;
|
||||
tbHeaderFooter.Visible := tbHeaderFooter.Action <> nil;
|
||||
|
||||
if ppoMarginsBtn in FOptions then
|
||||
tbPageMargins.Action := acPageMargins
|
||||
else
|
||||
tbPageMargins.Action := nil;
|
||||
tbPageMargins.Visible := tbPageMargins.Action <> nil;
|
||||
|
||||
tbDivider3.Visible :=
|
||||
(FOptions * [ppoPageOrientationBtns, ppoHeaderFooterBtn, ppoMarginsBtn] <> []);
|
||||
|
||||
// Print order
|
||||
if ppoPrintOrderBtns in FOptions then
|
||||
begin
|
||||
tbPrintColsFirst.Action := acPrintColsFirst;
|
||||
tbPrintRowsFirst.Action := acPrintRowsFirst;
|
||||
end else
|
||||
begin
|
||||
tbPrintColsFirst.Action := nil;
|
||||
tbPrintRowsFirst.Action := nil;
|
||||
end;
|
||||
tbPrintColsFirst.Visible := tbPrintColsFirst.Action <> nil;
|
||||
tbPrintRowsFirst.Visible := tbPrintRowsFirst.Action <> nil;
|
||||
tbDivider4.Visible := tbPrintColsFirst.Visible;
|
||||
|
||||
// Page centering
|
||||
if ppoCenterBtns in FOptions then
|
||||
begin
|
||||
tbCenterHor.Action := acCenterHor;
|
||||
tbCenterVert.Action := acCenterVert;
|
||||
end else
|
||||
begin
|
||||
tbCenterHor.Action := nil;
|
||||
tbCenterVert.Action := nil;
|
||||
end;
|
||||
tbCenterHor.Visible := tbCenterHor.Action <> nil;
|
||||
tbCenterVert.Visible := tbCenterVert.Action <> nil;
|
||||
tbDivider5.Visible := tbCenterHor.Action <> nil;
|
||||
|
||||
// Page setup dropdown button
|
||||
tbPageSetup.Visible := ppoPageSetupBtn in FOptions;
|
||||
tbDivider6.Visible := tbPageSetup.Visible;
|
||||
|
||||
// Page number info
|
||||
if FOptions * [ppoPageNumberInfo, ppoZoomLevelInfo] = [ppoPageNumberInfo, ppoZoomLevelInfo] then
|
||||
FInfoMask := RSPageAndZoomInfo
|
||||
else
|
||||
if (ppoPageNumberInfo in FOptions) then
|
||||
FInfoMask := RSPageInfo
|
||||
else
|
||||
if (ppoZoomLevelInfo in FOptions) then
|
||||
FInfoMask := RSZoomInfo
|
||||
else
|
||||
FInfoMask := '';
|
||||
InfoPanel.Visible := FInfoMask <> '';
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -877,9 +1034,14 @@ end;
|
||||
|
||||
procedure TGridPrintPreviewForm.UpdateInfoPanel;
|
||||
begin
|
||||
InfoPanel.Caption := Format(RSPageAndZoomInfo, [FPageNumber, FPageCount, FZoom]);
|
||||
InfoPanel.Width := InfoPanel.Canvas.TextWidth(InfoPanel.Caption);
|
||||
InfoPanel.Left := Toolbar.ClientWidth - InfoPanel.Width - 8;
|
||||
if FOptions * [ppoPageNumberInfo, ppoZoomLevelInfo] <> [] then
|
||||
begin
|
||||
InfoPanel.Caption := Format(FInfoMask, [FPageNumber, FPageCount, FZoom]);
|
||||
InfoPanel.Width := InfoPanel.Canvas.TextWidth(InfoPanel.Caption);
|
||||
InfoPanel.Left := Toolbar.ClientWidth - InfoPanel.Width - 8;
|
||||
InfoPanel.Show;
|
||||
end else
|
||||
InfoPanel.Hide;
|
||||
edPageNumber.Text := IntToStr(FPageNumber);
|
||||
end;
|
||||
|
||||
@ -890,6 +1052,14 @@ begin
|
||||
// Toolbar captions
|
||||
acPrint.Caption := RSPrint;
|
||||
acClose.Caption := RSClose;
|
||||
acPortrait.Caption := RSPortrait;
|
||||
acLandscape.Caption := RSLandscape;
|
||||
acHeaderFooter.Caption := RSHeaderFooter;
|
||||
acPageMargins.Caption := RSPageMargins;
|
||||
acPrintColsFirst.Caption := RSPrintColsFirst;
|
||||
acPrintRowsFirst.Caption := RSPrintRowsFirst;
|
||||
acCenterHor.Caption := RSCenterHor;
|
||||
acCenterVert.Caption := RSCenterVert;
|
||||
|
||||
// Toolbar hints
|
||||
acPrint.Hint := RSPrint;
|
||||
@ -904,11 +1074,15 @@ begin
|
||||
acZoomToFitHeight.Hint := RSZoomToFitPageHeight;
|
||||
acZoom100.Hint := RSOriginalSize;
|
||||
acPageMargins.Hint := RSPageMarginsConfig;
|
||||
acHeaderFooter.Hint := RSHeaderFooterConfig;
|
||||
acPortrait.Hint := RSPortraitPageOrientation;
|
||||
acLandscape.Hint := RSLandscapePageOrientation;
|
||||
acPrintColsFirst.Hint := RSPrintColsFirst;
|
||||
acPrintRowsFirst.Hint := RSPrintRowsFirst;
|
||||
acPortrait.Hint := RSPortraitHint;
|
||||
acLandscape.Hint := RSLandscapeHint;
|
||||
acHeaderFooter.Hint := RSHeaderFooterHint;
|
||||
acPageMargins.Hint := RSPageMarginsHint;
|
||||
acPrintColsFirst.Hint := RSPrintColsFirstHint;
|
||||
acPrintRowsFirst.Hint := RSPrintRowsFirstHint;
|
||||
acCenterHor.Hint := RSCenterHorHint;
|
||||
acCenterVert.Hint := RSCenterVertHint;
|
||||
tbPageSetup.Hint := RSPageSetupHint;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
@ -23,13 +23,27 @@ resourcestring
|
||||
RSZoomToFitPageHeight = 'Zoom to fit page height';
|
||||
RSOriginalSize = 'Original size (100%)';
|
||||
RSPageMarginsConfig = 'Page margins configuration';
|
||||
RSHeaderFooterConfig = 'Header/footer configuration';
|
||||
RSPortraitPageOrientation = 'Portrait page orientation';
|
||||
RSLandscapePageOrientation = 'Landscape page orientation';
|
||||
RSPrintColsFirst = 'First print columns from top to bottom,' + LineEnding +
|
||||
RSPortrait = 'Portrait';
|
||||
RSPortraitHint = 'Portrait page orientation';
|
||||
RSLandscape = 'Landscape';
|
||||
RSLandscapeHint = 'Landscape page orientation';
|
||||
RSHeaderFooter = 'Header/footer...';
|
||||
RSHeaderFooterHint = 'Header/footer configuration';
|
||||
RSPageMargins = 'Margins';
|
||||
RSPageMarginsHint = 'Page margins';
|
||||
RSPrintColsFirst = 'Columns first';
|
||||
RSPrintColsFirstHint = 'First print columns from top to bottom,' + LineEnding +
|
||||
'then print from left to right';
|
||||
RSPrintRowsFirst = 'First print rows from left to right,' + LineEnding +
|
||||
RSPrintRowsFirst = 'Rows first';
|
||||
RSPrintRowsFirstHint = 'First print rows from left to right,' + LineEnding +
|
||||
'then print from top to bottom';
|
||||
RSCenterHor = 'Center horizontally';
|
||||
RSCenterHorHint = 'Center grid in page horizontally';
|
||||
RSCenterVert = 'Center vertically';
|
||||
RSCenterVertHint = 'Center grid in page vertically';
|
||||
RSPageSetupHint = 'Page setup options';
|
||||
RSPageInfoPanel = 'Page numbers';
|
||||
RSZoomInfoPanel = 'Zoom level';
|
||||
|
||||
RSLeftMargin = 'Left margin';
|
||||
RSTopMargin = 'Top margin';
|
||||
@ -38,7 +52,9 @@ resourcestring
|
||||
RSHeaderMargin = 'Header margin';
|
||||
RSFooterMargin = 'Footer margin';
|
||||
|
||||
RSPageAndZoomInfo = 'Page %d of %d, Zoom %d %%';
|
||||
RSPageInfo = 'Page %0:d of %1:d';
|
||||
RSZoomInfo = 'Zoom %2:d %%';
|
||||
RSPageAndZoomInfo = 'Page %0:d of %1:d, Zoom %2:d %%';
|
||||
|
||||
// Header / footer
|
||||
RSHeader = 'Header';
|
||||
|
||||
Reference in New Issue
Block a user