paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 16:19:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: improved clean directory dialog from Darius

Browse Source 
git-svn-id: trunk@11990 -
This commit is contained in:
mattias 2007-09-10 18:45:55 +00:00
parent ed527a677a
commit 4647c02ff0
3 changed files with 155 additions and 103 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

120
ide/cleandirdlg.lfm
View File

@ -1,28 +1,29 @@
object CleanDirectoryDialog: TCleanDirectoryDialog object CleanDirectoryDialog: TCleanDirectoryDialog
Left = 316 Left = 316
Height = 332 Height = 287
Top = 212 Top = 212
Width = 431 Width = 450
HorzScrollBar.Page = 430 HorzScrollBar.Page = 449
VertScrollBar.Page = 331 VertScrollBar.Page = 286
ActiveControl = DirCombobox ActiveControl = DirCombobox
AutoSize = True
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
Caption = 'Clean Directory' Caption = 'Clean Directory'
ClientHeight = 332 ClientHeight = 287
ClientWidth = 431 ClientWidth = 450
OnCreate = CleanDirectoryDialogCreate OnCreate = CleanDirectoryDialogCreate
Position = poScreenCenter Position = poScreenCenter
object DirGroupbox: TGroupBox object DirGroupbox: TGroupBox
Left = 6 Left = 6
Height = 80 Height = 70
Top = 6 Top = 6
Width = 419 Width = 438
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Directory' Caption = 'Directory'
ClientHeight = 61 ClientHeight = 52
ClientWidth = 415 ClientWidth = 434
ParentCtl3D = False ParentCtl3D = False
TabOrder = 0 TabOrder = 0
object DirCombobox: TComboBox object DirCombobox: TComboBox
@ -30,10 +31,11 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
Left = 7 Left = 7
Height = 21 Height = 21
Top = 6 Top = 6
Width = 374 Width = 393
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoCompleteText = [cbactSearchAscending] AutoCompleteText = [cbactSearchAscending]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ItemHeight = 13
MaxLength = 0 MaxLength = 0
ParentCtl3D = False ParentCtl3D = False
TabOrder = 0 TabOrder = 0
@ -43,9 +45,11 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
AnchorSideTop.Control = DirCombobox AnchorSideTop.Control = DirCombobox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 13
Top = 33 Top = 33
Width = 158 Width = 422
Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Clean sub directories' Caption = 'Clean sub directories'
TabOrder = 1 TabOrder = 1
@ -57,7 +61,7 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = DirGroupbox AnchorSideRight.Control = DirGroupbox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 387 Left = 406
Height = 21 Height = 21
Top = 6 Top = 6
Width = 23 Width = 23
@ -71,25 +75,26 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
end end
object RemoveGroupbox: TGroupBox object RemoveGroupbox: TGroupBox
Left = 6 Left = 6
Height = 80 Height = 70
Top = 92 Top = 82
Width = 419 Width = 438
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Remove files matching filter:' Caption = 'Remove files matching filter:'
ClientHeight = 61 ClientHeight = 52
ClientWidth = 415 ClientWidth = 434
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
object RemoveCombobox: TComboBox object RemoveCombobox: TComboBox
Left = 6 Left = 6
Height = 21 Height = 21
Top = 6 Top = 6
Width = 403 Width = 422
Align = alTop Align = alTop
AutoCompleteText = [cbactSearchAscending] AutoCompleteText = [cbactSearchAscending]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ItemHeight = 13
MaxLength = 0 MaxLength = 0
ParentCtl3D = False ParentCtl3D = False
TabOrder = 0 TabOrder = 0
@ -97,9 +102,9 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
end end
object SimpleSyntaxRemoveCheckbox: TCheckBox object SimpleSyntaxRemoveCheckbox: TCheckBox
Left = 6 Left = 6
Height = 22 Height = 13
Top = 33 Top = 33
Width = 403 Width = 422
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Simple syntax (e.g. * instead of .*)' Caption = 'Simple syntax (e.g. * instead of .*)'
@ -108,25 +113,26 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
end end
object KeepGroupbox: TGroupBox object KeepGroupbox: TGroupBox
Left = 6 Left = 6
Height = 93 Height = 89
Top = 178 Top = 158
Width = 419 Width = 438
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Keep files matching filter:' Caption = 'Keep files matching filter:'
ClientHeight = 89 ClientHeight = 71
ClientWidth = 415 ClientWidth = 434
ParentCtl3D = False ParentCtl3D = False
TabOrder = 2 TabOrder = 2
object KeepCombobox: TComboBox object KeepCombobox: TComboBox
Left = 6 Left = 6
Height = 21 Height = 21
Top = 6 Top = 6
Width = 403 Width = 422
Align = alTop Align = alTop
AutoCompleteText = [cbactSearchAscending] AutoCompleteText = [cbactSearchAscending]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ItemHeight = 13
MaxLength = 0 MaxLength = 0
ParentCtl3D = False ParentCtl3D = False
TabOrder = 0 TabOrder = 0
@ -134,9 +140,9 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
end end
object SimpleSyntaxKeepCheckbox: TCheckBox object SimpleSyntaxKeepCheckbox: TCheckBox
Left = 6 Left = 6
Height = 22 Height = 13
Top = 33 Top = 33
Width = 403 Width = 422
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Simple syntax (e.g. * instead of .*)' Caption = 'Simple syntax (e.g. * instead of .*)'
@ -144,9 +150,9 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
end end
object KeepTextFilesCheckbox: TCheckBox object KeepTextFilesCheckbox: TCheckBox
Left = 6 Left = 6
Height = 22 Height = 13
Top = 61 Top = 52
Width = 403 Width = 422
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Keep Text Files' Caption = 'Keep Text Files'
@ -154,17 +160,21 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
end end
end end
object OkButton: TBitBtn object OkButton: TBitBtn
AnchorSideTop.Control = KeepGroupbox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CancelButton AnchorSideRight.Control = CancelButton
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 268 Left = 283
Height = 44 Height = 28
Top = 282 Top = 253
Width = 65 Width = 75
Anchors = [akRight, akBottom] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = '&OK' Caption = '&OK'
Constraints.MinHeight = 25
Constraints.MinWidth = 75
Default = True Default = True
Kind = bkOK Kind = bkOK
ModalResult = 1 ModalResult = 1
@ -173,22 +183,46 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
TabOrder = 3 TabOrder = 3
end end
object CancelButton: TBitBtn object CancelButton: TBitBtn
AnchorSideTop.Control = KeepGroupbox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 339 Left = 364
Height = 40 Height = 28
Top = 286 Top = 253
Width = 86 Width = 80
Anchors = [akRight, akBottom] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Cancel = True Cancel = True
Caption = 'Cancel' Caption = 'Cancel'
Constraints.MinHeight = 25
Constraints.MinWidth = 75
Kind = bkCancel Kind = bkCancel
ModalResult = 2 ModalResult = 2
NumGlyphs = 0 NumGlyphs = 0
TabOrder = 4 TabOrder = 4
end end
object HelpButton: TBitBtn
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = KeepGroupbox
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 28
Top = 253
Width = 75
AutoSize = True
BorderSpacing.Around = 6
Caption = '&Help'
Constraints.MinHeight = 25
Constraints.MinWidth = 75
Kind = bkHelp
NumGlyphs = 0
OnClick = HelpButtonClick
TabOrder = 5
end
end end

128
ide/cleandirdlg.lrs
View File

@ -2,62 +2,74 @@
LazarusResources.Add('TCleanDirectoryDialog','FORMDATA',[ LazarusResources.Add('TCleanDirectoryDialog','FORMDATA',[
'TPF0'#21'TCleanDirectoryDialog'#20'CleanDirectoryDialog'#4'Left'#3'<'#1#6'He' 'TPF0'#21'TCleanDirectoryDialog'#20'CleanDirectoryDialog'#4'Left'#3'<'#1#6'He'
+'ight'#3'L'#1#3'Top'#3#212#0#5'Width'#3#175#1#18'HorzScrollBar.Page'#3#174#1 +'ight'#3#31#1#3'Top'#3#212#0#5'Width'#3#194#1#18'HorzScrollBar.Page'#3#193#1
+#18'VertScrollBar.Page'#3'K'#1#13'ActiveControl'#7#11'DirCombobox'#11'Border' +#18'VertScrollBar.Page'#3#30#1#13'ActiveControl'#7#11'DirCombobox'#8'AutoSiz'
+'Icons'#11#12'biSystemMenu'#0#7'Caption'#6#15'Clean Directory'#12'ClientHeig' +'e'#9#11'BorderIcons'#11#12'biSystemMenu'#0#7'Caption'#6#15'Clean Directory'
+'ht'#3'L'#1#11'ClientWidth'#3#175#1#8'OnCreate'#7#26'CleanDirectoryDialogCre' +#12'ClientHeight'#3#31#1#11'ClientWidth'#3#194#1#8'OnCreate'#7#26'CleanDirec'
+'ate'#8'Position'#7#14'poScreenCenter'#0#9'TGroupBox'#11'DirGroupbox'#4'Left' +'toryDialogCreate'#8'Position'#7#14'poScreenCenter'#0#9'TGroupBox'#11'DirGro'
+#2#6#6'Height'#2'P'#3'Top'#2#6#5'Width'#3#163#1#5'Align'#7#5'alTop'#8'AutoSi' +'upbox'#4'Left'#2#6#6'Height'#2'F'#3'Top'#2#6#5'Width'#3#182#1#5'Align'#7#5
+'ze'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#9'Directory'#12'ClientHeigh' +'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#9'Directory'
+'t'#2'='#11'ClientWidth'#3#159#1#11'ParentCtl3D'#8#8'TabOrder'#2#0#0#9'TComb' +#12'ClientHeight'#2'4'#11'ClientWidth'#3#178#1#11'ParentCtl3D'#8#8'TabOrder'
+'oBox'#11'DirCombobox'#23'AnchorSideRight.Control'#7#15'DirBrowseButton'#4'L' +#2#0#0#9'TComboBox'#11'DirCombobox'#23'AnchorSideRight.Control'#7#15'DirBrow'
+'eft'#2#7#6'Height'#2#21#3'Top'#2#6#5'Width'#3'v'#1#7'Anchors'#11#5'akTop'#6 +'seButton'#4'Left'#2#7#6'Height'#2#21#3'Top'#2#6#5'Width'#3#137#1#7'Anchors'
+'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#20'cbactSearchAscending'#0#20 +#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#20'cbactSearchAs'
+'BorderSpacing.Around'#2#6#9'MaxLength'#2#0#11'ParentCtl3D'#8#8'TabOrder'#2#0 +'cending'#0#20'BorderSpacing.Around'#2#6#10'ItemHeight'#2#13#9'MaxLength'#2#0
+#4'Text'#6#11'DirCombobox'#0#0#9'TCheckBox'#15'SubDirsCheckbox'#21'AnchorSid' +#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Text'#6#11'DirCombobox'#0#0#9'TCheckBox'
+'eTop.Control'#7#11'DirCombobox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Lef' +#15'SubDirsCheckbox'#21'AnchorSideTop.Control'#7#11'DirCombobox'#18'AnchorSi'
+'t'#2#6#6'Height'#2#22#3'Top'#2'!'#5'Width'#3#158#0#20'BorderSpacing.Around' +'deTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#13#3'Top'#2'!'#5'Width'#3
+#2#6#7'Caption'#6#21'Clean sub directories'#8'TabOrder'#2#1#0#0#7'TButton'#15 +#166#1#5'Align'#7#8'alBottom'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8
+'DirBrowseButton'#22'AnchorSideLeft.Control'#7#11'DirCombobox'#19'AnchorSide' +'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#21'Clean sub director'
+'Left.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#11'DirCombobox'#18'An' +'ies'#8'TabOrder'#2#1#0#0#7'TButton'#15'DirBrowseButton'#22'AnchorSideLeft.C'
+'chorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#11'DirGroupb' +'ontrol'#7#11'DirCombobox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorS'
+'ox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#131#1#6'Height'#2#21#3 +'ideTop.Control'#7#11'DirCombobox'#18'AnchorSideTop.Side'#7#9'asrCenter'#23
+'Top'#2#6#5'Width'#2#23#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing' +'AnchorSideRight.Control'#7#11'DirGroupbox'#20'AnchorSideRight.Side'#7#9'asr'
+'.Right'#2#5#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#3'...'#7'OnClick' +'Bottom'#4'Left'#3#150#1#6'Height'#2#21#3'Top'#2#6#5'Width'#2#23#7'Anchors'
+#7#20'DirBrowseButtonClick'#8'TabOrder'#2#2#0#0#0#9'TGroupBox'#14'RemoveGrou' +#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#5#25'BorderSpacing.Inner'
+'pbox'#4'Left'#2#6#6'Height'#2'P'#3'Top'#2'\'#5'Width'#3#163#1#5'Align'#7#5 +'Border'#2#4#7'Caption'#6#3'...'#7'OnClick'#7#20'DirBrowseButtonClick'#8'Tab'
+'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#29'Remove fi' +'Order'#2#2#0#0#0#9'TGroupBox'#14'RemoveGroupbox'#4'Left'#2#6#6'Height'#2'F'
+'les matching filter:'#12'ClientHeight'#2'='#11'ClientWidth'#3#159#1#11'Pare' +#3'Top'#2'R'#5'Width'#3#182#1#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpa'
+'ntCtl3D'#8#8'TabOrder'#2#1#0#9'TComboBox'#14'RemoveCombobox'#4'Left'#2#6#6 +'cing.Around'#2#6#7'Caption'#6#29'Remove files matching filter:'#12'ClientHe'
+'Height'#2#21#3'Top'#2#6#5'Width'#3#147#1#5'Align'#7#5'alTop'#16'AutoComplet' +'ight'#2'4'#11'ClientWidth'#3#178#1#11'ParentCtl3D'#8#8'TabOrder'#2#1#0#9'TC'
+'eText'#11#20'cbactSearchAscending'#0#20'BorderSpacing.Around'#2#6#9'MaxLeng' +'omboBox'#14'RemoveCombobox'#4'Left'#2#6#6'Height'#2#21#3'Top'#2#6#5'Width'#3
+'th'#2#0#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Text'#6#14'RemoveCombobox'#0#0#9 +#166#1#5'Align'#7#5'alTop'#16'AutoCompleteText'#11#20'cbactSearchAscending'#0
+'TCheckBox'#26'SimpleSyntaxRemoveCheckbox'#4'Left'#2#6#6'Height'#2#22#3'Top' +#20'BorderSpacing.Around'#2#6#10'ItemHeight'#2#13#9'MaxLength'#2#0#11'Parent'
+#2'!'#5'Width'#3#147#1#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Ca' +'Ctl3D'#8#8'TabOrder'#2#0#4'Text'#6#14'RemoveCombobox'#0#0#9'TCheckBox'#26'S'
+'ption'#6'$Simple syntax (e.g. * instead of .*)'#8'TabOrder'#2#1#0#0#0#9'TGr' +'impleSyntaxRemoveCheckbox'#4'Left'#2#6#6'Height'#2#13#3'Top'#2'!'#5'Width'#3
+'oupBox'#12'KeepGroupbox'#4'Left'#2#6#6'Height'#2']'#3'Top'#3#178#0#5'Width' +#166#1#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6'$Simple'
+#3#163#1#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Ca' +' syntax (e.g. * instead of .*)'#8'TabOrder'#2#1#0#0#0#9'TGroupBox'#12'KeepG'
+'ption'#6#27'Keep files matching filter:'#12'ClientHeight'#2'Y'#11'ClientWid' +'roupbox'#4'Left'#2#6#6'Height'#2'Y'#3'Top'#3#158#0#5'Width'#3#182#1#5'Align'
+'th'#3#159#1#11'ParentCtl3D'#8#8'TabOrder'#2#2#0#9'TComboBox'#12'KeepCombobo' +#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#27'Keep '
+'x'#4'Left'#2#6#6'Height'#2#21#3'Top'#2#6#5'Width'#3#147#1#5'Align'#7#5'alTo' +'files matching filter:'#12'ClientHeight'#2'G'#11'ClientWidth'#3#178#1#11'Pa'
+'p'#16'AutoCompleteText'#11#20'cbactSearchAscending'#0#20'BorderSpacing.Arou' +'rentCtl3D'#8#8'TabOrder'#2#2#0#9'TComboBox'#12'KeepCombobox'#4'Left'#2#6#6
+'nd'#2#6#9'MaxLength'#2#0#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Text'#6#12'Kee' +'Height'#2#21#3'Top'#2#6#5'Width'#3#166#1#5'Align'#7#5'alTop'#16'AutoComplet'
+'pCombobox'#0#0#9'TCheckBox'#24'SimpleSyntaxKeepCheckbox'#4'Left'#2#6#6'Heig' +'eText'#11#20'cbactSearchAscending'#0#20'BorderSpacing.Around'#2#6#10'ItemHe'
+'ht'#2#22#3'Top'#2'!'#5'Width'#3#147#1#5'Align'#7#5'alTop'#20'BorderSpacing.' +'ight'#2#13#9'MaxLength'#2#0#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Text'#6#12
+'Around'#2#6#7'Caption'#6'$Simple syntax (e.g. * instead of .*)'#8'TabOrder' +'KeepCombobox'#0#0#9'TCheckBox'#24'SimpleSyntaxKeepCheckbox'#4'Left'#2#6#6'H'
+#2#1#0#0#9'TCheckBox'#21'KeepTextFilesCheckbox'#4'Left'#2#6#6'Height'#2#22#3 +'eight'#2#13#3'Top'#2'!'#5'Width'#3#166#1#5'Align'#7#5'alTop'#20'BorderSpaci'
+'Top'#2'='#5'Width'#3#147#1#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6 +'ng.Around'#2#6#7'Caption'#6'$Simple syntax (e.g. * instead of .*)'#8'TabOrd'
+#7'Caption'#6#15'Keep Text Files'#8'TabOrder'#2#2#0#0#0#7'TBitBtn'#8'OkButto' +'er'#2#1#0#0#9'TCheckBox'#21'KeepTextFilesCheckbox'#4'Left'#2#6#6'Height'#2
+'n'#23'AnchorSideRight.Control'#7#12'CancelButton'#24'AnchorSideBottom.Contr' +#13#3'Top'#2'4'#5'Width'#3#166#1#5'Align'#7#5'alTop'#20'BorderSpacing.Around'
+'ol'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3#12#1#6'He' +#2#6#7'Caption'#6#15'Keep Text Files'#8'TabOrder'#2#2#0#0#0#7'TBitBtn'#8'OkB'
+'ight'#2','#3'Top'#3#26#1#5'Width'#2'A'#7'Anchors'#11#7'akRight'#8'akBottom' +'utton'#21'AnchorSideTop.Control'#7#12'KeepGroupbox'#18'AnchorSideTop.Side'#7
+#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#3'&OK'#7'Default' +#9'asrBottom'#23'AnchorSideRight.Control'#7#12'CancelButton'#24'AnchorSideBo'
+#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#7'OnClick'#7#13'Ok' +'ttom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3
+'ButtonClick'#8'TabOrder'#2#3#0#0#7'TBitBtn'#12'CancelButton'#23'AnchorSideR' +#27#1#6'Height'#2#28#3'Top'#3#253#0#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'a'
+'ight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorS' +'kRight'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#3'&OK'#21
+'ideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Le' +'Constraints.MinHeight'#2#25#20'Constraints.MinWidth'#2'K'#7'Default'#9#4'Ki'
+'ft'#3'S'#1#6'Height'#2'('#3'Top'#3#30#1#5'Width'#2'V'#7'Anchors'#11#7'akRig' +'nd'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#7'OnClick'#7#13'OkButton'
+'ht'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#6'Cancel'#9#7 +'Click'#8'TabOrder'#2#3#0#0#7'TBitBtn'#12'CancelButton'#21'AnchorSideTop.Con'
+'Caption'#6#6'Cancel'#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'NumGlyphs' +'trol'#7#12'KeepGroupbox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSid'
+#2#0#8'TabOrder'#2#4#0#0#0 +'eRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'Ancho'
+'rSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4
+'Left'#3'l'#1#6'Height'#2#28#3'Top'#3#253#0#5'Width'#2'P'#7'Anchors'#11#5'ak'
+'Top'#7'akRight'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#6'Cancel'#9#7
+'Caption'#6#6'Cancel'#21'Constraints.MinHeight'#2#25#20'Constraints.MinWidth'
+#2'K'#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'
,#2#4#0#0#7'TBitBtn'#10'HelpButton'#22'AnchorSideLeft.Control'#7#5'Owner'#21
+'AnchorSideTop.Control'#7#12'KeepGroupbox'#18'AnchorSideTop.Side'#7#9'asrBot'
+'tom'#24'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9
+'asrBottom'#4'Left'#2#6#6'Height'#2#28#3'Top'#3#253#0#5'Width'#2'K'#8'AutoSi'
+'ze'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#5'&Help'#21'Constraints.Min'
+'Height'#2#25#20'Constraints.MinWidth'#2'K'#4'Kind'#7#6'bkHelp'#9'NumGlyphs'
+#2#0#7'OnClick'#7#15'HelpButtonClick'#8'TabOrder'#2#5#0#0#0
]); ]);

10
ide/cleandirdlg.pas
View File

@ -31,7 +31,7 @@ interface
uses uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons, Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons,
StdCtrls, FileUtil, LCLProc, Laz_XMLCfg, SynRegExpr, StdCtrls, FileUtil, LCLProc, Laz_XMLCfg, SynRegExpr, IDEContextHelpEdit,
LazarusIDEStrConsts, LazConf, IDEProcs, TransferMacros, InputHistory; LazarusIDEStrConsts, LazConf, IDEProcs, TransferMacros, InputHistory;
type type
@ -39,6 +39,7 @@ type
{ TCleanDirectoryDialog } { TCleanDirectoryDialog }
TCleanDirectoryDialog = class(TForm) TCleanDirectoryDialog = class(TForm)
HelpButton: TBitBtn;
DirBrowseButton: TButton; DirBrowseButton: TButton;
OkButton: TBitBtn; OkButton: TBitBtn;
CancelButton: TBitBtn; CancelButton: TBitBtn;
@ -52,6 +53,7 @@ type
DirCombobox: TCOMBOBOX; DirCombobox: TCOMBOBOX;
DirGroupbox: TGROUPBOX; DirGroupbox: TGROUPBOX;
RemoveGroupbox: TGROUPBOX; RemoveGroupbox: TGROUPBOX;
procedure HelpButtonClick(Sender: TObject);
procedure CleanDirectoryDialogCreate(Sender: TObject); procedure CleanDirectoryDialogCreate(Sender: TObject);
procedure DirBrowseButtonClick(Sender: TObject); procedure DirBrowseButtonClick(Sender: TObject);
procedure OkButtonClick(Sender: TObject); procedure OkButtonClick(Sender: TObject);
@ -84,7 +86,6 @@ function ShowCleanDirectoryDialog(const DefaultDirectory: string;
implementation implementation
const const
CleanDirXMLFilename = 'cleandirectorydialog.xml'; CleanDirXMLFilename = 'cleandirectorydialog.xml';
CleanDirXMLVersion = 1; CleanDirXMLVersion = 1;
@ -138,6 +139,11 @@ begin
CancelButton.Caption:=dlgCancel; CancelButton.Caption:=dlgCancel;
end; end;
procedure TCleanDirectoryDialog.HelpButtonClick(Sender: TObject);
begin
ShowContextHelpForIDE(Self);
end;
procedure TCleanDirectoryDialog.DirBrowseButtonClick(Sender: TObject); procedure TCleanDirectoryDialog.DirBrowseButtonClick(Sender: TObject);
var var
NewDirectory: String; NewDirectory: String;