paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 03:39:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

printers4lazarus: unitx: select dialog nicer buttons, patch #28798 from Alexey

Browse Source 
git-svn-id: trunk@50242 -
This commit is contained in:
mattias 2015-11-06 23:11:39 +00:00
parent ad92302ba7
commit d6128fafcf
2 changed files with 14 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -458,27 +458,29 @@ object dlgSelectPrinter: TdlgSelectPrinter
TabOrder = 2 TabOrder = 2
TabStop = True TabStop = True
object btnCancel: TButton object btnCancel: TButton
Left = 501 Left = 477
Height = 29 Height = 29
Top = 6 Top = 6
Width = 56 Width = 80
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Cancel = True Cancel = True
Caption = 'Cancel' Caption = 'Cancel'
Constraints.MinWidth = 80
ModalResult = 2 ModalResult = 2
TabOrder = 0 TabOrder = 0
end end
object btnPrint: TButton object btnPrint: TButton
Left = 450 Left = 391
Height = 29 Height = 29
Top = 6 Top = 6
Width = 45 Width = 80
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Print' Caption = 'Print'
Constraints.MinWidth = 80
Default = True Default = True
ModalResult = 1 ModalResult = 1
OnClick = btnPrintCLICK OnClick = btnPrintCLICK
@ -488,23 +490,25 @@ object dlgSelectPrinter: TdlgSelectPrinter
Left = 6 Left = 6
Height = 29 Height = 29
Top = 6 Top = 6
Width = 63 Width = 80
Align = alLeft Align = alLeft
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'More ...' Caption = 'More ...'
Constraints.MinWidth = 80
OnClick = btnReducCLICK OnClick = btnReducCLICK
TabOrder = 2 TabOrder = 2
end end
object btnPreview: TButton object btnPreview: TButton
Left = 379 Left = 305
Height = 29 Height = 29
Top = 6 Top = 6
Width = 65 Width = 80
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Preview' Caption = 'Preview'
Constraints.MinWidth = 80
ModalResult = 6 ModalResult = 6
TabOrder = 3 TabOrder = 3
end end

6
components/printers/unix/udlgselectprinter.pp
View File

@ -156,7 +156,7 @@ begin
Inherited Create(aOwner); Inherited Create(aOwner);
FHeightInit:=Height; FHeightInit:=Height;
FHeightDec:=NbOpts.Height; FHeightDec:=NbOpts.Height+6;
if WidgetSet.LCLPlatform = lpCarbon then if WidgetSet.LCLPlatform = lpCarbon then
begin //Can't hide tabs with button on Carbon, so just expand dialog. begin //Can't hide tabs with button on Carbon, so just expand dialog.
@ -443,9 +443,9 @@ begin
Constraints.MaxHeight:=Height; Constraints.MaxHeight:=Height;
if not FBig then if not FBig then
btnReduc.Caption:='More ...' btnReduc.Caption:='More >>'
else else
btnReduc.Caption:='Less ...'; btnReduc.Caption:='<< Less';
end; end;
procedure TdlgSelectPrinter.btnPrintCLICK(Sender: TObject); procedure TdlgSelectPrinter.btnPrintCLICK(Sender: TObject);