Changes:
- OkButton and CancelButton have the same size
- BorderStyle now dsDialog
- Form is now centered on Screen
Manny forms in Lazarus have a OK and Cancel button an many forms don't
show uniform. Ok an Cancel buttons have different size. One time Ok
button is on the right on an other form the button is left the Cancel
button.
It's not a good idea to place OK on all on the right and the cancel left
the ok button?
Index: F:/lazarus-svn/trunk/ide/cleandirdlg.lfm
===================================================================
--- F:/lazarus-svn/trunk/ide/cleandirdlg.lfm (revision 9183)
+++ F:/lazarus-svn/trunk/ide/cleandirdlg.lfm (working copy)
@@ -1,28 +1,31 @@
object CleanDirectoryDialog: TCleanDirectoryDialog
ActiveControl = DirCombobox
BorderIcons = [biSystemMenu]
+ BorderStyle = bsDialog
Caption = 'Clean Directory'
- ClientHeight = 332
+ ClientHeight = 294
ClientWidth = 431
OnCreate = CleanDirectoryDialogCreate
- PixelsPerInch = 112
+ PixelsPerInch = 96
+ Position = poScreenCenter
+ ShowInTaskBar = stNever
HorzScrollBar.Page = 430
- VertScrollBar.Page = 331
- Left = 316
- Height = 332
- Top = 212
+ VertScrollBar.Page = 293
+ Left = 419
+ Height = 294
+ Top = 314
Width = 431
object DirGroupbox: TGroupBox
Align = alTop
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Directory'
- ClientHeight = 63
+ ClientHeight = 52
ClientWidth = 415
ParentCtl3D = False
TabOrder = 0
Left = 6
- Height = 80
+ Height = 70
Top = 6
Width = 419
object DirCombobox: TComboBox
@@ -44,7 +47,7 @@
Caption = 'Clean sub directories'
TabOrder = 1
Left = 6
- Height = 24
+ Height = 13
Top = 33
Width = 403
end
@@ -54,13 +57,13 @@
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Remove files matching filter:'
- ClientHeight = 63
+ ClientHeight = 52
ClientWidth = 415
ParentCtl3D = False
TabOrder = 1
Left = 6
- Height = 80
- Top = 92
+ Height = 70
+ Top = 82
Width = 419
object RemoveCombobox: TComboBox
Align = alTop
@@ -81,7 +84,7 @@
Caption = 'Simple syntax (e.g. * instead of .*)'
TabOrder = 1
Left = 6
- Height = 24
+ Height = 13
Top = 33
Width = 403
end
@@ -91,13 +94,13 @@
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Keep files matching filter:'
- ClientHeight = 93
+ ClientHeight = 71
ClientWidth = 415
ParentCtl3D = False
TabOrder = 2
Left = 6
- Height = 110
- Top = 178
+ Height = 89
+ Top = 158
Width = 419
object KeepCombobox: TComboBox
Align = alTop
@@ -118,7 +121,7 @@
Caption = 'Simple syntax (e.g. * instead of .*)'
TabOrder = 1
Left = 6
- Height = 24
+ Height = 13
Top = 33
Width = 403
end
@@ -128,14 +131,13 @@
Caption = 'Keep Text Files'
TabOrder = 2
Left = 6
- Height = 24
- Top = 63
+ Height = 13
+ Top = 52
Width = 403
end
end
object OkButton: TBitBtn
Anchors = [akRight, akBottom]
- AutoSize = True
BorderSpacing.Around = 6
BorderSpacing.InnerBorder = 2
Caption = '&OK'
@@ -148,14 +150,13 @@
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
- Left = 374
- Height = 28
- Top = 298
- Width = 51
+ Left = 344
+ Height = 30
+ Top = 258
+ Width = 81
end
object CancelButton: TBitBtn
Anchors = [akRight, akBottom]
- AutoSize = True
BorderSpacing.Around = 6
BorderSpacing.InnerBorder = 2
Cancel = True
@@ -167,9 +168,9 @@
AnchorSideRight.Control = OkButton
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
- Left = 295
- Height = 28
- Top = 298
- Width = 73
+ Left = 257
+ Height = 30
+ Top = 258
+ Width = 81
end
end
Index: F:/lazarus-svn/trunk/ide/cleandirdlg.lrs
===================================================================
--- F:/lazarus-svn/trunk/ide/cleandirdlg.lrs (revision 9183)
+++ F:/lazarus-svn/trunk/ide/cleandirdlg.lrs (working copy)
@@ -2,53 +2,54 @@
LazarusResources.Add('TCleanDirectoryDialog','FORMDATA',[
'TPF0'#21'TCleanDirectoryDialog'#20'CleanDirectoryDialog'#13'ActiveControl'#7
-
+#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
+
+#11'DirCombobox'#11'BorderIcons'#11#12'biSystemMenu'#0#11'BorderStyle'#7#8'b'
+ +'sDialog'#7'Caption'#6#15'Clean
Directory'#12'ClientHeight'#3'&'#1#11'Client'
+
+'Width'#3#175#1#8'OnCreate'#7#26'CleanDirectoryDialogCreate'#13'PixelsPerInc'
+ +'h'#2'`'#8'Position'#7#14'poScreenCenter'#13'ShowInTaskBar'#7#7'stNever'#18
+ +'HorzScrollBar.Page'#3#174#1#18'VertScrollBar.Page'#3'%'#1#4'Left'#3#163#1#6
+
+'Height'#3'&'#1#3'Top'#3':'#1#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'ClientHeight'#2'4'#11'ClientWidth'#3#159#1#11'ParentCtl3D'#8
+ +#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2'F'#3'Top'#2#6#5'Width'#3#163#1#0#9
+
+'TComboBox'#11'DirCombobox'#5'Align'#7#5'alTop'#16'AutoCompleteText'#11#20'c'
+
+'bactSearchAscending'#0#20'BorderSpacing.Around'#2#6#9'MaxLength'#2#0#11'Par'
+ +'entCtl3D'#8#8'TabOrder'#2#0#4'Text'#6#11'DirCombobox'#4'Left'#2#6#6'Height'
+
+#2#21#3'Top'#2#6#5'Width'#3#147#1#0#0#9'TCheckBox'#15'SubDirsCheckbox'#5'Ali'
+ +'gn'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#21'Clean sub
direc'
+ +'tories'#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2#13#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.Around'#2#6#7'Caption'#6#29'Remove files matching
filter'
+
+':'#12'ClientHeight'#2'4'#11'ClientWidth'#3#159#1#11'ParentCtl3D'#8#8'TabOrd'
+
+'er'#2#1#4'Left'#2#6#6'Height'#2'F'#3'Top'#2'R'#5'Width'#3#163#1#0#9'TComboB'
+
+'ox'#14'RemoveCombobox'#5'Align'#7#5'alTop'#16'AutoCompleteText'#11#20'cbact'
+
+'SearchAscending'#0#20'BorderSpacing.Around'#2#6#9'MaxLength'#2#0#11'ParentC'
+
+'tl3D'#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'SimpleSyntaxRemoveCheckb'
+ +'ox'#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6'$Simple
s'
+ +'yntax (e.g. * instead of .*)'#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2#13#3
+ +'Top'#2'!'#5'Width'#3#147#1#0#0#0#9'TGroupBox'#12'KeepGroupbox'#5'Align'#7#5
+ +'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#27'Keep
file'
+ +'s matching
filter:'#12'ClientHeight'#2'G'#11'ClientWidth'#3#159#1#11'Parent'
+ +'Ctl3D'#8#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#2'Y'#3'Top'#3#158#0#5'Width'
+
+#3#163#1#0#9'TComboBox'#12'KeepCombobox'#5'Align'#7#5'alTop'#16'AutoComplete'
+
+'Text'#11#20'cbactSearchAscending'#0#20'BorderSpacing.Around'#2#6#9'MaxLengt'
+ +'h'#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'SimpleSy'
+
+'ntaxKeepCheckbox'#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Captio'
+ +'n'#6'$Simple syntax (e.g. * instead of
.*)'#8'TabOrder'#2#1#4'Left'#2#6#6'H'
+
+'eight'#2#13#3'Top'#2'!'#5'Width'#3#147#1#0#0#9'TCheckBox'#21'KeepTextFilesC'
+
+'heckbox'#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#15'K'
+ +'eep Text
Files'#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#2#13#3'Top'#2'4'#5'Wi'
+
+'dth'#3#147#1#0#0#0#7'TBitBtn'#8'OkButton'#7'Anchors'#11#7'akRight'#8'akBott'
+
+'om'#0#20'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#2#7'Capt'
+
+'ion'#6#3'&OK'#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyph'
+
+'s'#2#0#8'TabOrder'#2#3#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSide'
+
+'Right.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#5'Owner'#21'Ancho'
+ +'rSideBottom.Side'#7#9'asrBottom'#4'Left'#3'X'#1#6'Height'#2#30#3'Top'#3#2#1
+
+#5'Width'#2'Q'#0#0#7'TBitBtn'#12'CancelButton'#7'Anchors'#11#7'akRight'#8'ak'
+ +'Bottom'#0#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
+ +'NumGlyphs'#2#0#8'TabOrder'#2#4#23'AnchorSideRight.Control'#7#8'OkButton'#24
+
+'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBotto'
+ +'m'#4'Left'#3#1#1#6'Height'#2#30#3'Top'#3#2#1#5'Width'#2'Q'#0#0#0
]);
