From: Ketmar Dark <ketmar@ketmar.no-ip.org>
Date: Sat, 30 Sep 2017 21:53:31 +0000 (+0300)
Subject: Holmes: UI cosmetix
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=5699a765992ccb38b5a7960d2f0e18d472578873;p=d2df-sdl.git

Holmes: UI cosmetix
---

diff --git a/src/game/g_holmes.pas b/src/game/g_holmes.pas
index d27dea1..0cac2c7 100644
--- 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 72008e0..9027758 100644
--- 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)