paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-10 03:48:27 +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
TabStop = True
object btnCancel: TButton
Left = 501
Left = 477
Height = 29
Top = 6
Width = 56
Width = 80
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
Cancel = True
Caption = 'Cancel'
Constraints.MinWidth = 80
ModalResult = 2
TabOrder = 0
end
object btnPrint: TButton
Left = 450
Left = 391
Height = 29
Top = 6
Width = 45
Width = 80
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Print'
Constraints.MinWidth = 80
Default = True
ModalResult = 1
OnClick = btnPrintCLICK
@ -488,23 +490,25 @@ object dlgSelectPrinter: TdlgSelectPrinter
Left = 6
Height = 29
Top = 6
Width = 63
Width = 80
Align = alLeft
AutoSize = True
BorderSpacing.Around = 6
Caption = 'More ...'
Constraints.MinWidth = 80
OnClick = btnReducCLICK
TabOrder = 2
end
object btnPreview: TButton
Left = 379
Left = 305
Height = 29
Top = 6
Width = 65
Width = 80
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Preview'
Constraints.MinWidth = 80
ModalResult = 6
TabOrder = 3
end

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

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