Holmes: better UI hotkeys; fitting windows to screen

[d2df-sdl.git] / src / game / g_holmes.pas

diff --git a/src/game/g_holmes.pas b/src/game/g_holmes.pas
index d27dea1dbb0d53fc832727c7544db9aad78dcc23..e23c43563bdc9f86ecea403d1577b74d3b2aae38 100644 (file)
--- a/src/game/g_holmes.pas
+++ b/src/game/g_holmes.pas
@@ -326,7 +326,6 @@ begin
 
   //winHelp.appendChild(llb);
 
-  winHelp.flMaxSize := TLaySize.Create(trunc(getScrWdt/gh_ui_scale), trunc(getScrHgt/gh_ui_scale));
   uiLayoutCtl(winHelp);
   winHelp.centerInScreen();
 end;
@@ -363,6 +362,7 @@ var
   box: TUIVBox;
 begin
   winLayers := TUITopWindow.Create('layers');
+  winLayers.flHoriz := false;
   winLayers.x0 := 10;
   winLayers.y0 := 10;
   winLayers.flHoriz := false;
@@ -389,6 +389,7 @@ var
   box: TUIVBox;
 begin
   winOutlines := TUITopWindow.Create('outlines');
+  winOutlines.flHoriz := false;
   winOutlines.x0 := 100;
   winOutlines.y0 := 30;
   winOutlines.flHoriz := false;
@@ -426,6 +427,7 @@ var
 begin
   winOptions := TUITopWindow.Create('Holmes Options');
   winOptions.flHoriz := false;
+  winOptions.flHoriz := false;
   winOptions.escClose := true;
 
   box := TUIVBox.Create();
@@ -442,6 +444,7 @@ begin
   box := TUIHBox.Create();
   box.hasFrame := true;
   box.caption := 'windows';
+  box.captionAlign := 0;
   box.flAlign := 0;
     addButton(box, '~layers', toggleLayersWindowCB);
     span := TUISpan.Create();