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