diff --git a/src/gx/gh_ui.pas b/src/gx/gh_ui.pas
index ff284475e98fc1b2f30eab4a002c3fb736347c9b..16281c60fdafad7e6636434336cc8f0283b6254d 100644 (file)
--- a/src/gx/gh_ui.pas
+++ b/src/gx/gh_ui.pas
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;