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

IDE: Make more buttons with "..." wider. Issue #29493, patch from Alexey Torgashin.

Browse Source 
git-svn-id: trunk@51474 -
This commit is contained in:
juha 2016-02-02 00:20:23 +00:00
parent d7e782191a
commit 405f94df44
4 changed files with 56 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

67
ide/patheditordlg.lfm
View File

@ -13,10 +13,10 @@ object PathEditorDialog: TPathEditorDialog
OnResize = FormResize OnResize = FormResize
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.5' LCLVersion = '1.7'
object PathGroupBox: TGroupBox object PathGroupBox: TGroupBox
Left = 6 Left = 6
Height = 219 Height = 218
Top = 6 Top = 6
Width = 541 Width = 541
Align = alClient Align = alClient
@ -24,7 +24,7 @@ object PathEditorDialog: TPathEditorDialog
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'PathGroupBox' Caption = 'PathGroupBox'
ClientHeight = 202 ClientHeight = 199
ClientWidth = 537 ClientWidth = 537
Constraints.MinHeight = 194 Constraints.MinHeight = 194
Constraints.MinWidth = 488 Constraints.MinWidth = 488
@ -37,7 +37,7 @@ object PathEditorDialog: TPathEditorDialog
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 506 Left = 506
Height = 25 Height = 25
Top = 47 Top = 46
Width = 25 Width = 25
Anchors = [akRight] Anchors = [akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -56,7 +56,7 @@ object PathEditorDialog: TPathEditorDialog
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 506 Left = 506
Height = 25 Height = 25
Top = 86 Top = 85
Width = 25 Width = 25
BorderSpacing.Around = 14 BorderSpacing.Around = 14
GlyphShowMode = gsmAlways GlyphShowMode = gsmAlways
@ -70,10 +70,10 @@ object PathEditorDialog: TPathEditorDialog
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = PathGroupBox AnchorSideBottom.Control = PathGroupBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 186 Left = 215
Height = 27 Height = 29
Top = 169 Top = 164
Width = 89 Width = 102
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -90,7 +90,7 @@ object PathEditorDialog: TPathEditorDialog
AnchorSideRight.Control = MoveUpButton AnchorSideRight.Control = MoveUpButton
AnchorSideBottom.Control = DirectoryEdit AnchorSideBottom.Control = DirectoryEdit
Left = 6 Left = 6
Height = 132 Height = 125
Top = 6 Top = 6
Width = 494 Width = 494
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
@ -111,9 +111,9 @@ object PathEditorDialog: TPathEditorDialog
AnchorSideBottom.Control = PathGroupBox AnchorSideBottom.Control = PathGroupBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 27 Height = 29
Top = 169 Top = 164
Width = 95 Width = 111
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -129,10 +129,10 @@ object PathEditorDialog: TPathEditorDialog
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = PathGroupBox AnchorSideBottom.Control = PathGroupBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 107 Left = 123
Height = 27 Height = 29
Top = 169 Top = 164
Width = 73 Width = 86
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -148,10 +148,10 @@ object PathEditorDialog: TPathEditorDialog
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = PathGroupBox AnchorSideBottom.Control = PathGroupBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 281 Left = 323
Height = 27 Height = 29
Top = 169 Top = 164
Width = 154 Width = 184
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -167,12 +167,12 @@ object PathEditorDialog: TPathEditorDialog
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ReplaceButton AnchorSideBottom.Control = ReplaceButton
Left = 6 Left = 6
Height = 25 Height = 27
Top = 138 Top = 131
Width = 494 Width = 494
OnAcceptDirectory = DirectoryEditAcceptDirectory OnAcceptDirectory = DirectoryEditAcceptDirectory
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 50
NumGlyphs = 1 NumGlyphs = 1
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
MaxLength = 0 MaxLength = 0
@ -184,13 +184,13 @@ object PathEditorDialog: TPathEditorDialog
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 164 Height = 164
Top = 242 Top = 241
Width = 541 Width = 541
Align = alBottom Align = alBottom
Anchors = [] Anchors = []
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'TemplateGroupBox' Caption = 'TemplateGroupBox'
ClientHeight = 147 ClientHeight = 145
ClientWidth = 537 ClientWidth = 537
TabOrder = 1 TabOrder = 1
object TemplatesListBox: TListBox object TemplatesListBox: TListBox
@ -200,7 +200,7 @@ object PathEditorDialog: TPathEditorDialog
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = AddTemplateButton AnchorSideBottom.Control = AddTemplateButton
Left = 6 Left = 6
Height = 102 Height = 98
Top = 6 Top = 6
Width = 525 Width = 525
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
@ -218,9 +218,9 @@ object PathEditorDialog: TPathEditorDialog
AnchorSideBottom.Control = TemplateGroupBox AnchorSideBottom.Control = TemplateGroupBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 27 Height = 29
Top = 114 Top = 110
Width = 124 Width = 149
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -233,8 +233,8 @@ object PathEditorDialog: TPathEditorDialog
end end
object ButtonPanel1: TButtonPanel object ButtonPanel1: TButtonPanel
Left = 6 Left = 6
Height = 28 Height = 29
Top = 412 Top = 411
Width = 541 Width = 541
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True OKButton.DefaultCaption = True
@ -252,7 +252,7 @@ object PathEditorDialog: TPathEditorDialog
Cursor = crVSplit Cursor = crVSplit
Left = 0 Left = 0
Height = 5 Height = 5
Top = 231 Top = 230
Width = 553 Width = 553
Align = alBottom Align = alBottom
ResizeAnchor = akBottom ResizeAnchor = akBottom
@ -263,6 +263,7 @@ object PathEditorDialog: TPathEditorDialog
top = 50 top = 50
end end
object PopupMenu1: TPopupMenu object PopupMenu1: TPopupMenu
OwnerDraw = False
left = 130 left = 130
top = 100 top = 100
object CopyMenuItem: TMenuItem object CopyMenuItem: TMenuItem

24
packager/frames/package_i18n_options.lfm
View File

@ -15,23 +15,23 @@ object PackageI18NOptionsFrame: TPackageI18NOptionsFrame
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 76 Height = 100
Top = 25 Top = 30
Width = 551 Width = 551
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'i18n Options' Caption = 'i18n Options'
ClientHeight = 56 ClientHeight = 81
ClientWidth = 547 ClientWidth = 547
TabOrder = 1 TabOrder = 1
object PoOutDirLabel: TLabel object PoOutDirLabel: TLabel
AnchorSideLeft.Control = I18NGroupBox AnchorSideLeft.Control = I18NGroupBox
AnchorSideTop.Control = I18NGroupBox AnchorSideTop.Control = I18NGroupBox
Left = 6 Left = 6
Height = 15 Height = 17
Top = 6 Top = 6
Width = 111 Width = 141
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'PO Output Directory:' Caption = 'PO Output Directory:'
ParentColor = False ParentColor = False
@ -40,9 +40,9 @@ object PackageI18NOptionsFrame: TPackageI18NOptionsFrame
AnchorSideLeft.Control = PoOutDirLabel AnchorSideLeft.Control = PoOutDirLabel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 19 Height = 24
Top = 57 Top = 57
Width = 136 Width = 176
Caption = 'PoForFormsCheckBox' Caption = 'PoForFormsCheckBox'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
@ -54,12 +54,12 @@ object PackageI18NOptionsFrame: TPackageI18NOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 23 Height = 27
Top = 27 Top = 29
Width = 536 Width = 536
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ButtonWidth = 45 ButtonWidth = 50
MaxLength = 0 MaxLength = 0
NumGlyphs = 1 NumGlyphs = 1
OnButtonClick = POOutDirButtonClick OnButtonClick = POOutDirButtonClick
@ -71,9 +71,9 @@ object PackageI18NOptionsFrame: TPackageI18NOptionsFrame
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
Left = 0 Left = 0
Height = 19 Height = 24
Top = 0 Top = 0
Width = 80 Width = 102
Caption = 'Enable i18n' Caption = 'Enable i18n'
OnChange = EnableI18NCheckBoxChange OnChange = EnableI18NCheckBoxChange
TabOrder = 0 TabOrder = 0

3
packager/frames/package_integration_options.pas
View File

@ -164,7 +164,8 @@ begin
begin begin
Name := 'FPDocPathButton'; Name := 'FPDocPathButton';
Caption := '...'; Caption := '...';
AutoSize := True; AutoSize := False;
Width := 50;
Anchors := [akRight]; Anchors := [akRight];
AnchorParallel(akRight, 6, DocGroupBox); AnchorParallel(akRight, 6, DocGroupBox);
AnchorParallel(akTop, 0, FPDocSearchPathsEdit); AnchorParallel(akTop, 0, FPDocSearchPathsEdit);

12
packager/frames/package_usage_options.pas
View File

@ -109,7 +109,8 @@ begin
Name := 'UnitPathButton'; Name := 'UnitPathButton';
Parent := AddPathsGroupBox; Parent := AddPathsGroupBox;
Caption := '...'; Caption := '...';
AutoSize := True; AutoSize := False;
Width := 50;
Anchors := [akRight]; Anchors := [akRight];
AnchorParallel(akRight, 6, AddPathsGroupBox); AnchorParallel(akRight, 6, AddPathsGroupBox);
AnchorParallel(akTop, 0, UnitPathEdit); AnchorParallel(akTop, 0, UnitPathEdit);
@ -131,7 +132,8 @@ begin
Name := 'IncludePathButton'; Name := 'IncludePathButton';
Parent := AddPathsGroupBox; Parent := AddPathsGroupBox;
Caption := '...'; Caption := '...';
AutoSize := True; AutoSize := False;
Width := 50;
Anchors := [akRight]; Anchors := [akRight];
AnchorParallel(akRight, 6, AddPathsGroupBox); AnchorParallel(akRight, 6, AddPathsGroupBox);
AnchorParallel(akTop, 0, IncludePathEdit); AnchorParallel(akTop, 0, IncludePathEdit);
@ -148,7 +150,8 @@ begin
Name := 'ObjectPathButton'; Name := 'ObjectPathButton';
Parent := AddPathsGroupBox; Parent := AddPathsGroupBox;
Caption := '...'; Caption := '...';
AutoSize := True; AutoSize := False;
Width := 50;
Anchors := [akRight]; Anchors := [akRight];
AnchorParallel(akRight, 6, AddPathsGroupBox); AnchorParallel(akRight, 6, AddPathsGroupBox);
AnchorParallel(akTop, 0, ObjectPathEdit); AnchorParallel(akTop, 0, ObjectPathEdit);
@ -165,7 +168,8 @@ begin
Name := 'LibraryPathButton'; Name := 'LibraryPathButton';
Parent := AddPathsGroupBox; Parent := AddPathsGroupBox;
Caption := '...'; Caption := '...';
AutoSize := True; AutoSize := False;
Width := 50;
Anchors := [akRight]; Anchors := [akRight];
AnchorParallel(akRight, 6, AddPathsGroupBox); AnchorParallel(akRight, 6, AddPathsGroupBox);
AnchorParallel(akTop, 0, LibraryPathEdit); AnchorParallel(akTop, 0, LibraryPathEdit);