opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +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

6
source/trigger_editor.pas
View File

@@ -34,7 +34,7 @@ type
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
procedure Init(EditTriggerName: WideString='');
procedure Init(ObjectName: WideString=''; ObjectType: TListNodeType=lntNone); override;
end;
implementation
@@ -73,12 +73,12 @@ begin
end;
procedure TfrmTriggerEditor.Init(EditTriggerName: WideString='');
procedure TfrmTriggerEditor.Init(ObjectName: WideString=''; ObjectType: TListNodeType=lntNone);
var
Definition, TableList: TMySQLQuery;
begin
Mainform.SetupSynEditors;
FEditTriggerName := EditTriggerName;
FEditTriggerName := ObjectName;
editName.Text := '';
SynMemoStatement.Text := '';
comboEvent.ItemIndex := 0;