Allow displaying additional columns in session list: Host, user and server version. By default all invisible, must be rightclicked to get activated.

source/connections.dfm

@@ -28,14 +28,6 @@ object connform: Tconnform
     294)
   PixelsPerInch = 96
   TextHeight = 13
-  object lblSession: TLabel
-    Tag = 5
-    Left = 8
-    Top = 8
-    Width = 77
-    Height = 13
-    Caption = 'Saved sessions:'
-  end
   object lblHelp: TLabel
     Left = 177
     Top = 27
@@ -83,10 +75,10 @@ object connform: Tconnform
     TabOrder = 6
   end
   object ListSessions: TVirtualStringTree
-    Left = 9
-    Top = 27
-    Width = 162
-    Height = 226
+    Left = 8
+    Top = 8
+    Width = 167
+    Height = 247
     Anchors = [akLeft, akTop, akBottom]
     EditDelay = 250
     Header.AutoSizeIndex = 0
@@ -96,7 +88,9 @@ object connform: Tconnform
     Header.Font.Height = -11
     Header.Font.Name = 'Tahoma'
     Header.Font.Style = []
-    Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs]
+    Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible]
+    Header.PopupMenu = MainForm.popupListHeader
+    Header.SortColumn = 0
     HintMode = hmTooltip
     Images = MainForm.ImageListMain
     IncrementalSearch = isAll
@@ -117,8 +111,23 @@ object connform: Tconnform
     Columns = <
       item
         Position = 0
-        Width = 158
-        WideText = 'Title'
+        Width = 163
+        WideText = 'Session name'
+      end
+      item
+        Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coAllowFocus]
+        Position = 1
+        WideText = 'Host'
+      end
+      item
+        Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coAllowFocus]
+        Position = 2
+        WideText = 'User'
+      end
+      item
+        Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coAllowFocus]
+        Position = 3
+        WideText = 'Version'
       end>
   end
   object btnNew: TButton
@@ -145,7 +154,7 @@ object connform: Tconnform
     Left = 177
     Top = 8
     Width = 309
-    Height = 246
+    Height = 247
     ActivePage = tabSettings
     Anchors = [akLeft, akTop, akRight, akBottom]
     Images = MainForm.ImageListMain
@@ -155,7 +164,7 @@ object connform: Tconnform
       ImageIndex = 39
       DesignSize = (
         301
-        217)
+        218)
       object lblStartupScript: TLabel
         Left = 3
         Top = 193
@@ -331,7 +340,7 @@ object connform: Tconnform
       ImageIndex = 147
       DesignSize = (
         301
-        217)
+        218)
       object lblSSHLocalPort: TLabel
         Left = 3
         Top = 190
@@ -513,7 +522,7 @@ object connform: Tconnform
       ImageIndex = 144
       DesignSize = (
         301
-        217)
+        218)
       object lblSSLPrivateKey: TLabel
         Tag = 6
         Left = 3
@@ -589,7 +598,7 @@ object connform: Tconnform
       ImageIndex = 145
       DesignSize = (
         301
-        217)
+        218)
       object lblLastConnectLeft: TLabel
         Left = 3
         Top = 31

source/connections.pas

@@ -15,7 +15,6 @@ uses
 
 type
   Tconnform = class(TForm)
-    lblSession: TLabel;
     btnCancel: TButton;
     btnOpen: TButton;
     btnSave: TButton;
@@ -162,7 +161,10 @@ begin
   Width := GetRegValue(REGNAME_SESSMNGR_WINWIDTH, Width);
   Height := GetRegValue(REGNAME_SESSMNGR_WINHEIGHT, Height);
   FixVT(ListSessions);
-  ListSessions.OnGetHint := Mainform.vstGetHint;
+  MainForm.RestoreListSetup(ListSessions);
+  ListSessions.OnCompareNodes := MainForm.vstCompareNodes;
+  ListSessions.OnHeaderClick := MainForm.vstHeaderClick;
+  ListSessions.OnHeaderDraggedOut := MainForm.vstHeaderDraggedOut;
   FLoaded := False;
 
   comboNetType.Clear;
@@ -209,6 +211,7 @@ begin
   OpenRegistry;
   MainReg.WriteInteger(REGNAME_SESSMNGR_WINWIDTH, Width);
   MainReg.WriteInteger(REGNAME_SESSMNGR_WINHEIGHT, Height);
+  MainForm.SaveListSetup(ListSessions);
 end;
 
 
@@ -440,7 +443,9 @@ var
   Sess: PConnectionParameters;
 begin
   // A new session gets an additional plus symbol, editing gets a pencil
-  case Kind of
+  if Column > 0 then
+    ImageIndex := -1
+  else case Kind of
     ikNormal, ikSelected: begin
       Sess := Sender.GetNodeData(Node);
       ImageIndex := Sess.ImageIndex;
@@ -472,9 +477,16 @@ var
 begin
   // Display session name cell
   Sess := Sender.GetNodeData(Node);
-  CellText := Sess.SessionName;
-  if (FSessionModified or FSessionAdded) and (Node = Sender.FocusedNode) and (not Sender.IsEditing) then
-    CellText := CellText + ' *';
+  case Column of
+    0: begin
+      CellText := Sess.SessionName;
+      if (FSessionModified or FSessionAdded) and (Node = Sender.FocusedNode) and (not Sender.IsEditing) then
+        CellText := CellText + ' *';
+    end;
+    1: CellText := Sess.Hostname;
+    2: CellText := Sess.Username;
+    3: CellText := Sess.ServerVersion;
+  end;
 end;