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

Show up new session after "Save as" action. Fixes issue #2686.

Browse Source
This commit is contained in:
Ansgar Becker
2012-01-18 21:08:15 +00:00
parent 990535228f
commit 8fbd4df5cf
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
source/connections.pas
View File

@ -332,6 +332,8 @@ procedure Tconnform.btnSaveAsClick(Sender: TObject);
var var
newName: String; newName: String;
NameOK: Boolean; NameOK: Boolean;
NewSess: TConnectionParameters;
Node: PVirtualNode;
begin begin
// Save session as ... // Save session as ...
newName := 'Enter new session name ...'; newName := 'Enter new session name ...';
@ -347,6 +349,10 @@ begin
// Create the key and save its values // Create the key and save its values
OpenRegistry(newName); OpenRegistry(newName);
SaveCurrentValues(newName, True); SaveCurrentValues(newName, True);
NewSess := LoadConnectionParams(newName);
FSessions.Add(NewSess);
Node := ListSessions.AddChild(nil, @NewSess);
SelectNode(ListSessions, Node);
end; end;
end; end;
end; end;