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

Minor code cosmetic

Browse Source
This commit is contained in:
Ansgar Becker
2010-07-20 07:55:32 +00:00
parent d58265372f
commit c297024b60
1 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
source/main.pas
View File

@ -1119,7 +1119,7 @@ end;
procedure TMainForm.FormDestroy(Sender: TObject);
var
filename, WinState: String;
WinState: String;
i: Integer;
begin
// Destroy editors and dialogs. Must be done before connection gets closed, as some destructors do SQL stuff.
@ -1730,10 +1730,8 @@ begin
end;
end;
// By default, select the host node
if not Assigned(DBtree.FocusedNode) then begin
DBtree.Selected[DBtree.GetFirst] := true;
DBtree.FocusedNode := DBtree.GetFirst;
end;
if not Assigned(DBtree.FocusedNode) then
SelectNode(DBTree, DBtree.GetFirst);
// Create function menu items in popupQuery and popupFilter
menuQueryInsertFunction.Clear;
@ -1994,9 +1992,7 @@ var
Connections: TStringList;
begin
// Delete dynamically added connection menu items.
for i := menuConnections.Items.Count - 1 downto 0 do begin
menuConnections.Items.Delete(i);
end;
menuConnections.Items.Clear;
// "Session manager" and "New window" items
item := TMenuItem.Create(menuConnections);
@ -2006,6 +2002,9 @@ begin
item := TMenuItem.Create(menuConnections);
item.Action := actNewWindow;
menuConnections.Items.Add(item);
item := TMenuItem.Create(menuConnections);
item.Caption := '-';
menuConnections.Items.Add(item);
// All sessions
if MainReg.OpenKey(REGPATH + REGKEY_SESSIONS, False) then begin