From aec28fc6e387a0881d3ae6a785f6fcc0655b2473 Mon Sep 17 00:00:00 2001
From: Ketmar Dark <ketmar@ketmar.no-ip.org>
Date: Sun, 1 Oct 2017 01:18:08 +0300
Subject: [PATCH] FlexUI: don't change window size in "fit to screen" mode if
 size was already set

---
 src/gx/gh_ui.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/gx/gh_ui.pas b/src/gx/gh_ui.pas
index ff28447..16281c6 100644
--- a/src/gx/gh_ui.pas
+++ b/src/gx/gh_ui.pas
@@ -2076,8 +2076,12 @@ end;
 
 
 procedure TUITopWindow.flFitToScreen ();
+var
+  nsz: TLaySize;
 begin
-  flMaxSize := TLaySize.Create(trunc(gxScreenWidth/gh_ui_scale)-mFrameWidth*2-6, trunc(gxScreenHeight/gh_ui_scale)-mFrameHeight*2-6);
+  nsz := TLaySize.Create(trunc(gxScreenWidth/gh_ui_scale)-mFrameWidth*2-6, trunc(gxScreenHeight/gh_ui_scale)-mFrameHeight*2-6);
+  if (mMaxSize.w < 1) then mMaxSize.w := nsz.w;
+  if (mMaxSize.h < 1) then mMaxSize.h := nsz.h;
 end;
 
 
-- 
2.29.2