paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 03:52:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Improve CleanDir dialog layout. Issue #28248, patch from Alexey Torgashin.

Browse Source 
git-svn-id: trunk@49276 -
This commit is contained in:
juha 2015-06-05 17:10:53 +00:00
parent 3d94951a6e
commit e9c5a3b795
1 changed files with 48 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

95
ide/cleandirdlg.lfm
View File

@ -1,37 +1,37 @@
object CleanDirectoryDialog: TCleanDirectoryDialog
Left = 307
Height = 309
Height = 342
Top = 209
Width = 353
Width = 396
BorderIcons = [biSystemMenu]
Caption = 'Clean Directory'
ClientHeight = 309
ClientWidth = 353
ClientHeight = 342
ClientWidth = 396
OnCreate = CleanDirectoryDialogCreate
OnDestroy = FormDestroy
Position = poScreenCenter
LCLVersion = '0.9.31'
LCLVersion = '1.5'
object DirGroupbox: TGroupBox
Left = 6
Height = 84
Top = 6
Width = 341
Width = 384
Align = alTop
BorderSpacing.Around = 6
Caption = 'Directory'
ClientHeight = 66
ClientWidth = 337
ClientHeight = 64
ClientWidth = 380
TabOrder = 0
object DirCombobox: TComboBox
AnchorSideRight.Control = DirBrowseButton
Left = 6
Height = 24
Height = 23
Top = 6
Width = 297
Width = 328
Anchors = [akTop, akLeft, akRight]
AutoCompleteText = [cbactSearchAscending]
BorderSpacing.Around = 6
ItemHeight = 0
ItemHeight = 15
TabOrder = 0
Text = 'DirCombobox'
end
@ -39,61 +39,62 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
AnchorSideTop.Control = DirCombobox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 24
Top = 36
Width = 325
Height = 23
Top = 35
Width = 368
Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
Caption = 'Clean sub directories'
TabOrder = 1
TabOrder = 2
end
object DirBrowseButton: TButton
AnchorSideLeft.Control = DirCombobox
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = DirCombobox
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = DirGroupbox
AnchorSideRight.Side = asrBottom
Left = 309
Height = 21
Top = 8
Width = 23
Anchors = [akTop, akRight]
AnchorSideBottom.Control = DirCombobox
AnchorSideBottom.Side = asrBottom
Left = 340
Height = 23
Top = 6
Width = 35
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Right = 5
Caption = '...'
OnClick = DirBrowseButtonClick
TabOrder = 2
TabOrder = 1
end
end
object RemoveGroupbox: TGroupBox
Left = 6
Height = 84
Top = 96
Width = 341
Width = 384
Align = alTop
BorderSpacing.Around = 6
Caption = 'Remove files matching filter:'
ClientHeight = 66
ClientWidth = 337
ClientHeight = 64
ClientWidth = 380
TabOrder = 1
object RemoveCombobox: TComboBox
Left = 6
Height = 24
Height = 23
Top = 6
Width = 325
Width = 368
Align = alTop
AutoCompleteText = [cbactSearchAscending]
BorderSpacing.Around = 6
ItemHeight = 0
ItemHeight = 15
TabOrder = 0
Text = 'RemoveCombobox'
end
object SimpleSyntaxRemoveCheckbox: TCheckBox
Left = 6
Height = 20
Top = 36
Width = 325
Height = 19
Top = 35
Width = 368
Align = alTop
BorderSpacing.Around = 6
Caption = 'Simple syntax (e.g. * instead of .*)'
@ -102,32 +103,32 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
end
object KeepGroupbox: TGroupBox
Left = 6
Height = 78
Height = 118
Top = 186
Width = 341
Width = 384
Align = alClient
BorderSpacing.Around = 6
Caption = 'Keep files matching filter:'
ClientHeight = 60
ClientWidth = 337
ClientHeight = 98
ClientWidth = 380
TabOrder = 2
object KeepCombobox: TComboBox
Left = 6
Height = 24
Height = 23
Top = 6
Width = 325
Width = 368
Align = alTop
AutoCompleteText = [cbactSearchAscending]
BorderSpacing.Around = 6
ItemHeight = 0
ItemHeight = 15
TabOrder = 0
Text = 'KeepCombobox'
end
object SimpleSyntaxKeepCheckbox: TCheckBox
Left = 6
Height = 20
Top = 36
Width = 325
Height = 19
Top = 35
Width = 368
Align = alTop
BorderSpacing.Around = 6
Caption = 'Simple syntax (e.g. * instead of .*)'
@ -135,9 +136,9 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
end
object KeepTextFilesCheckbox: TCheckBox
Left = 6
Height = 20
Top = 58
Width = 325
Height = 19
Top = 60
Width = 368
Align = alTop
BorderSpacing.Around = 6
Caption = 'Keep Text Files'
@ -146,9 +147,9 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
end
object ButtonPanel: TButtonPanel
Left = 6
Height = 33
Top = 270
Width = 341
Height = 26
Top = 310
Width = 384
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'