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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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