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.

This commit is contained in:
Ansgar Becker
2009-08-10 20:45:25 +00:00
parent 2421c615c5
commit 3010c9e4ea
2 changed files with 4 additions and 2 deletions

View File

@@ -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

View File

@@ -111,6 +111,7 @@ begin
InheritFont(Font);
SetWindowSizeGrip(Handle, True);
FixVT(ListSessions);
ListSessions.OnGetHint := Mainform.vstGetHint;
FLoaded := False;
FSessionNames := TStringList.Create;
RefreshSessionList(True);