From 30e40ac897a10a1626105d7ad7bef560d78e1469 Mon Sep 17 00:00:00 2001 From: Ansgar Becker Date: Sat, 30 Jan 2010 08:15:31 +0000 Subject: [PATCH] Automatic dfm changes by IDE: Removed ComboBox.ItemHeight property and auto-adjusted dimensions of various buttons and other controls. --- source/copytable.dfm | 1 - source/createdatabase.dfm | 2 -- source/insertfiles.dfm | 4 --- source/loaddata.dfm | 3 -- source/main.dfm | 74 +++++++++++++++++++-------------------- source/printlist.dfm | 1 - source/tabletools.dfm | 9 ----- source/trigger_editor.dfm | 6 ++-- source/usermanager.dfm | 2 -- 9 files changed, 39 insertions(+), 63 deletions(-) diff --git a/source/copytable.dfm b/source/copytable.dfm index 08c02569..5351bd8c 100644 --- a/source/copytable.dfm +++ b/source/copytable.dfm @@ -113,7 +113,6 @@ object CopyTableForm: TCopyTableForm Height = 21 Style = csDropDownList Anchors = [akLeft, akTop, akRight] - ItemHeight = 13 TabOrder = 7 end object ButtonOK: TButton diff --git a/source/createdatabase.dfm b/source/createdatabase.dfm index 32e03030..35f1638c 100644 --- a/source/createdatabase.dfm +++ b/source/createdatabase.dfm @@ -69,7 +69,6 @@ object CreateDatabaseForm: TCreateDatabaseForm Height = 21 Style = csDropDownList Anchors = [akLeft, akTop, akRight] - ItemHeight = 13 Sorted = True TabOrder = 1 OnChange = comboCharsetChange @@ -103,7 +102,6 @@ object CreateDatabaseForm: TCreateDatabaseForm Width = 221 Height = 21 Style = csDropDownList - ItemHeight = 13 TabOrder = 2 OnChange = Modified end diff --git a/source/insertfiles.dfm b/source/insertfiles.dfm index 1e595505..8570b11c 100644 --- a/source/insertfiles.dfm +++ b/source/insertfiles.dfm @@ -110,7 +110,6 @@ object frmInsertFiles: TfrmInsertFiles Height = 21 Style = csDropDownList Anchors = [akLeft, akRight, akBottom] - ItemHeight = 13 TabOrder = 4 OnChange = ComboBoxDBsChange end @@ -121,7 +120,6 @@ object frmInsertFiles: TfrmInsertFiles Height = 21 Style = csDropDownList Anchors = [akLeft, akRight, akBottom] - ItemHeight = 13 TabOrder = 5 OnChange = ComboBoxTablesChange end @@ -132,7 +130,6 @@ object frmInsertFiles: TfrmInsertFiles Height = 21 Style = csDropDownList Anchors = [akLeft, akRight, akBottom] - ItemHeight = 13 TabOrder = 6 OnChange = ComboBoxColumnsChange end @@ -238,7 +235,6 @@ object frmInsertFiles: TfrmInsertFiles Width = 316 Height = 21 Anchors = [akLeft, akTop, akRight] - ItemHeight = 13 TabOrder = 1 Text = 'NULL' OnChange = FieldChange diff --git a/source/loaddata.dfm b/source/loaddata.dfm index 56dbb984..aa21df35 100644 --- a/source/loaddata.dfm +++ b/source/loaddata.dfm @@ -112,7 +112,6 @@ object loaddataform: Tloaddataform Width = 252 Height = 21 Style = csDropDownList - ItemHeight = 13 TabOrder = 1 end end @@ -289,7 +288,6 @@ object loaddataform: Tloaddataform Height = 21 Style = csDropDownList Anchors = [akLeft, akTop, akRight] - ItemHeight = 13 TabOrder = 0 OnChange = comboDatabaseChange end @@ -300,7 +298,6 @@ object loaddataform: Tloaddataform Height = 21 Style = csDropDownList Anchors = [akLeft, akTop, akRight] - ItemHeight = 13 TabOrder = 1 OnChange = comboTableChange end diff --git a/source/main.dfm b/source/main.dfm index faee048e..0784aeea 100644 --- a/source/main.dfm +++ b/source/main.dfm @@ -103,7 +103,7 @@ object MainForm: TMainForm object ToolBarStandard: TToolBar Left = 11 Top = 2 - Width = 315 + Width = 319 Height = 22 Align = alNone AutoSize = True @@ -122,12 +122,12 @@ object MainForm: TMainForm Style = tbsDropDown end object btnExit: TToolButton - Left = 42 + Left = 44 Top = 0 Action = actExitApplication end object tlbSep1: TToolButton - Left = 65 + Left = 67 Top = 0 Width = 8 Caption = 'tlbSep1' @@ -135,30 +135,30 @@ object MainForm: TMainForm Style = tbsSeparator end object ToolButton5: TToolButton - Left = 73 + Left = 75 Top = 0 Action = actCopy AutoSize = True end object ToolButton6: TToolButton - Left = 96 + Left = 98 Top = 0 Action = actPaste AutoSize = True end object ToolButton14: TToolButton - Left = 119 + Left = 121 Top = 0 Hint = 'Undo' Action = actUndo end object ToolButton12: TToolButton - Left = 142 + Left = 144 Top = 0 Action = actPrintList end object tlbSep2: TToolButton - Left = 165 + Left = 167 Top = 0 Width = 8 Caption = 'tlbSep2' @@ -166,7 +166,7 @@ object MainForm: TMainForm Style = tbsSeparator end object ButtonRefresh: TToolButton - Left = 173 + Left = 175 Top = 0 Action = actRefresh AutoSize = True @@ -174,25 +174,25 @@ object MainForm: TMainForm Style = tbsDropDown end object ButtonUserManager: TToolButton - Left = 215 + Left = 219 Top = 0 Action = actUserManager AutoSize = True end object ButtonImportTextfile: TToolButton - Left = 238 + Left = 242 Top = 0 Action = actImportCSV AutoSize = True end object ButtonExport: TToolButton - Left = 261 + Left = 265 Top = 0 Action = actExportTables AutoSize = True end object tlbSep6: TToolButton - Left = 284 + Left = 288 Top = 0 Width = 8 Caption = 'tlbSep6' @@ -200,7 +200,7 @@ object MainForm: TMainForm Style = tbsSeparator end object btnSQLHelp: TToolButton - Left = 292 + Left = 296 Top = 0 Action = actSQLhelp end @@ -275,32 +275,32 @@ object MainForm: TMainForm Style = tbsDropDown end object btnSaveSQL: TToolButton - Left = 59 + Left = 61 Top = 0 Action = actSaveSQLAs end object btnSaveSQLSnippet: TToolButton - Left = 82 + Left = 84 Top = 0 Action = actSaveSQLSnippet end object btnQueryFind: TToolButton - Left = 105 + Left = 107 Top = 0 Action = actQueryFind end object btnQueryReplace: TToolButton - Left = 128 + Left = 130 Top = 0 Action = actQueryReplace end object btnReformatSQL: TToolButton - Left = 151 + Left = 153 Top = 0 Action = actReformatSQL end object btnStopOnErrors: TToolButton - Left = 174 + Left = 176 Top = 0 Action = actQueryStopOnErrors end @@ -343,7 +343,7 @@ object MainForm: TMainForm Left = 0 Top = 0 Width = 169 - Height = 377 + Height = 357 Align = alLeft BevelOuter = bvNone TabOrder = 0 @@ -351,7 +351,7 @@ object MainForm: TMainForm Left = 0 Top = 0 Width = 169 - Height = 356 + Height = 336 Align = alClient Constraints.MinWidth = 40 DragMode = dmAutomatic @@ -405,7 +405,7 @@ object MainForm: TMainForm object comboOnlyDBs: TComboBox AlignWithMargins = True Left = 0 - Top = 356 + Top = 336 Width = 169 Height = 21 Hint = @@ -430,13 +430,13 @@ object MainForm: TMainForm Left = 173 Top = 0 Width = 583 - Height = 377 + Height = 357 Align = alClient BevelOuter = bvNone TabOrder = 1 object pnlFilterVT: TPanel Left = 0 - Top = 351 + Top = 331 Width = 583 Height = 26 Align = alBottom @@ -479,7 +479,7 @@ object MainForm: TMainForm Left = 0 Top = 0 Width = 583 - Height = 351 + Height = 331 ActivePage = tabHost Align = alClient HotTrack = True @@ -498,7 +498,7 @@ object MainForm: TMainForm Left = 0 Top = 0 Width = 575 - Height = 319 + Height = 299 ActivePage = tabVariables Align = alClient HotTrack = True @@ -510,7 +510,7 @@ object MainForm: TMainForm Left = 0 Top = 0 Width = 567 - Height = 291 + Height = 271 Align = alClient DragOperations = [] Header.AutoSizeIndex = 1 @@ -560,7 +560,7 @@ object MainForm: TMainForm Left = 0 Top = 0 Width = 567 - Height = 291 + Height = 271 Align = alClient DragOperations = [] Header.AutoSizeIndex = 1 @@ -621,7 +621,7 @@ object MainForm: TMainForm ImageIndex = 1 object Splitter3: TSplitter Left = 0 - Top = 218 + Top = 198 Width = 567 Height = 4 Cursor = crSizeNS @@ -632,7 +632,7 @@ object MainForm: TMainForm Left = 0 Top = 0 Width = 567 - Height = 218 + Height = 198 Align = alClient Header.AutoSizeIndex = 7 Header.DefaultHeight = 17 @@ -706,7 +706,7 @@ object MainForm: TMainForm end object pnlProcessViewBox: TPanel Left = 0 - Top = 222 + Top = 202 Width = 567 Height = 69 Align = alBottom @@ -760,7 +760,7 @@ object MainForm: TMainForm Left = 0 Top = 0 Width = 567 - Height = 291 + Height = 271 Align = alClient Header.AutoSizeIndex = 4 Header.DefaultHeight = 17 @@ -831,7 +831,7 @@ object MainForm: TMainForm Left = 0 Top = 0 Width = 575 - Height = 319 + Height = 299 Align = alClient EditDelay = 500 Header.AutoSizeIndex = -1 @@ -991,7 +991,7 @@ object MainForm: TMainForm Left = 0 Top = 91 Width = 575 - Height = 228 + Height = 208 Align = alClient Alignment = taCenter Caption = 'Stored routines don'#39't provide any data you could edit here.' @@ -1175,7 +1175,7 @@ object MainForm: TMainForm Left = 0 Top = 91 Width = 575 - Height = 228 + Height = 208 Align = alClient AutoScrollDelay = 50 EditDelay = 0 @@ -1383,7 +1383,7 @@ object MainForm: TMainForm Left = 0 Top = 113 Width = 575 - Height = 206 + Height = 186 Align = alClient AutoScrollDelay = 50 EditDelay = 0 diff --git a/source/printlist.dfm b/source/printlist.dfm index 188cf4cd..10640804 100644 --- a/source/printlist.dfm +++ b/source/printlist.dfm @@ -31,7 +31,6 @@ object printlistForm: TprintlistForm Width = 206 Height = 21 Style = csDropDownList - ItemHeight = 13 TabOrder = 0 OnChange = comboPrintersChange end diff --git a/source/tabletools.dfm b/source/tabletools.dfm index a1146c0e..9a515839 100644 --- a/source/tabletools.dfm +++ b/source/tabletools.dfm @@ -184,7 +184,6 @@ object frmTableTools: TfrmTableTools Height = 21 Style = csDropDownList Anchors = [akLeft, akTop, akRight] - ItemHeight = 13 TabOrder = 0 OnChange = ValidateControls end @@ -291,7 +290,6 @@ object frmTableTools: TfrmTableTools Height = 21 Style = csDropDownList Anchors = [akLeft, akRight, akBottom] - ItemHeight = 13 TabOrder = 1 end end @@ -389,7 +387,6 @@ object frmTableTools: TfrmTableTools Height = 21 Style = csDropDownList Anchors = [akLeft, akTop, akRight] - ItemHeight = 13 TabOrder = 4 end object comboExportOutputType: TComboBox @@ -399,7 +396,6 @@ object frmTableTools: TfrmTableTools Height = 21 Style = csDropDownList Anchors = [akLeft, akTop, akRight] - ItemHeight = 13 TabOrder = 5 OnChange = comboExportOutputTypeChange end @@ -409,7 +405,6 @@ object frmTableTools: TfrmTableTools Width = 263 Height = 21 Anchors = [akLeft, akTop, akRight] - ItemHeight = 13 TabOrder = 6 Text = 'comboExportOutputTarget' OnExit = comboExportOutputTargetExit @@ -438,7 +433,6 @@ object frmTableTools: TfrmTableTools Style = csDropDownList Anchors = [akLeft, akTop, akRight] Enabled = False - ItemHeight = 13 TabOrder = 1 end object chkBulkTableEditResetAutoinc: TCheckBox @@ -466,7 +460,6 @@ object frmTableTools: TfrmTableTools Style = csDropDownList Anchors = [akLeft, akTop, akRight] Enabled = False - ItemHeight = 13 TabOrder = 4 end object chkBulkTableEditEngine: TCheckBox @@ -486,7 +479,6 @@ object frmTableTools: TfrmTableTools Style = csDropDownList Anchors = [akLeft, akTop, akRight] Enabled = False - ItemHeight = 13 TabOrder = 6 end object chkBulkTableEditCharset: TCheckBox @@ -506,7 +498,6 @@ object frmTableTools: TfrmTableTools Style = csDropDownList Anchors = [akLeft, akTop, akRight] Enabled = False - ItemHeight = 13 TabOrder = 8 end end diff --git a/source/trigger_editor.dfm b/source/trigger_editor.dfm index 58408fc5..a628d637 100644 --- a/source/trigger_editor.dfm +++ b/source/trigger_editor.dfm @@ -64,7 +64,8 @@ object frmTriggerEditor: TfrmTriggerEditor Gutter.Font.Height = -11 Gutter.Font.Name = 'Courier New' Gutter.Font.Style = [] - Lines.Strings = ('SynMemoStatement') + Lines.Strings = ( + 'SynMemoStatement') OnChange = Modification end object btnHelp: TButton @@ -105,7 +106,6 @@ object frmTriggerEditor: TfrmTriggerEditor Height = 21 Style = csDropDownList Anchors = [akLeft, akTop, akRight] - ItemHeight = 13 TabOrder = 1 OnChange = Modification end @@ -115,7 +115,6 @@ object frmTriggerEditor: TfrmTriggerEditor Width = 145 Height = 21 Style = csDropDownList - ItemHeight = 13 TabOrder = 6 OnChange = Modification end @@ -125,7 +124,6 @@ object frmTriggerEditor: TfrmTriggerEditor Width = 145 Height = 21 Style = csDropDownList - ItemHeight = 13 TabOrder = 7 OnChange = Modification end diff --git a/source/usermanager.dfm b/source/usermanager.dfm index e670bba8..2901be73 100644 --- a/source/usermanager.dfm +++ b/source/usermanager.dfm @@ -47,7 +47,6 @@ object UserManagerForm: TUserManagerForm ItemsEx = <> Style = csExDropDownList Anchors = [akLeft, akTop, akRight] - ItemHeight = 16 TabOrder = 0 OnChange = comboUsersChange Images = MainForm.PngImageListMain @@ -82,7 +81,6 @@ object UserManagerForm: TUserManagerForm ItemsEx = <> Style = csExDropDownList Anchors = [akLeft, akTop, akRight] - ItemHeight = 16 TabOrder = 3 OnChange = comboObjectsChange Images = MainForm.PngImageListMain