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

Printers: Remove empty Margins tab in Unix Printer Props dialog. Patch from AlexeyT.

Browse Source 
git-svn-id: trunk@58637 -
This commit is contained in:
juha 2018-07-26 08:58:41 +00:00
parent 323f78d041
commit 6700ae635e
2 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/printers/unix/udlgpropertiesprinter.lfm
View File

@ -12,7 +12,7 @@ object dlgpropertiesprinter: Tdlgpropertiesprinter
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = dlgpropertiesprinterSHOW OnShow = dlgpropertiesprinterSHOW
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.5' LCLVersion = '1.9.0.0'
object Notebook1: TPageControl object Notebook1: TPageControl
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
@ -311,9 +311,6 @@ object dlgpropertiesprinter: Tdlgpropertiesprinter
TabOrder = 3 TabOrder = 3
end end
end end
object pgMargins: TTabSheet
Caption = 'Margins'
end
object pgAdvanced: TTabSheet object pgAdvanced: TTabSheet
Caption = 'Advanced' Caption = 'Advanced'
ClientHeight = 396 ClientHeight = 396

2
components/printers/unix/udlgpropertiesprinter.pp
View File

@ -58,7 +58,6 @@ type
pgAdvanced: TTabSheet; pgAdvanced: TTabSheet;
Notebook1: TPageControl; Notebook1: TPageControl;
pgGeneral: TTabSheet; pgGeneral: TTabSheet;
pgMargins: TTabSheet;
rbSheet1: TRADIOBUTTON; rbSheet1: TRADIOBUTTON;
rbSheet2: TRADIOBUTTON; rbSheet2: TRADIOBUTTON;
rbSheet4: TRADIOBUTTON; rbSheet4: TRADIOBUTTON;
@ -358,7 +357,6 @@ begin
labBanStart.Caption := p4lrsStart; labBanStart.Caption := p4lrsStart;
labBanEnd.Caption := p4lrsEnd; labBanEnd.Caption := p4lrsEnd;
gbPagesSheet.Caption := ' '+p4lrsPagesPerSheet+' '; gbPagesSheet.Caption := ' '+p4lrsPagesPerSheet+' ';
pgMargins.Caption := p4lrsMargins;
pgAdvanced.Caption := p4lrsAdvanced; pgAdvanced.Caption := p4lrsAdvanced;
SetupOptions; SetupOptions;