mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-17 21:41:35 +02:00
improved layout of ide clean dir dlg
git-svn-id: trunk@9094 -
This commit is contained in:
mattias
parent
8fa30c59b2
commit
7819418577
@ -1,139 +1,175 @@
|
|||||||
object CleanDirectoryDialog: TCleanDirectoryDialog
|
object CleanDirectoryDialog: TCleanDirectoryDialog
|
||||||
ActiveControl = OkButton
|
ActiveControl = DirCombobox
|
||||||
|
BorderIcons = [biSystemMenu]
|
||||||
Caption = 'Clean Directory'
|
Caption = 'Clean Directory'
|
||||||
ClientHeight = 345
|
ClientHeight = 332
|
||||||
ClientWidth = 502
|
ClientWidth = 431
|
||||||
OnCreate = CleanDirectoryDialogCreate
|
OnCreate = CleanDirectoryDialogCreate
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 112
|
||||||
HorzScrollBar.Page = 501
|
HorzScrollBar.Page = 430
|
||||||
VertScrollBar.Page = 344
|
VertScrollBar.Page = 331
|
||||||
Left = 316
|
Left = 316
|
||||||
Height = 345
|
Height = 332
|
||||||
Top = 212
|
Top = 212
|
||||||
Width = 502
|
Width = 431
|
||||||
object OkButton: TButton
|
|
||||||
BorderSpacing.InnerBorder = 2
|
|
||||||
Caption = 'Ok'
|
|
||||||
OnClick = OkButtonClick
|
|
||||||
TabOrder = 0
|
|
||||||
Left = 128
|
|
||||||
Height = 25
|
|
||||||
Top = 312
|
|
||||||
Width = 97
|
|
||||||
end
|
|
||||||
object CancelButton: TButton
|
|
||||||
BorderSpacing.InnerBorder = 2
|
|
||||||
Caption = 'Cancel'
|
|
||||||
ModalResult = 2
|
|
||||||
TabOrder = 1
|
|
||||||
Left = 269
|
|
||||||
Height = 25
|
|
||||||
Top = 312
|
|
||||||
Width = 97
|
|
||||||
end
|
|
||||||
object DirGroupbox: TGroupBox
|
object DirGroupbox: TGroupBox
|
||||||
Anchors = [akTop, akLeft, akRight]
|
Align = alTop
|
||||||
|
AutoSize = True
|
||||||
|
BorderSpacing.Around = 6
|
||||||
Caption = 'Directory'
|
Caption = 'Directory'
|
||||||
ClientHeight = 62
|
ClientHeight = 63
|
||||||
ClientWidth = 482
|
ClientWidth = 415
|
||||||
ParentCtl3D = False
|
ParentCtl3D = False
|
||||||
TabOrder = 2
|
TabOrder = 0
|
||||||
Left = 8
|
Left = 6
|
||||||
Height = 80
|
Height = 80
|
||||||
Top = 8
|
Top = 6
|
||||||
Width = 486
|
Width = 419
|
||||||
object DirCombobox: TComboBox
|
object DirCombobox: TComboBox
|
||||||
Anchors = [akTop, akLeft, akRight]
|
Align = alTop
|
||||||
AutoCompleteText = [cbactSearchAscending]
|
AutoCompleteText = [cbactSearchAscending]
|
||||||
|
BorderSpacing.Around = 6
|
||||||
MaxLength = 0
|
MaxLength = 0
|
||||||
ParentCtl3D = False
|
ParentCtl3D = False
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
Text = 'DirCombobox'
|
Text = 'DirCombobox'
|
||||||
Left = 6
|
Left = 6
|
||||||
Height = 21
|
Height = 21
|
||||||
Top = 9
|
Top = 6
|
||||||
Width = 468
|
Width = 403
|
||||||
end
|
end
|
||||||
object SubDirsCheckbox: TCheckBox
|
object SubDirsCheckbox: TCheckBox
|
||||||
Anchors = [akTop, akLeft, akRight]
|
Align = alTop
|
||||||
|
BorderSpacing.Around = 6
|
||||||
Caption = 'Clean sub directories'
|
Caption = 'Clean sub directories'
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
Left = 6
|
Left = 6
|
||||||
Height = 13
|
Height = 24
|
||||||
Top = 39
|
Top = 33
|
||||||
Width = 468
|
Width = 403
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object RemoveGroupbox: TGroupBox
|
object RemoveGroupbox: TGroupBox
|
||||||
Anchors = [akTop, akLeft, akRight]
|
Align = alTop
|
||||||
|
AutoSize = True
|
||||||
|
BorderSpacing.Around = 6
|
||||||
Caption = 'Remove files matching filter:'
|
Caption = 'Remove files matching filter:'
|
||||||
ClientHeight = 67
|
ClientHeight = 63
|
||||||
ClientWidth = 482
|
ClientWidth = 415
|
||||||
ParentCtl3D = False
|
ParentCtl3D = False
|
||||||
TabOrder = 3
|
TabOrder = 1
|
||||||
Left = 8
|
Left = 6
|
||||||
Height = 85
|
Height = 80
|
||||||
Top = 96
|
Top = 92
|
||||||
Width = 486
|
Width = 419
|
||||||
object RemoveCombobox: TComboBox
|
object RemoveCombobox: TComboBox
|
||||||
Anchors = [akTop, akLeft, akRight]
|
Align = alTop
|
||||||
AutoCompleteText = [cbactSearchAscending]
|
AutoCompleteText = [cbactSearchAscending]
|
||||||
|
BorderSpacing.Around = 6
|
||||||
MaxLength = 0
|
MaxLength = 0
|
||||||
ParentCtl3D = False
|
ParentCtl3D = False
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
Text = 'RemoveCombobox'
|
Text = 'RemoveCombobox'
|
||||||
Left = 6
|
Left = 6
|
||||||
Height = 21
|
Height = 21
|
||||||
Top = 8
|
Top = 6
|
||||||
Width = 468
|
Width = 403
|
||||||
end
|
end
|
||||||
object SimpleSyntaxRemoveCheckbox: TCheckBox
|
object SimpleSyntaxRemoveCheckbox: TCheckBox
|
||||||
|
Align = alTop
|
||||||
|
BorderSpacing.Around = 6
|
||||||
Caption = 'Simple syntax (e.g. * instead of .*)'
|
Caption = 'Simple syntax (e.g. * instead of .*)'
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
Left = 6
|
Left = 6
|
||||||
Height = 13
|
Height = 24
|
||||||
Top = 37
|
Top = 33
|
||||||
Width = 177
|
Width = 403
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object KeepGroupbox: TGroupBox
|
object KeepGroupbox: TGroupBox
|
||||||
Anchors = [akTop, akLeft, akRight]
|
Align = alTop
|
||||||
|
AutoSize = True
|
||||||
|
BorderSpacing.Around = 6
|
||||||
Caption = 'Keep files matching filter:'
|
Caption = 'Keep files matching filter:'
|
||||||
ClientHeight = 88
|
ClientHeight = 93
|
||||||
ClientWidth = 482
|
ClientWidth = 415
|
||||||
ParentCtl3D = False
|
ParentCtl3D = False
|
||||||
TabOrder = 4
|
TabOrder = 2
|
||||||
Left = 8
|
Left = 6
|
||||||
Height = 106
|
Height = 110
|
||||||
Top = 190
|
Top = 178
|
||||||
Width = 486
|
Width = 419
|
||||||
object KeepCombobox: TComboBox
|
object KeepCombobox: TComboBox
|
||||||
Anchors = [akTop, akLeft, akRight]
|
Align = alTop
|
||||||
AutoCompleteText = [cbactSearchAscending]
|
AutoCompleteText = [cbactSearchAscending]
|
||||||
|
BorderSpacing.Around = 6
|
||||||
MaxLength = 0
|
MaxLength = 0
|
||||||
ParentCtl3D = False
|
ParentCtl3D = False
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
Text = 'KeepCombobox'
|
Text = 'KeepCombobox'
|
||||||
Left = 6
|
Left = 6
|
||||||
Height = 21
|
Height = 21
|
||||||
Top = 8
|
Top = 6
|
||||||
Width = 468
|
Width = 403
|
||||||
end
|
end
|
||||||
object SimpleSyntaxKeepCheckbox: TCheckBox
|
object SimpleSyntaxKeepCheckbox: TCheckBox
|
||||||
|
Align = alTop
|
||||||
|
BorderSpacing.Around = 6
|
||||||
Caption = 'Simple syntax (e.g. * instead of .*)'
|
Caption = 'Simple syntax (e.g. * instead of .*)'
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
Left = 6
|
Left = 6
|
||||||
Height = 13
|
Height = 24
|
||||||
Top = 35
|
Top = 33
|
||||||
Width = 177
|
Width = 403
|
||||||
end
|
end
|
||||||
object KeepTextFilesCheckbox: TCheckBox
|
object KeepTextFilesCheckbox: TCheckBox
|
||||||
|
Align = alTop
|
||||||
|
BorderSpacing.Around = 6
|
||||||
Caption = 'Keep Text Files'
|
Caption = 'Keep Text Files'
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
Left = 6
|
Left = 6
|
||||||
Height = 13
|
Height = 24
|
||||||
Top = 61
|
Top = 63
|
||||||
Width = 93
|
Width = 403
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
object OkButton: TBitBtn
|
||||||
|
Anchors = [akRight, akBottom]
|
||||||
|
AutoSize = True
|
||||||
|
BorderSpacing.Around = 6
|
||||||
|
BorderSpacing.InnerBorder = 2
|
||||||
|
Caption = '&OK'
|
||||||
|
Default = True
|
||||||
|
Kind = bkOK
|
||||||
|
ModalResult = 1
|
||||||
|
NumGlyphs = 0
|
||||||
|
TabOrder = 3
|
||||||
|
AnchorSideRight.Control = Owner
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
AnchorSideBottom.Control = Owner
|
||||||
|
AnchorSideBottom.Side = asrBottom
|
||||||
|
Left = 374
|
||||||
|
Height = 28
|
||||||
|
Top = 298
|
||||||
|
Width = 51
|
||||||
|
end
|
||||||
|
object CancelButton: TBitBtn
|
||||||
|
Anchors = [akRight, akBottom]
|
||||||
|
AutoSize = True
|
||||||
|
BorderSpacing.Around = 6
|
||||||
|
BorderSpacing.InnerBorder = 2
|
||||||
|
Cancel = True
|
||||||
|
Caption = 'Cancel'
|
||||||
|
Kind = bkCancel
|
||||||
|
ModalResult = 2
|
||||||
|
NumGlyphs = 0
|
||||||
|
TabOrder = 4
|
||||||
|
AnchorSideRight.Control = OkButton
|
||||||
|
AnchorSideBottom.Control = Owner
|
||||||
|
AnchorSideBottom.Side = asrBottom
|
||||||
|
Left = 295
|
||||||
|
Height = 28
|
||||||
|
Top = 298
|
||||||
|
Width = 73
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -2,43 +2,53 @@
|
|||||||
|
|
||||||
LazarusResources.Add('TCleanDirectoryDialog','FORMDATA',[
|
LazarusResources.Add('TCleanDirectoryDialog','FORMDATA',[
|
||||||
'TPF0'#21'TCleanDirectoryDialog'#20'CleanDirectoryDialog'#13'ActiveControl'#7
|
'TPF0'#21'TCleanDirectoryDialog'#20'CleanDirectoryDialog'#13'ActiveControl'#7
|
||||||
+#8'OkButton'#7'Caption'#6#15'Clean Directory'#12'ClientHeight'#3'Y'#1#11'Cli'
|
+#11'DirCombobox'#11'BorderIcons'#11#12'biSystemMenu'#0#7'Caption'#6#15'Clean'
|
||||||
+'entWidth'#3#246#1#8'OnCreate'#7#26'CleanDirectoryDialogCreate'#13'PixelsPer'
|
+' Directory'#12'ClientHeight'#3'L'#1#11'ClientWidth'#3#175#1#8'OnCreate'#7#26
|
||||||
+'Inch'#2'`'#18'HorzScrollBar.Page'#3#245#1#18'VertScrollBar.Page'#3'X'#1#4'L'
|
+'CleanDirectoryDialogCreate'#13'PixelsPerInch'#2'p'#18'HorzScrollBar.Page'#3
|
||||||
+'eft'#3'<'#1#6'Height'#3'Y'#1#3'Top'#3#212#0#5'Width'#3#246#1#0#7'TButton'#8
|
+#174#1#18'VertScrollBar.Page'#3'K'#1#4'Left'#3'<'#1#6'Height'#3'L'#1#3'Top'#3
|
||||||
+'OkButton'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#2'Ok'#7'OnClick'#7
|
+#212#0#5'Width'#3#175#1#0#9'TGroupBox'#11'DirGroupbox'#5'Align'#7#5'alTop'#8
|
||||||
+#13'OkButtonClick'#8'TabOrder'#2#0#4'Left'#3#128#0#6'Height'#2#25#3'Top'#3'8'
|
+'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#9'Directory'#12'Clien'
|
||||||
+#1#5'Width'#2'a'#0#0#7'TButton'#12'CancelButton'#25'BorderSpacing.InnerBorde'
|
+'tHeight'#2'?'#11'ClientWidth'#3#159#1#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'L'
|
||||||
+'r'#2#2#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#1#4'Left'#3
|
+'eft'#2#6#6'Height'#2'P'#3'Top'#2#6#5'Width'#3#163#1#0#9'TComboBox'#11'DirCo'
|
||||||
+#13#1#6'Height'#2#25#3'Top'#3'8'#1#5'Width'#2'a'#0#0#9'TGroupBox'#11'DirGrou'
|
+'mbobox'#5'Align'#7#5'alTop'#16'AutoCompleteText'#11#20'cbactSearchAscending'
|
||||||
+'pbox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#9'Director'
|
+#0#20'BorderSpacing.Around'#2#6#9'MaxLength'#2#0#11'ParentCtl3D'#8#8'TabOrde'
|
||||||
+'y'#12'ClientHeight'#2'>'#11'ClientWidth'#3#226#1#11'ParentCtl3D'#8#8'TabOrd'
|
+'r'#2#0#4'Text'#6#11'DirCombobox'#4'Left'#2#6#6'Height'#2#21#3'Top'#2#6#5'Wi'
|
||||||
+'er'#2#2#4'Left'#2#8#6'Height'#2'P'#3'Top'#2#8#5'Width'#3#230#1#0#9'TComboBo'
|
+'dth'#3#147#1#0#0#9'TCheckBox'#15'SubDirsCheckbox'#5'Align'#7#5'alTop'#20'Bo'
|
||||||
+'x'#11'DirCombobox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCom'
|
+'rderSpacing.Around'#2#6#7'Caption'#6#21'Clean sub directories'#8'TabOrder'#2
|
||||||
+'pleteText'#11#20'cbactSearchAscending'#0#9'MaxLength'#2#0#11'ParentCtl3D'#8
|
+#1#4'Left'#2#6#6'Height'#2#24#3'Top'#2'!'#5'Width'#3#147#1#0#0#0#9'TGroupBox'
|
||||||
+#8'TabOrder'#2#0#4'Text'#6#11'DirCombobox'#4'Left'#2#6#6'Height'#2#21#3'Top'
|
+#14'RemoveGroupbox'#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Aroun'
|
||||||
+#2#9#5'Width'#3#212#1#0#0#9'TCheckBox'#15'SubDirsCheckbox'#7'Anchors'#11#5'a'
|
+'d'#2#6#7'Caption'#6#29'Remove files matching filter:'#12'ClientHeight'#2'?'
|
||||||
+'kTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#21'Clean sub directories'#8'TabOr'
|
+#11'ClientWidth'#3#159#1#11'ParentCtl3D'#8#8'TabOrder'#2#1#4'Left'#2#6#6'Hei'
|
||||||
+'der'#2#1#4'Left'#2#6#6'Height'#2#13#3'Top'#2''''#5'Width'#3#212#1#0#0#0#9'T'
|
+'ght'#2'P'#3'Top'#2'\'#5'Width'#3#163#1#0#9'TComboBox'#14'RemoveCombobox'#5
|
||||||
+'GroupBox'#14'RemoveGroupbox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7
|
+'Align'#7#5'alTop'#16'AutoCompleteText'#11#20'cbactSearchAscending'#0#20'Bor'
|
||||||
+'Caption'#6#29'Remove files matching filter:'#12'ClientHeight'#2'C'#11'Clien'
|
+'derSpacing.Around'#2#6#9'MaxLength'#2#0#11'ParentCtl3D'#8#8'TabOrder'#2#0#4
|
||||||
+'tWidth'#3#226#1#11'ParentCtl3D'#8#8'TabOrder'#2#3#4'Left'#2#8#6'Height'#2'U'
|
+'Text'#6#14'RemoveCombobox'#4'Left'#2#6#6'Height'#2#21#3'Top'#2#6#5'Width'#3
|
||||||
+#3'Top'#2'`'#5'Width'#3#230#1#0#9'TComboBox'#14'RemoveCombobox'#7'Anchors'#11
|
+#147#1#0#0#9'TCheckBox'#26'SimpleSyntaxRemoveCheckbox'#5'Align'#7#5'alTop'#20
|
||||||
+#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#20'cbactSearchAscen'
|
+'BorderSpacing.Around'#2#6#7'Caption'#6'$Simple syntax (e.g. * instead of .*'
|
||||||
+'ding'#0#9'MaxLength'#2#0#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Text'#6#14'Rem'
|
+')'#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2#24#3'Top'#2'!'#5'Width'#3#147#1#0
|
||||||
+'oveCombobox'#4'Left'#2#6#6'Height'#2#21#3'Top'#2#8#5'Width'#3#212#1#0#0#9'T'
|
+#0#0#9'TGroupBox'#12'KeepGroupbox'#5'Align'#7#5'alTop'#8'AutoSize'#9#20'Bord'
|
||||||
+'CheckBox'#26'SimpleSyntaxRemoveCheckbox'#7'Caption'#6'$Simple syntax (e.g. '
|
+'erSpacing.Around'#2#6#7'Caption'#6#27'Keep files matching filter:'#12'Clien'
|
||||||
+'* instead of .*)'#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2#13#3'Top'#2'%'#5
|
+'tHeight'#2']'#11'ClientWidth'#3#159#1#11'ParentCtl3D'#8#8'TabOrder'#2#2#4'L'
|
||||||
+'Width'#3#177#0#0#0#0#9'TGroupBox'#12'KeepGroupbox'#7'Anchors'#11#5'akTop'#6
|
+'eft'#2#6#6'Height'#2'n'#3'Top'#3#178#0#5'Width'#3#163#1#0#9'TComboBox'#12'K'
|
||||||
+'akLeft'#7'akRight'#0#7'Caption'#6#27'Keep files matching filter:'#12'Client'
|
+'eepCombobox'#5'Align'#7#5'alTop'#16'AutoCompleteText'#11#20'cbactSearchAsce'
|
||||||
+'Height'#2'X'#11'ClientWidth'#3#226#1#11'ParentCtl3D'#8#8'TabOrder'#2#4#4'Le'
|
+'nding'#0#20'BorderSpacing.Around'#2#6#9'MaxLength'#2#0#11'ParentCtl3D'#8#8
|
||||||
+'ft'#2#8#6'Height'#2'j'#3'Top'#3#190#0#5'Width'#3#230#1#0#9'TComboBox'#12'Ke'
|
+'TabOrder'#2#0#4'Text'#6#12'KeepCombobox'#4'Left'#2#6#6'Height'#2#21#3'Top'#2
|
||||||
+'epCombobox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteTe'
|
+#6#5'Width'#3#147#1#0#0#9'TCheckBox'#24'SimpleSyntaxKeepCheckbox'#5'Align'#7
|
||||||
+'xt'#11#20'cbactSearchAscending'#0#9'MaxLength'#2#0#11'ParentCtl3D'#8#8'TabO'
|
+#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6'$Simple syntax (e.g. * i'
|
||||||
+'rder'#2#0#4'Text'#6#12'KeepCombobox'#4'Left'#2#6#6'Height'#2#21#3'Top'#2#8#5
|
+'nstead of .*)'#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2#24#3'Top'#2'!'#5'Wid'
|
||||||
+'Width'#3#212#1#0#0#9'TCheckBox'#24'SimpleSyntaxKeepCheckbox'#7'Caption'#6'$'
|
+'th'#3#147#1#0#0#9'TCheckBox'#21'KeepTextFilesCheckbox'#5'Align'#7#5'alTop'
|
||||||
+'Simple syntax (e.g. * instead of .*)'#8'TabOrder'#2#1#4'Left'#2#6#6'Height'
|
+#20'BorderSpacing.Around'#2#6#7'Caption'#6#15'Keep Text Files'#8'TabOrder'#2
|
||||||
+#2#13#3'Top'#2'#'#5'Width'#3#177#0#0#0#9'TCheckBox'#21'KeepTextFilesCheckbox'
|
+#2#4'Left'#2#6#6'Height'#2#24#3'Top'#2'?'#5'Width'#3#147#1#0#0#0#7'TBitBtn'#8
|
||||||
+#7'Caption'#6#15'Keep Text Files'#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#2#13
|
+'OkButton'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpa'
|
||||||
+#3'Top'#2'='#5'Width'#2']'#0#0#0#0
|
+'cing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#3'&OK'#7'De'
|
||||||
|
+'fault'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8'TabOrder'
|
||||||
|
+#2#3#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asr'
|
||||||
|
+'Bottom'#24'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7
|
||||||
|
+#9'asrBottom'#4'Left'#3'v'#1#6'Height'#2#28#3'Top'#3'*'#1#5'Width'#2'3'#0#0#7
|
||||||
|
+'TBitBtn'#12'CancelButton'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'
|
||||||
|
+#9#20'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#2#6'Cancel'#9
|
||||||
|
+#7'Caption'#6#6'Cancel'#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'NumGlyph'
|
||||||
|
+'s'#2#0#8'TabOrder'#2#4#23'AnchorSideRight.Control'#7#8'OkButton'#24'AnchorS'
|
||||||
|
+'ideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Le'
|
||||||
|
+'ft'#3''''#1#6'Height'#2#28#3'Top'#3'*'#1#5'Width'#2'I'#0#0#0
|
||||||
]);
|
]);
|
||||||
|
|||||||
@ -39,6 +39,8 @@ type
|
|||||||
{ TCleanDirectoryDialog }
|
{ TCleanDirectoryDialog }
|
||||||
|
|
||||||
TCleanDirectoryDialog = class(TForm)
|
TCleanDirectoryDialog = class(TForm)
|
||||||
|
OkButton: TBitBtn;
|
||||||
|
CancelButton: TBitBtn;
|
||||||
KeepTextFilesCheckbox: TCHECKBOX;
|
KeepTextFilesCheckbox: TCHECKBOX;
|
||||||
SubDirsCheckbox: TCHECKBOX;
|
SubDirsCheckbox: TCHECKBOX;
|
||||||
SimpleSyntaxKeepCheckbox: TCHECKBOX;
|
SimpleSyntaxKeepCheckbox: TCHECKBOX;
|
||||||
@ -49,8 +51,6 @@ type
|
|||||||
DirCombobox: TCOMBOBOX;
|
DirCombobox: TCOMBOBOX;
|
||||||
DirGroupbox: TGROUPBOX;
|
DirGroupbox: TGROUPBOX;
|
||||||
RemoveGroupbox: TGROUPBOX;
|
RemoveGroupbox: TGROUPBOX;
|
||||||
OkButton: TBUTTON;
|
|
||||||
CancelButton: TBUTTON;
|
|
||||||
procedure CleanDirectoryDialogCreate(Sender: TObject);
|
procedure CleanDirectoryDialogCreate(Sender: TObject);
|
||||||
procedure OkButtonClick(Sender: TObject);
|
procedure OkButtonClick(Sender: TObject);
|
||||||
private
|
private
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user