Remove all remaining ExplicitXYZ properties.

Wrote a small console app which removes these properties automatically in a given directory. Feel free to download it at http://www.heidisql.com/files/explicit_sucks.exe and use it before committing *.dfm files.
This commit is contained in:
Ansgar Becker
2007-06-28 21:55:57 +00:00
parent 3c8f123a81
commit 36d9603f3c
8 changed files with 0 additions and 63 deletions

View File

@ -30,7 +30,6 @@ object MDIChild: TMDIChild
Beveled = True Beveled = True
ResizeStyle = rsUpdate ResizeStyle = rsUpdate
OnMoved = Splitter2Moved OnMoved = Splitter2Moved
ExplicitTop = 276
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
@ -49,7 +48,6 @@ object MDIChild: TMDIChild
Cursor = crSizeWE Cursor = crSizeWE
Beveled = True Beveled = True
ResizeStyle = rsUpdate ResizeStyle = rsUpdate
ExplicitHeight = 274
end end
object DBtree: TTreeView object DBtree: TTreeView
Left = 0 Left = 0
@ -760,7 +758,6 @@ object MDIChild: TMDIChild
Width = 496 Width = 496
Height = 13 Height = 13
Align = alTop Align = alTop
ExplicitWidth = 3
end end
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0

View File

@ -85,8 +85,6 @@ object connform: Tconnform
Height = 41 Height = 41
Align = alBottom Align = alBottom
Shape = bsTopLine Shape = bsTopLine
ExplicitLeft = -16
ExplicitWidth = 473
end end
object lblSeconds: TLabel object lblSeconds: TLabel
Tag = 11 Tag = 11
@ -117,7 +115,6 @@ object connform: Tconnform
Caption = 'Rename' Caption = 'Rename'
Enabled = False Enabled = False
OnClick = ButtonEditDescClick OnClick = ButtonEditDescClick
ExplicitLeft = 391
end end
object EditHost: TEdit object EditHost: TEdit
Left = 232 Left = 232

View File

@ -41,7 +41,6 @@ object CopyTableForm: TCopyTableForm
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
TabOrder = 0 TabOrder = 0
OnChange = editNewTablenameChange OnChange = editNewTablenameChange
ExplicitWidth = 361
end end
object radioStructure: TRadioButton object radioStructure: TRadioButton
Left = 160 Left = 160
@ -115,7 +114,6 @@ object CopyTableForm: TCopyTableForm
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
ItemHeight = 13 ItemHeight = 13
TabOrder = 7 TabOrder = 7
ExplicitWidth = 361
end end
object ButtonOK: TButton object ButtonOK: TButton
Left = 114 Left = 114

View File

@ -31,10 +31,6 @@ object FieldEditForm: TFieldEditForm
object tabField: TTabSheet object tabField: TTabSheet
Caption = 'Field' Caption = 'Field'
ImageIndex = 62 ImageIndex = 62
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object lblName: TLabel object lblName: TLabel
Left = 16 Left = 16
Top = 40 Top = 40

View File

@ -36,7 +36,6 @@ object MainForm: TMainForm
Width = 280 Width = 280
end> end>
OnDrawPanel = StatusBarDrawPanel OnDrawPanel = StatusBarDrawPanel
ExplicitTop = 327
end end
object ControlBar1: TControlBar object ControlBar1: TControlBar
Left = 0 Left = 0

View File

@ -31,10 +31,6 @@ object optionsform: Toptionsform
TabOrder = 3 TabOrder = 3
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Miscellaneous' Caption = 'Miscellaneous'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Label4: TLabel object Label4: TLabel
Left = 16 Left = 16
Top = 85 Top = 85
@ -107,10 +103,6 @@ object optionsform: Toptionsform
BorderWidth = 5 BorderWidth = 5
Caption = 'SQL-Appearance' Caption = 'SQL-Appearance'
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object PageControl2: TPageControl object PageControl2: TPageControl
Left = 0 Left = 0
Top = 0 Top = 0
@ -121,10 +113,6 @@ object optionsform: Toptionsform
TabOrder = 0 TabOrder = 0
object TabSheet3: TTabSheet object TabSheet3: TTabSheet
Caption = 'Font' Caption = 'Font'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Label2: TLabel object Label2: TLabel
Left = 156 Left = 156
Top = 60 Top = 60
@ -194,10 +182,6 @@ object optionsform: Toptionsform
object TabSheet4: TTabSheet object TabSheet4: TTabSheet
Caption = 'Color-Coding' Caption = 'Color-Coding'
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Label6: TLabel object Label6: TLabel
Left = 16 Left = 16
Top = 27 Top = 27
@ -331,10 +315,6 @@ object optionsform: Toptionsform
BorderWidth = 5 BorderWidth = 5
Caption = 'Data-Appearance' Caption = 'Data-Appearance'
ImageIndex = 4 ImageIndex = 4
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Label27: TLabel object Label27: TLabel
Left = 8 Left = 8
Top = 93 Top = 93
@ -506,10 +486,6 @@ object optionsform: Toptionsform
BorderWidth = 5 BorderWidth = 5
Caption = 'CSV-Options' Caption = 'CSV-Options'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 0 Left = 0
Top = 0 Top = 0

View File

@ -22,8 +22,6 @@ object frmSQLhelp: TfrmSQLhelp
Height = 336 Height = 336
Cursor = crSizeWE Cursor = crSizeWE
ResizeStyle = rsUpdate ResizeStyle = rsUpdate
ExplicitLeft = 121
ExplicitHeight = 308
end end
object pnlLeft: TPanel object pnlLeft: TPanel
Left = 0 Left = 0
@ -41,7 +39,6 @@ object frmSQLhelp: TfrmSQLhelp
Height = 14 Height = 14
Align = alBottom Align = alBottom
Caption = 'Topics:' Caption = 'Topics:'
ExplicitTop = 4
end end
object treeTopics: TTreeView object treeTopics: TTreeView
Left = 0 Left = 0
@ -58,9 +55,6 @@ object frmSQLhelp: TfrmSQLhelp
TabOrder = 0 TabOrder = 0
OnChange = treeTopicsChange OnChange = treeTopicsChange
OnExpanding = treeTopicsExpanding OnExpanding = treeTopicsExpanding
ExplicitTop = 29
ExplicitWidth = 148
ExplicitHeight = 302
end end
end end
object StatusBar1: TStatusBar object StatusBar1: TStatusBar
@ -89,9 +83,6 @@ object frmSQLhelp: TfrmSQLhelp
Cursor = crSizeNS Cursor = crSizeNS
Align = alTop Align = alTop
ResizeStyle = rsUpdate ResizeStyle = rsUpdate
ExplicitLeft = 5
ExplicitTop = 209
ExplicitWidth = 471
end end
object pnlRightTop: TPanel object pnlRightTop: TPanel
Left = 0 Left = 0
@ -102,10 +93,6 @@ object frmSQLhelp: TfrmSQLhelp
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
BevelOuter = bvNone BevelOuter = bvNone
TabOrder = 0 TabOrder = 0
ExplicitLeft = 5
ExplicitTop = 5
ExplicitWidth = 411
ExplicitHeight = 164
object lblKeyword: TLabel object lblKeyword: TLabel
AlignWithMargins = True AlignWithMargins = True
Left = 0 Left = 0
@ -124,7 +111,6 @@ object frmSQLhelp: TfrmSQLhelp
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
ExplicitWidth = 71
end end
object lblDescription: TLabel object lblDescription: TLabel
AlignWithMargins = True AlignWithMargins = True
@ -138,7 +124,6 @@ object frmSQLhelp: TfrmSQLhelp
Margins.Bottom = 0 Margins.Bottom = 0
Align = alTop Align = alTop
Caption = 'Description:' Caption = 'Description:'
ExplicitWidth = 57
end end
object memoDescription: TMemo object memoDescription: TMemo
AlignWithMargins = True AlignWithMargins = True
@ -163,9 +148,6 @@ object frmSQLhelp: TfrmSQLhelp
ScrollBars = ssBoth ScrollBars = ssBoth
TabOrder = 0 TabOrder = 0
OnKeyDown = memosKeyDown OnKeyDown = memosKeyDown
ExplicitLeft = -2
ExplicitWidth = 405
ExplicitHeight = 120
end end
end end
object pnlRightBottom: TPanel object pnlRightBottom: TPanel
@ -176,9 +158,6 @@ object frmSQLhelp: TfrmSQLhelp
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
TabOrder = 1 TabOrder = 1
ExplicitLeft = 5
ExplicitTop = 177
ExplicitWidth = 411
DesignSize = ( DesignSize = (
418 418
154) 154)
@ -194,7 +173,6 @@ object frmSQLhelp: TfrmSQLhelp
Margins.Bottom = 0 Margins.Bottom = 0
Align = alTop Align = alTop
Caption = 'Example:' Caption = 'Example:'
ExplicitWidth = 44
end end
object MemoExample: TMemo object MemoExample: TMemo
AlignWithMargins = True AlignWithMargins = True
@ -214,7 +192,6 @@ object frmSQLhelp: TfrmSQLhelp
ScrollBars = ssBoth ScrollBars = ssBoth
TabOrder = 0 TabOrder = 0
OnKeyDown = memosKeyDown OnKeyDown = memosKeyDown
ExplicitWidth = 411
end end
object ButtonClose: TButton object ButtonClose: TButton
Left = 316 Left = 316
@ -227,7 +204,6 @@ object frmSQLhelp: TfrmSQLhelp
Default = True Default = True
TabOrder = 1 TabOrder = 1
OnClick = ButtonCloseClick OnClick = ButtonCloseClick
ExplicitLeft = 309
end end
object ButtonSearchOnline: TBitBtn object ButtonSearchOnline: TBitBtn
Left = 207 Left = 207
@ -281,7 +257,6 @@ object frmSQLhelp: TfrmSQLhelp
90765F685B8A87288BAB990C2177A7AAA5926C7065948E3496ABAB8D2042A3A9 90765F685B8A87288BAB990C2177A7AAA5926C7065948E3496ABAB8D2042A3A9
9D7375705B854F8BA1ABABA5832A7484915D5E705A64819EABABABABA58F5369 9D7375705B854F8BA1ABABA5832A7484915D5E705A64819EABABABABA58F5369
867E5B665A7D9EABABABABABABAB9A8F7C637B8D99A4ABABABAB} 867E5B665A7D9EABABABABABABAB9A8F7C637B8D99A4ABABABAB}
ExplicitLeft = 200
end end
end end
end end

View File

@ -428,7 +428,6 @@ object UserManagerForm: TUserManagerForm
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
ExplicitWidth = 100
end end
object TreeViewUsers: TTreeView object TreeViewUsers: TTreeView
Left = 5 Left = 5