From 5699a765992ccb38b5a7960d2f0e18d472578873 Mon Sep 17 00:00:00 2001 From: Ketmar Dark Date: Sun, 1 Oct 2017 00:53:31 +0300 Subject: [PATCH] Holmes: UI cosmetix --- src/game/g_holmes.pas | 4 ++++ src/gx/gh_ui.pas | 1 + 2 files changed, 5 insertions(+) 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) -- 2.29.2