opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Unify Init() method of database object editors.

Browse Source
This commit is contained in:
Ansgar Becker
2009-12-13 07:32:46 +00:00
parent 2dcf02feb3
commit 3aef5bb5e5
7 changed files with 52 additions and 73 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
source/table_editor.pas
View File

@ -188,7 +188,7 @@ type
{ Public declarations }
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Init(AlterTableName: WideString='');
procedure Init(ObjectName: WideString=''; ObjectType: TListNodeType=lntNone); override;
end;
@ -245,7 +245,7 @@ begin
end;
procedure TfrmTableEditor.Init(AlterTableName: WideString='');
procedure TfrmTableEditor.Init(ObjectName: WideString=''; ObjectType: TListNodeType=lntNone);
var
CreateTable, AttrName, AttrValue: WideString;
rx: TRegExpr;
@ -254,12 +254,12 @@ begin
Screen.Cursor := crHourglass;
FLoaded := False;
// Start with "basic" tab activated when just called
if FAlterTableName <> AlterTableName then
if FAlterTableName <> ObjectName then
PageControlMain.ActivePage := tabBasic;
comboEngine.Items := Mainform.Connection.TableEngines;
comboEngine.ItemIndex := comboEngine.Items.IndexOf(Mainform.Connection.TableEngineDefault);
comboCollation.Items := Mainform.Connection.CollationList;
FAlterTableName := AlterTableName;
FAlterTableName := ObjectName;
listColumns.BeginUpdate;
FColumns.Clear;
btnClearIndexesClick(Self);