Holmes: UI cosmetix

diff --git a/src/game/g_holmes.pas b/src/game/g_holmes.pas
index d27dea1dbb0d53fc832727c7544db9aad78dcc23..0cac2c7aa30aa5f0b5834b11d49d0a24b37d8001 100644 (file)
--- a/src/game/g_holmes.pas
+++ b/src/game/g_holmes.pas
@@ -380,6 +380,7 @@ begin
     addCheckBox(box, '~foreground', @g_rlayer_fore);
   winLayers.appendChild(box);
 
+  winLayers.flMaxSize := TLaySize.Create(trunc(getScrWdt/gh_ui_scale), trunc(getScrHgt/gh_ui_scale));
   uiLayoutCtl(winLayers);
 end;
 
@@ -415,6 +416,7 @@ begin
     addCheckBox(box, 'con~tours', @g_ol_nice);
   winOutlines.appendChild(box);
 
+  winOutlines.flMaxSize := TLaySize.Create(trunc(getScrWdt/gh_ui_scale), trunc(getScrHgt/gh_ui_scale));
   uiLayoutCtl(winOutlines);
 end;
 
@@ -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();
@@ -451,6 +454,7 @@ begin
     addButton(box, '~outline', toggleOutlineWindowCB);
   winOptions.appendChild(box);
 
+  winOptions.flMaxSize := TLaySize.Create(trunc(getScrWdt/gh_ui_scale), trunc(getScrHgt/gh_ui_scale));
   uiLayoutCtl(winOptions);
   winOptions.centerInScreen();
 end;

diff --git a/src/gx/gh_ui.pas b/src/gx/gh_ui.pas
index 72008e0233a0cfe8d88b1360e95de059bf0229f7..9027758fedba90270ae400d49ba50bfd554f0f9a 100644 (file)
--- a/src/gx/gh_ui.pas
+++ b/src/gx/gh_ui.pas
@@ -341,6 +341,7 @@ type
   public
     property caption: AnsiString read mCaption write setCaption;
     property hasFrame: Boolean read mHasFrame write setHasFrame;
+    property captionAlign: Integer read mHAlign write mHAlign;
   end;
 
   TUIHBox = class(TUIBox)