paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 20:40:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

Printers: PageSetupDialog i18n fix. Issue #33568, patch from AlexeyT.

Browse Source 
git-svn-id: trunk@57618 -
This commit is contained in:
juha 2018-04-07 10:53:18 +00:00
parent ffd19f25dc
commit 2f8a803b41
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/printers/printer4lazstrconst.pas
View File

@ -35,6 +35,8 @@ resourcestring
p4lrsMargins = 'Margins';
p4lrsAdvanced = 'Advanced';
p4lrsNoDefaultPrinter = 'No default printer found';
p4lrsShortUnitsMm = '(mm)';
p4lrsShortUnitsInches = '(inches)';
implementation

4
components/printers/unix/cupsprndialogs.inc
View File

@ -111,7 +111,7 @@ begin
begin
Dlg.frmPageSetup.UnitInches:= true;
with Dlg.frmPageSetup.gpMargins do
Caption:= Caption+' (inches)';
Caption:= Caption+' '+p4lrsShortUnitsInches;
NDigits:= 2;
NInc:= 0.01;
// according to MSDN, WinAPI margin rect needs values in 1/1000 of inches,
@ -123,7 +123,7 @@ begin
begin
Dlg.frmPageSetup.UnitInches:= false;
with Dlg.frmPageSetup.gpMargins do
Caption:= Caption+' (mm)';
Caption:= Caption+' '+p4lrsShortUnitsMm;
NDigits:= 0;
NInc:= 1.0;
NScale:= 100;