mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-19 22:29:25 +02:00
IDE: improved clean directory dialog from Darius
git-svn-id: trunk@11990 -
This commit is contained in:
mattias
parent
ed527a677a
commit
4647c02ff0
@ -1,28 +1,29 @@
|
||||
object CleanDirectoryDialog: TCleanDirectoryDialog
|
||||
Left = 316
|
||||
Height = 332
|
||||
Height = 287
|
||||
Top = 212
|
||||
Width = 431
|
||||
HorzScrollBar.Page = 430
|
||||
VertScrollBar.Page = 331
|
||||
Width = 450
|
||||
HorzScrollBar.Page = 449
|
||||
VertScrollBar.Page = 286
|
||||
ActiveControl = DirCombobox
|
||||
AutoSize = True
|
||||
BorderIcons = [biSystemMenu]
|
||||
Caption = 'Clean Directory'
|
||||
ClientHeight = 332
|
||||
ClientWidth = 431
|
||||
ClientHeight = 287
|
||||
ClientWidth = 450
|
||||
OnCreate = CleanDirectoryDialogCreate
|
||||
Position = poScreenCenter
|
||||
object DirGroupbox: TGroupBox
|
||||
Left = 6
|
||||
Height = 80
|
||||
Height = 70
|
||||
Top = 6
|
||||
Width = 419
|
||||
Width = 438
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Directory'
|
||||
ClientHeight = 61
|
||||
ClientWidth = 415
|
||||
ClientHeight = 52
|
||||
ClientWidth = 434
|
||||
ParentCtl3D = False
|
||||
TabOrder = 0
|
||||
object DirCombobox: TComboBox
|
||||
@ -30,10 +31,11 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
|
||||
Left = 7
|
||||
Height = 21
|
||||
Top = 6
|
||||
Width = 374
|
||||
Width = 393
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoCompleteText = [cbactSearchAscending]
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 13
|
||||
MaxLength = 0
|
||||
ParentCtl3D = False
|
||||
TabOrder = 0
|
||||
@ -43,9 +45,11 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
|
||||
AnchorSideTop.Control = DirCombobox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 22
|
||||
Height = 13
|
||||
Top = 33
|
||||
Width = 158
|
||||
Width = 422
|
||||
Align = alBottom
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Clean sub directories'
|
||||
TabOrder = 1
|
||||
@ -57,7 +61,7 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = DirGroupbox
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 387
|
||||
Left = 406
|
||||
Height = 21
|
||||
Top = 6
|
||||
Width = 23
|
||||
@ -71,25 +75,26 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
|
||||
end
|
||||
object RemoveGroupbox: TGroupBox
|
||||
Left = 6
|
||||
Height = 80
|
||||
Top = 92
|
||||
Width = 419
|
||||
Height = 70
|
||||
Top = 82
|
||||
Width = 438
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Remove files matching filter:'
|
||||
ClientHeight = 61
|
||||
ClientWidth = 415
|
||||
ClientHeight = 52
|
||||
ClientWidth = 434
|
||||
ParentCtl3D = False
|
||||
TabOrder = 1
|
||||
object RemoveCombobox: TComboBox
|
||||
Left = 6
|
||||
Height = 21
|
||||
Top = 6
|
||||
Width = 403
|
||||
Width = 422
|
||||
Align = alTop
|
||||
AutoCompleteText = [cbactSearchAscending]
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 13
|
||||
MaxLength = 0
|
||||
ParentCtl3D = False
|
||||
TabOrder = 0
|
||||
@ -97,9 +102,9 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
|
||||
end
|
||||
object SimpleSyntaxRemoveCheckbox: TCheckBox
|
||||
Left = 6
|
||||
Height = 22
|
||||
Height = 13
|
||||
Top = 33
|
||||
Width = 403
|
||||
Width = 422
|
||||
Align = alTop
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Simple syntax (e.g. * instead of .*)'
|
||||
@ -108,25 +113,26 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
|
||||
end
|
||||
object KeepGroupbox: TGroupBox
|
||||
Left = 6
|
||||
Height = 93
|
||||
Top = 178
|
||||
Width = 419
|
||||
Height = 89
|
||||
Top = 158
|
||||
Width = 438
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Keep files matching filter:'
|
||||
ClientHeight = 89
|
||||
ClientWidth = 415
|
||||
ClientHeight = 71
|
||||
ClientWidth = 434
|
||||
ParentCtl3D = False
|
||||
TabOrder = 2
|
||||
object KeepCombobox: TComboBox
|
||||
Left = 6
|
||||
Height = 21
|
||||
Top = 6
|
||||
Width = 403
|
||||
Width = 422
|
||||
Align = alTop
|
||||
AutoCompleteText = [cbactSearchAscending]
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 13
|
||||
MaxLength = 0
|
||||
ParentCtl3D = False
|
||||
TabOrder = 0
|
||||
@ -134,9 +140,9 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
|
||||
end
|
||||
object SimpleSyntaxKeepCheckbox: TCheckBox
|
||||
Left = 6
|
||||
Height = 22
|
||||
Height = 13
|
||||
Top = 33
|
||||
Width = 403
|
||||
Width = 422
|
||||
Align = alTop
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Simple syntax (e.g. * instead of .*)'
|
||||
@ -144,9 +150,9 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
|
||||
end
|
||||
object KeepTextFilesCheckbox: TCheckBox
|
||||
Left = 6
|
||||
Height = 22
|
||||
Top = 61
|
||||
Width = 403
|
||||
Height = 13
|
||||
Top = 52
|
||||
Width = 422
|
||||
Align = alTop
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Keep Text Files'
|
||||
@ -154,17 +160,21 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
|
||||
end
|
||||
end
|
||||
object OkButton: TBitBtn
|
||||
AnchorSideTop.Control = KeepGroupbox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = CancelButton
|
||||
AnchorSideBottom.Control = Owner
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 268
|
||||
Height = 44
|
||||
Top = 282
|
||||
Width = 65
|
||||
Anchors = [akRight, akBottom]
|
||||
Left = 283
|
||||
Height = 28
|
||||
Top = 253
|
||||
Width = 75
|
||||
Anchors = [akTop, akRight]
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = '&OK'
|
||||
Constraints.MinHeight = 25
|
||||
Constraints.MinWidth = 75
|
||||
Default = True
|
||||
Kind = bkOK
|
||||
ModalResult = 1
|
||||
@ -173,22 +183,46 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
|
||||
TabOrder = 3
|
||||
end
|
||||
object CancelButton: TBitBtn
|
||||
AnchorSideTop.Control = KeepGroupbox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = Owner
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 339
|
||||
Height = 40
|
||||
Top = 286
|
||||
Width = 86
|
||||
Anchors = [akRight, akBottom]
|
||||
Left = 364
|
||||
Height = 28
|
||||
Top = 253
|
||||
Width = 80
|
||||
Anchors = [akTop, akRight]
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Cancel = True
|
||||
Caption = 'Cancel'
|
||||
Constraints.MinHeight = 25
|
||||
Constraints.MinWidth = 75
|
||||
Kind = bkCancel
|
||||
ModalResult = 2
|
||||
NumGlyphs = 0
|
||||
TabOrder = 4
|
||||
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
|
||||
|
||||
@ -2,62 +2,74 @@
|
||||
|
||||
LazarusResources.Add('TCleanDirectoryDialog','FORMDATA',[
|
||||
'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
|
||||
+#18'VertScrollBar.Page'#3'K'#1#13'ActiveControl'#7#11'DirCombobox'#11'Border'
|
||||
+'Icons'#11#12'biSystemMenu'#0#7'Caption'#6#15'Clean Directory'#12'ClientHeig'
|
||||
+'ht'#3'L'#1#11'ClientWidth'#3#175#1#8'OnCreate'#7#26'CleanDirectoryDialogCre'
|
||||
+'ate'#8'Position'#7#14'poScreenCenter'#0#9'TGroupBox'#11'DirGroupbox'#4'Left'
|
||||
+#2#6#6'Height'#2'P'#3'Top'#2#6#5'Width'#3#163#1#5'Align'#7#5'alTop'#8'AutoSi'
|
||||
+'ze'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#9'Directory'#12'ClientHeigh'
|
||||
+'t'#2'='#11'ClientWidth'#3#159#1#11'ParentCtl3D'#8#8'TabOrder'#2#0#0#9'TComb'
|
||||
+'oBox'#11'DirCombobox'#23'AnchorSideRight.Control'#7#15'DirBrowseButton'#4'L'
|
||||
+'eft'#2#7#6'Height'#2#21#3'Top'#2#6#5'Width'#3'v'#1#7'Anchors'#11#5'akTop'#6
|
||||
+'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#20'cbactSearchAscending'#0#20
|
||||
+'BorderSpacing.Around'#2#6#9'MaxLength'#2#0#11'ParentCtl3D'#8#8'TabOrder'#2#0
|
||||
+#4'Text'#6#11'DirCombobox'#0#0#9'TCheckBox'#15'SubDirsCheckbox'#21'AnchorSid'
|
||||
+'eTop.Control'#7#11'DirCombobox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Lef'
|
||||
+'t'#2#6#6'Height'#2#22#3'Top'#2'!'#5'Width'#3#158#0#20'BorderSpacing.Around'
|
||||
+#2#6#7'Caption'#6#21'Clean sub directories'#8'TabOrder'#2#1#0#0#7'TButton'#15
|
||||
+'DirBrowseButton'#22'AnchorSideLeft.Control'#7#11'DirCombobox'#19'AnchorSide'
|
||||
+'Left.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#11'DirCombobox'#18'An'
|
||||
+'chorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#11'DirGroupb'
|
||||
+'ox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#131#1#6'Height'#2#21#3
|
||||
+'Top'#2#6#5'Width'#2#23#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing'
|
||||
+'.Right'#2#5#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#3'...'#7'OnClick'
|
||||
+#7#20'DirBrowseButtonClick'#8'TabOrder'#2#2#0#0#0#9'TGroupBox'#14'RemoveGrou'
|
||||
+'pbox'#4'Left'#2#6#6'Height'#2'P'#3'Top'#2'\'#5'Width'#3#163#1#5'Align'#7#5
|
||||
+'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#29'Remove fi'
|
||||
+'les matching filter:'#12'ClientHeight'#2'='#11'ClientWidth'#3#159#1#11'Pare'
|
||||
+'ntCtl3D'#8#8'TabOrder'#2#1#0#9'TComboBox'#14'RemoveCombobox'#4'Left'#2#6#6
|
||||
+'Height'#2#21#3'Top'#2#6#5'Width'#3#147#1#5'Align'#7#5'alTop'#16'AutoComplet'
|
||||
+'eText'#11#20'cbactSearchAscending'#0#20'BorderSpacing.Around'#2#6#9'MaxLeng'
|
||||
+'th'#2#0#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Text'#6#14'RemoveCombobox'#0#0#9
|
||||
+'TCheckBox'#26'SimpleSyntaxRemoveCheckbox'#4'Left'#2#6#6'Height'#2#22#3'Top'
|
||||
+#2'!'#5'Width'#3#147#1#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Ca'
|
||||
+'ption'#6'$Simple syntax (e.g. * instead of .*)'#8'TabOrder'#2#1#0#0#0#9'TGr'
|
||||
+'oupBox'#12'KeepGroupbox'#4'Left'#2#6#6'Height'#2']'#3'Top'#3#178#0#5'Width'
|
||||
+#3#163#1#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Ca'
|
||||
+'ption'#6#27'Keep files matching filter:'#12'ClientHeight'#2'Y'#11'ClientWid'
|
||||
+'th'#3#159#1#11'ParentCtl3D'#8#8'TabOrder'#2#2#0#9'TComboBox'#12'KeepCombobo'
|
||||
+'x'#4'Left'#2#6#6'Height'#2#21#3'Top'#2#6#5'Width'#3#147#1#5'Align'#7#5'alTo'
|
||||
+'p'#16'AutoCompleteText'#11#20'cbactSearchAscending'#0#20'BorderSpacing.Arou'
|
||||
+'nd'#2#6#9'MaxLength'#2#0#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Text'#6#12'Kee'
|
||||
+'pCombobox'#0#0#9'TCheckBox'#24'SimpleSyntaxKeepCheckbox'#4'Left'#2#6#6'Heig'
|
||||
+'ht'#2#22#3'Top'#2'!'#5'Width'#3#147#1#5'Align'#7#5'alTop'#20'BorderSpacing.'
|
||||
+'Around'#2#6#7'Caption'#6'$Simple syntax (e.g. * instead of .*)'#8'TabOrder'
|
||||
+#2#1#0#0#9'TCheckBox'#21'KeepTextFilesCheckbox'#4'Left'#2#6#6'Height'#2#22#3
|
||||
+'Top'#2'='#5'Width'#3#147#1#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6
|
||||
+#7'Caption'#6#15'Keep Text Files'#8'TabOrder'#2#2#0#0#0#7'TBitBtn'#8'OkButto'
|
||||
+'n'#23'AnchorSideRight.Control'#7#12'CancelButton'#24'AnchorSideBottom.Contr'
|
||||
+'ol'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3#12#1#6'He'
|
||||
+'ight'#2','#3'Top'#3#26#1#5'Width'#2'A'#7'Anchors'#11#7'akRight'#8'akBottom'
|
||||
+#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#3'&OK'#7'Default'
|
||||
+#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#7'OnClick'#7#13'Ok'
|
||||
+'ButtonClick'#8'TabOrder'#2#3#0#0#7'TBitBtn'#12'CancelButton'#23'AnchorSideR'
|
||||
+'ight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorS'
|
||||
+'ideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Le'
|
||||
+'ft'#3'S'#1#6'Height'#2'('#3'Top'#3#30#1#5'Width'#2'V'#7'Anchors'#11#7'akRig'
|
||||
+'ht'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#6'Cancel'#9#7
|
||||
+'Caption'#6#6'Cancel'#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'NumGlyphs'
|
||||
+#2#0#8'TabOrder'#2#4#0#0#0
|
||||
+'ight'#3#31#1#3'Top'#3#212#0#5'Width'#3#194#1#18'HorzScrollBar.Page'#3#193#1
|
||||
+#18'VertScrollBar.Page'#3#30#1#13'ActiveControl'#7#11'DirCombobox'#8'AutoSiz'
|
||||
+'e'#9#11'BorderIcons'#11#12'biSystemMenu'#0#7'Caption'#6#15'Clean Directory'
|
||||
+#12'ClientHeight'#3#31#1#11'ClientWidth'#3#194#1#8'OnCreate'#7#26'CleanDirec'
|
||||
+'toryDialogCreate'#8'Position'#7#14'poScreenCenter'#0#9'TGroupBox'#11'DirGro'
|
||||
+'upbox'#4'Left'#2#6#6'Height'#2'F'#3'Top'#2#6#5'Width'#3#182#1#5'Align'#7#5
|
||||
+'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#9'Directory'
|
||||
+#12'ClientHeight'#2'4'#11'ClientWidth'#3#178#1#11'ParentCtl3D'#8#8'TabOrder'
|
||||
+#2#0#0#9'TComboBox'#11'DirCombobox'#23'AnchorSideRight.Control'#7#15'DirBrow'
|
||||
+'seButton'#4'Left'#2#7#6'Height'#2#21#3'Top'#2#6#5'Width'#3#137#1#7'Anchors'
|
||||
+#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#20'cbactSearchAs'
|
||||
+'cending'#0#20'BorderSpacing.Around'#2#6#10'ItemHeight'#2#13#9'MaxLength'#2#0
|
||||
+#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Text'#6#11'DirCombobox'#0#0#9'TCheckBox'
|
||||
+#15'SubDirsCheckbox'#21'AnchorSideTop.Control'#7#11'DirCombobox'#18'AnchorSi'
|
||||
+'deTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#13#3'Top'#2'!'#5'Width'#3
|
||||
+#166#1#5'Align'#7#8'alBottom'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8
|
||||
+'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#21'Clean sub director'
|
||||
+'ies'#8'TabOrder'#2#1#0#0#7'TButton'#15'DirBrowseButton'#22'AnchorSideLeft.C'
|
||||
+'ontrol'#7#11'DirCombobox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorS'
|
||||
+'ideTop.Control'#7#11'DirCombobox'#18'AnchorSideTop.Side'#7#9'asrCenter'#23
|
||||
+'AnchorSideRight.Control'#7#11'DirGroupbox'#20'AnchorSideRight.Side'#7#9'asr'
|
||||
+'Bottom'#4'Left'#3#150#1#6'Height'#2#21#3'Top'#2#6#5'Width'#2#23#7'Anchors'
|
||||
+#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#5#25'BorderSpacing.Inner'
|
||||
+'Border'#2#4#7'Caption'#6#3'...'#7'OnClick'#7#20'DirBrowseButtonClick'#8'Tab'
|
||||
+'Order'#2#2#0#0#0#9'TGroupBox'#14'RemoveGroupbox'#4'Left'#2#6#6'Height'#2'F'
|
||||
+#3'Top'#2'R'#5'Width'#3#182#1#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpa'
|
||||
+'cing.Around'#2#6#7'Caption'#6#29'Remove files matching filter:'#12'ClientHe'
|
||||
+'ight'#2'4'#11'ClientWidth'#3#178#1#11'ParentCtl3D'#8#8'TabOrder'#2#1#0#9'TC'
|
||||
+'omboBox'#14'RemoveCombobox'#4'Left'#2#6#6'Height'#2#21#3'Top'#2#6#5'Width'#3
|
||||
+#166#1#5'Align'#7#5'alTop'#16'AutoCompleteText'#11#20'cbactSearchAscending'#0
|
||||
+#20'BorderSpacing.Around'#2#6#10'ItemHeight'#2#13#9'MaxLength'#2#0#11'Parent'
|
||||
+'Ctl3D'#8#8'TabOrder'#2#0#4'Text'#6#14'RemoveCombobox'#0#0#9'TCheckBox'#26'S'
|
||||
+'impleSyntaxRemoveCheckbox'#4'Left'#2#6#6'Height'#2#13#3'Top'#2'!'#5'Width'#3
|
||||
+#166#1#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6'$Simple'
|
||||
+' syntax (e.g. * instead of .*)'#8'TabOrder'#2#1#0#0#0#9'TGroupBox'#12'KeepG'
|
||||
+'roupbox'#4'Left'#2#6#6'Height'#2'Y'#3'Top'#3#158#0#5'Width'#3#182#1#5'Align'
|
||||
+#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#27'Keep '
|
||||
+'files matching filter:'#12'ClientHeight'#2'G'#11'ClientWidth'#3#178#1#11'Pa'
|
||||
+'rentCtl3D'#8#8'TabOrder'#2#2#0#9'TComboBox'#12'KeepCombobox'#4'Left'#2#6#6
|
||||
+'Height'#2#21#3'Top'#2#6#5'Width'#3#166#1#5'Align'#7#5'alTop'#16'AutoComplet'
|
||||
+'eText'#11#20'cbactSearchAscending'#0#20'BorderSpacing.Around'#2#6#10'ItemHe'
|
||||
+'ight'#2#13#9'MaxLength'#2#0#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Text'#6#12
|
||||
+'KeepCombobox'#0#0#9'TCheckBox'#24'SimpleSyntaxKeepCheckbox'#4'Left'#2#6#6'H'
|
||||
+'eight'#2#13#3'Top'#2'!'#5'Width'#3#166#1#5'Align'#7#5'alTop'#20'BorderSpaci'
|
||||
+'ng.Around'#2#6#7'Caption'#6'$Simple syntax (e.g. * instead of .*)'#8'TabOrd'
|
||||
+'er'#2#1#0#0#9'TCheckBox'#21'KeepTextFilesCheckbox'#4'Left'#2#6#6'Height'#2
|
||||
+#13#3'Top'#2'4'#5'Width'#3#166#1#5'Align'#7#5'alTop'#20'BorderSpacing.Around'
|
||||
+#2#6#7'Caption'#6#15'Keep Text Files'#8'TabOrder'#2#2#0#0#0#7'TBitBtn'#8'OkB'
|
||||
+'utton'#21'AnchorSideTop.Control'#7#12'KeepGroupbox'#18'AnchorSideTop.Side'#7
|
||||
+#9'asrBottom'#23'AnchorSideRight.Control'#7#12'CancelButton'#24'AnchorSideBo'
|
||||
+'ttom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3
|
||||
+#27#1#6'Height'#2#28#3'Top'#3#253#0#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'a'
|
||||
+'kRight'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#3'&OK'#21
|
||||
+'Constraints.MinHeight'#2#25#20'Constraints.MinWidth'#2'K'#7'Default'#9#4'Ki'
|
||||
+'nd'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#7'OnClick'#7#13'OkButton'
|
||||
+'Click'#8'TabOrder'#2#3#0#0#7'TBitBtn'#12'CancelButton'#21'AnchorSideTop.Con'
|
||||
+'trol'#7#12'KeepGroupbox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSid'
|
||||
+'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
|
||||
]);
|
||||
|
||||
@ -31,7 +31,7 @@ interface
|
||||
|
||||
uses
|
||||
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;
|
||||
|
||||
type
|
||||
@ -39,6 +39,7 @@ type
|
||||
{ TCleanDirectoryDialog }
|
||||
|
||||
TCleanDirectoryDialog = class(TForm)
|
||||
HelpButton: TBitBtn;
|
||||
DirBrowseButton: TButton;
|
||||
OkButton: TBitBtn;
|
||||
CancelButton: TBitBtn;
|
||||
@ -52,6 +53,7 @@ type
|
||||
DirCombobox: TCOMBOBOX;
|
||||
DirGroupbox: TGROUPBOX;
|
||||
RemoveGroupbox: TGROUPBOX;
|
||||
procedure HelpButtonClick(Sender: TObject);
|
||||
procedure CleanDirectoryDialogCreate(Sender: TObject);
|
||||
procedure DirBrowseButtonClick(Sender: TObject);
|
||||
procedure OkButtonClick(Sender: TObject);
|
||||
@ -84,7 +86,6 @@ function ShowCleanDirectoryDialog(const DefaultDirectory: string;
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
const
|
||||
CleanDirXMLFilename = 'cleandirectorydialog.xml';
|
||||
CleanDirXMLVersion = 1;
|
||||
@ -138,6 +139,11 @@ begin
|
||||
CancelButton.Caption:=dlgCancel;
|
||||
end;
|
||||
|
||||
procedure TCleanDirectoryDialog.HelpButtonClick(Sender: TObject);
|
||||
begin
|
||||
ShowContextHelpForIDE(Self);
|
||||
end;
|
||||
|
||||
procedure TCleanDirectoryDialog.DirBrowseButtonClick(Sender: TObject);
|
||||
var
|
||||
NewDirectory: String;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user