From 3010c9e4ea98eb4ec79e77bd4c849dcb66dc2d3f Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Mon, 10 Aug 2009 20:45:25 +0000
Subject: [PATCH] Session manager: Widen the group box with details instead of
 the session list when the form gets resized. Plus - now the session list
 never gets wider - display hints on long session names.

---
 source/connections.dfm | 5 +++--
 source/connections.pas | 1 +
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/source/connections.dfm b/source/connections.dfm
index 177dfdec..ac021d51 100644
--- a/source/connections.dfm
+++ b/source/connections.dfm
@@ -72,7 +72,7 @@ object connform: Tconnform
     Top = 27
     Width = 162
     Height = 235
-    Anchors = [akLeft, akTop, akRight, akBottom]
+    Anchors = [akLeft, akTop, akBottom]
     EditDelay = 250
     Header.AutoSizeIndex = 0
     Header.DefaultHeight = 17
@@ -82,6 +82,7 @@ object connform: Tconnform
     Header.Font.Name = 'Tahoma'
     Header.Font.Style = []
     Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs]
+    HintMode = hmTooltip
     Images = MainForm.PngImageListMain
     PopupMenu = popupSessions
     TabOrder = 0
@@ -126,7 +127,7 @@ object connform: Tconnform
     Top = 10
     Width = 309
     Height = 254
-    Anchors = [akTop, akRight, akBottom]
+    Anchors = [akLeft, akTop, akRight, akBottom]
     Caption = 'Details'
     TabOrder = 1
     Visible = False
diff --git a/source/connections.pas b/source/connections.pas
index 548b0762..92b1b041 100644
--- a/source/connections.pas
+++ b/source/connections.pas
@@ -111,6 +111,7 @@ begin
   InheritFont(Font);
   SetWindowSizeGrip(Handle, True);
   FixVT(ListSessions);
+  ListSessions.OnGetHint := Mainform.vstGetHint;
   FLoaded := False;
   FSessionNames := TStringList.Create;
   RefreshSessionList(True);