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

24
packager/frames/package_i18n_options.lfm
View File

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

3
packager/frames/package_integration_options.pas
View File

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

12
packager/frames/package_usage_options.pas
View File

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