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

GridPrinter: Fix minor oversights in previous commit.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8610 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-11-11 23:09:27 +00:00
parent 1fe764c55e
commit 6cc0a5829a
5 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/gridprinter/languages/gridprnstrings.de.po
View File

@ -56,7 +56,7 @@ msgstr "Kopfzeile"
#: gridprnstrings.rsheaderfooter #: gridprnstrings.rsheaderfooter
msgctxt "gridprnstrings.rsheaderfooter" msgctxt "gridprnstrings.rsheaderfooter"
msgid "Header/footer..." msgid "Header/footer..."
msgstr "Kopf-/Fußzeile" msgstr "Kopf-/Fußzeile..."
#: gridprnstrings.rsheaderfooterhint #: gridprnstrings.rsheaderfooterhint
msgctxt "gridprnstrings.rsheaderfooterhint" msgctxt "gridprnstrings.rsheaderfooterhint"
@ -116,7 +116,7 @@ msgstr "Originalgröße (100%)"
#: gridprnstrings.rspageandzoominfo #: gridprnstrings.rspageandzoominfo
#, object-pascal-format #, object-pascal-format
msgid "Page %0:d of %1:d, Zoom %2:d %%" msgid "Page %0:d of %1:d, Zoom %2:d %%"
msgstr "Seite %d von %d, Skalierung %d %%" msgstr "Seite %0:d von %1:d, Skalierung %2:d %%"
#: gridprnstrings.rspageinfo #: gridprnstrings.rspageinfo
#, object-pascal-format #, object-pascal-format
@ -137,8 +137,8 @@ msgid "Page margins configuration"
msgstr "Einstellung der Seitenränder" msgstr "Einstellung der Seitenränder"
#: gridprnstrings.rspagemarginshint #: gridprnstrings.rspagemarginshint
msgid "Page margins" msgid "Show/hide page margins"
msgstr "Seitenränder" msgstr "Seitenränder anzeigen/verbergen"
#: gridprnstrings.rspagesetuphint #: gridprnstrings.rspagesetuphint
msgid "Page setup options" msgid "Page setup options"

6
components/gridprinter/languages/gridprnstrings.en.po
View File

@ -115,7 +115,6 @@ msgstr "Original size (100%)"
#: gridprnstrings.rspageandzoominfo #: gridprnstrings.rspageandzoominfo
#, object-pascal-format #, object-pascal-format
#| msgid "Page %d of %d, Zoom %d %%"
msgid "Page %0:d of %1:d, Zoom %2:d %%" msgid "Page %0:d of %1:d, Zoom %2:d %%"
msgstr "Page %0:d of %1:d, Zoom %2:d %%" msgstr "Page %0:d of %1:d, Zoom %2:d %%"
@ -138,8 +137,9 @@ msgid "Page margins configuration"
msgstr "Page margins configuration" msgstr "Page margins configuration"
#: gridprnstrings.rspagemarginshint #: gridprnstrings.rspagemarginshint
msgid "Page margins" #| msgid "Page margins"
msgstr "Page margins" msgid "Show/hide page margins"
msgstr "Show/hide page margins"
#: gridprnstrings.rspagesetuphint #: gridprnstrings.rspagesetuphint
msgid "Page setup options" msgid "Page setup options"

2
components/gridprinter/languages/gridprnstrings.pot
View File

@ -119,7 +119,7 @@ msgid "Page margins configuration"
msgstr "" msgstr ""
#: gridprnstrings.rspagemarginshint #: gridprnstrings.rspagemarginshint
msgid "Page margins" msgid "Show/hide page margins"
msgstr "" msgstr ""
#: gridprnstrings.rspagesetuphint #: gridprnstrings.rspagesetuphint

1
components/gridprinter/source/gridprnpreviewform.pas
View File

@ -322,6 +322,7 @@ end;
procedure TGridPrintPreviewForm.acPageMarginsExecute(Sender: TObject); procedure TGridPrintPreviewForm.acPageMarginsExecute(Sender: TObject);
begin begin
acPageMargins.Checked := not acPageMargins.Checked; acPageMargins.Checked := not acPageMargins.Checked;
acPageMargins.Caption := MarkAsChecked(RSPageMargins, acPageMargins.Checked);
PreviewImage.Invalidate; PreviewImage.Invalidate;
end; end;

2
components/gridprinter/source/gridprnstrings.pas
View File

@ -30,7 +30,7 @@ resourcestring
RSHeaderFooter = 'Header/footer...'; RSHeaderFooter = 'Header/footer...';
RSHeaderFooterHint = 'Header/footer configuration'; RSHeaderFooterHint = 'Header/footer configuration';
RSPageMargins = 'Margins'; RSPageMargins = 'Margins';
RSPageMarginsHint = 'Page margins'; RSPageMarginsHint = 'Show/hide page margins';
RSPrintColsFirst = 'Columns first'; RSPrintColsFirst = 'Columns first';
RSPrintColsFirstHint = 'First print columns from top to bottom,' + LineEnding + RSPrintColsFirstHint = 'First print columns from top to bottom,' + LineEnding +
'then print from left to right'; 'then print from left to right';