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

Do not cache dialog instances any longer. OnCreate code is mostly very quick, and caching them adds quite some pitfalls into the code. Not to mention 30 lines less code in main.pas now :)

Browse Source
This commit is contained in:
Ansgar Becker
2011-06-26 20:01:42 +00:00
parent 8a2d7a8e6a
commit e96fa77cbd
17 changed files with 147 additions and 126 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
source/tabletools.pas
View File

@ -318,6 +318,7 @@ begin
// Auto close temorary connection
if Assigned(FTargetConnection) then
FreeAndNil(FTargetConnection);
Action := caFree;
end;
@ -463,6 +464,7 @@ var
Triggers, Views: TDBObjectList;
DBObj: PDBObject;
i: Integer;
Conn: TDBConnection;
procedure ProcessNode(DBObj: TDBObject);
begin
@ -571,8 +573,13 @@ begin
end;
ExportLastDatabase := '';
for i:=0 to FModifiedDbs.Count-1 do
Mainform.ActiveConnection.ClearDbObjects(FModifiedDbs[i]);
Conn := Mainform.ActiveConnection;
for i:=0 to FModifiedDbs.Count-1 do begin
Conn.ClearDbObjects(FModifiedDbs[i]);
DBNode := MainForm.FindDBNode(TreeObjects, Conn, FModifiedDbs[i]);
TreeObjects.ReinitNode(DBNode, False);
TreeObjects.ReinitChildren(DBNode, False)
end;
FModifiedDbs.Clear;
btnCloseOrCancel.Caption := 'Close';