paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 14:19:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

Printers: Fix tab order in Unix Printer Props dialog. Patch from AlexeyT.

Browse Source 
git-svn-id: trunk@58640 -
This commit is contained in:
juha 2018-07-27 10:24:31 +00:00
parent e675379977
commit 90b69249a0
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
components/printers/unix/udlgselectprinter.lfm
View File

@ -12,7 +12,7 @@ object dlgSelectPrinter: TdlgSelectPrinter
OnCreate = dlgSelectPrinterCREATE OnCreate = dlgSelectPrinterCREATE
OnShow = dlgSelectPrinterSHOW OnShow = dlgSelectPrinterSHOW
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.5' LCLVersion = '1.9.0.0'
object PrinterGroupbox: TGroupBox object PrinterGroupbox: TGroupBox
Left = 6 Left = 6
Height = 137 Height = 137
@ -110,7 +110,7 @@ object dlgSelectPrinter: TdlgSelectPrinter
AutoSize = True AutoSize = True
Caption = 'Properties ...' Caption = 'Properties ...'
OnClick = btnPropCLICK OnClick = btnPropCLICK
TabOrder = 0 TabOrder = 1
end end
object cbPrintToFile: TCheckBox object cbPrintToFile: TCheckBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
@ -120,7 +120,7 @@ object dlgSelectPrinter: TdlgSelectPrinter
Width = 101 Width = 101
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
Caption = 'Print to file' Caption = 'Print to file'
TabOrder = 1 TabOrder = 2
end end
object cbPrinters: TComboBox object cbPrinters: TComboBox
AnchorSideRight.Control = btnProp AnchorSideRight.Control = btnProp
@ -134,7 +134,7 @@ object dlgSelectPrinter: TdlgSelectPrinter
OnChange = cbPrintersCHANGE OnChange = cbPrintersCHANGE
OnKeyPress = cbPrintersKEYPRESS OnKeyPress = cbPrintersKEYPRESS
Style = csDropDownList Style = csDropDownList
TabOrder = 2 TabOrder = 0
end end
end end
object NbOpts: TPageControl object NbOpts: TPageControl
@ -201,7 +201,7 @@ object dlgSelectPrinter: TdlgSelectPrinter
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 15 BorderSpacing.Left = 15
BorderSpacing.Right = 6 BorderSpacing.Right = 6
TabOrder = 0 TabOrder = 4
end end
object edPageSet: TComboBox object edPageSet: TComboBox
AnchorSideTop.Control = labPage AnchorSideTop.Control = labPage
@ -222,7 +222,7 @@ object dlgSelectPrinter: TdlgSelectPrinter
'Even pages' 'Even pages'
) )
Style = csDropDownList Style = csDropDownList
TabOrder = 1 TabOrder = 5
Text = 'All pages' Text = 'All pages'
end end
object rbCurrentPage: TRadioButton object rbCurrentPage: TRadioButton
@ -236,7 +236,7 @@ object dlgSelectPrinter: TdlgSelectPrinter
Caption = 'Current page' Caption = 'Current page'
DragCursor = crDefault DragCursor = crDefault
Enabled = False Enabled = False
TabOrder = 2 TabOrder = 1
end end
object rbRange: TRadioButton object rbRange: TRadioButton
AnchorSideTop.Control = rbSelection AnchorSideTop.Control = rbSelection
@ -248,7 +248,7 @@ object dlgSelectPrinter: TdlgSelectPrinter
BorderSpacing.Around = 2 BorderSpacing.Around = 2
Caption = 'Range' Caption = 'Range'
DragCursor = crDefault DragCursor = crDefault
TabOrder = 4 TabOrder = 3
end end
object rbAllPage: TRadioButton object rbAllPage: TRadioButton
Left = 8 Left = 8
@ -258,7 +258,7 @@ object dlgSelectPrinter: TdlgSelectPrinter
Caption = 'All ' Caption = 'All '
Checked = True Checked = True
DragCursor = crDefault DragCursor = crDefault
TabOrder = 3 TabOrder = 0
TabStop = True TabStop = True
end end
object rbSelection: TRadioButton object rbSelection: TRadioButton
@ -272,7 +272,7 @@ object dlgSelectPrinter: TdlgSelectPrinter
Caption = 'Selection' Caption = 'Selection'
DragCursor = crDefault DragCursor = crDefault
Enabled = False Enabled = False
TabOrder = 5 TabOrder = 2
end end
end end
object gbCopies: TGroupBox object gbCopies: TGroupBox
@ -335,7 +335,7 @@ object dlgSelectPrinter: TdlgSelectPrinter
Caption = 'Collate' Caption = 'Collate'
DragCursor = crDefault DragCursor = crDefault
OnClick = cbReverseCLICK OnClick = cbReverseCLICK
TabOrder = 2 TabOrder = 1
end end
object cbReverse: TCheckBox object cbReverse: TCheckBox
AnchorSideTop.Control = cbCollate AnchorSideTop.Control = cbCollate
@ -349,7 +349,7 @@ object dlgSelectPrinter: TdlgSelectPrinter
Caption = 'Reverse' Caption = 'Reverse'
DragCursor = crDefault DragCursor = crDefault
OnClick = cbReverseCLICK OnClick = cbReverseCLICK
TabOrder = 1 TabOrder = 2
end end
end end
end end
@ -469,7 +469,7 @@ object dlgSelectPrinter: TdlgSelectPrinter
Caption = 'Cancel' Caption = 'Cancel'
Constraints.MinWidth = 80 Constraints.MinWidth = 80
ModalResult = 2 ModalResult = 2
TabOrder = 0 TabOrder = 3
end end
object btnPrint: TButton object btnPrint: TButton
Left = 391 Left = 391
@ -484,7 +484,7 @@ object dlgSelectPrinter: TdlgSelectPrinter
Default = True Default = True
ModalResult = 1 ModalResult = 1
OnClick = btnPrintCLICK OnClick = btnPrintCLICK
TabOrder = 1 TabOrder = 2
end end
object btnReduc: TButton object btnReduc: TButton
Left = 6 Left = 6
@ -497,7 +497,7 @@ object dlgSelectPrinter: TdlgSelectPrinter
Caption = 'More ...' Caption = 'More ...'
Constraints.MinWidth = 80 Constraints.MinWidth = 80
OnClick = btnReducCLICK OnClick = btnReducCLICK
TabOrder = 2 TabOrder = 0
end end
object btnPreview: TButton object btnPreview: TButton
Left = 305 Left = 305
@ -510,7 +510,7 @@ object dlgSelectPrinter: TdlgSelectPrinter
Caption = 'Preview' Caption = 'Preview'
Constraints.MinWidth = 80 Constraints.MinWidth = 80
ModalResult = 6 ModalResult = 6
TabOrder = 3 TabOrder = 1
end end
end end
object panLabels: TPanel object panLabels: TPanel