From c297024b606a76bb75010eb9625a5fc166c71f21 Mon Sep 17 00:00:00 2001 From: Ansgar Becker Date: Tue, 20 Jul 2010 07:55:32 +0000 Subject: [PATCH] Minor code cosmetic --- source/main.pas | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/source/main.pas b/source/main.pas index daf7752c..37e8df07 100644 --- a/source/main.pas +++ b/source/main.pas @@ -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