The following patch implements
- improved anchoring
- IDE help
Darius
Index: cleandirdlg.lfm
===================================================================
--- cleandirdlg.lfm (revision 11963)
+++ cleandirdlg.lfm (working copy)
@@ -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 @@
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 @@
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 @@
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = DirGroupbox
AnchorSideRight.Side = asrBottom
- Left = 387
+ Left = 406
Height = 21
Top = 6
Width = 23
@@ -71,25 +75,26 @@
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 @@
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 @@
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 @@
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 @@
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 @@
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 @@
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
Index: cleandirdlg.lrs
===================================================================
--- cleandirdlg.lrs (revision 11963)
+++ cleandirdlg.lrs (working copy)
@@ -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
]);
Index: cleandirdlg.pas
===================================================================
--- cleandirdlg.pas (revision 11963)
+++ cleandirdlg.pas (working copy)
@@ -31,7 +31,7 @@
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 @@
{ TCleanDirectoryDialog }
TCleanDirectoryDialog = class(TForm)
+ HelpButton: TBitBtn;
DirBrowseButton: TButton;
OkButton: TBitBtn;
CancelButton: TBitBtn;
@@ -52,6 +53,7 @@
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 @@
implementation
-
const
CleanDirXMLFilename = 'cleandirectorydialog.xml';
CleanDirXMLVersion = 1;
@@ -138,6 +139,11 @@
CancelButton.Caption:=dlgCancel;
end;
+procedure TCleanDirectoryDialog.HelpButtonClick(Sender: TObject);
+begin
+ ShowContextHelpForIDE(Self);
+end;
+
procedure TCleanDirectoryDialog.DirBrowseButtonClick(Sender: TObject);
var
NewDirectory: String;
