feat: enable connection port visible in a column of the session tree

Author: ansgarbecker

source/connections.dfm

@@ -992,29 +992,35 @@ object connform: Tconnform
           Text = 'Host'
         end
         item
-          Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coAllowFocus]
+          Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus]
           Position = 2
-          Text = 'User'
+          Text = 'Port'
+          Width = 10
         end
         item
           Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coAllowFocus]
           Position = 3
+          Text = 'User'
+        end
+        item
+          Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coAllowFocus]
+          Position = 4
           Text = 'Version'
         end
         item
           Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus]
-          Position = 4
+          Position = 5
           Text = 'Last connect'
         end
         item
           Alignment = taRightJustify
           Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coAllowFocus]
-          Position = 5
+          Position = 6
           Text = 'Counter'
         end
         item
           Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus]
-          Position = 6
+          Position = 7
           Text = 'Comment'
           Width = 10
         end>

source/connections.pas

@@ -813,14 +813,15 @@ procedure Tconnform.ListSessionsGetText(Sender: TBaseVirtualTree;
           CellText := CellText + ' *';
       end;
       1: CellText := Sess.Hostname;
-      2: CellText := Sess.Username;
-      3: CellText := Sess.ServerVersion;
-      4: if Sess.LastConnect>0 then
+      2: CellText := Sess.Port.ToString;
+      3: CellText := Sess.Username;
+      4: CellText := Sess.ServerVersion;
+      5: if Sess.LastConnect>0 then
           CellText := DateTimeToStr(Sess.LastConnect)
         else
           CellText := '';
-      5: CellText := FormatNumber(Sess.Counter);
-      6: CellText := Sess.Comment;
+      6: CellText := FormatNumber(Sess.Counter);
+      7: CellText := Sess.Comment;
     end;
   end;
 end;