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