Holmes/UI: compilation fixes

diff --git a/src/gx/gh_ui.pas b/src/gx/gh_ui.pas
index 28311e3a4d3ef80c3cac2457d238d3ee97f678f0..ff284475e98fc1b2f30eab4a002c3fb736347c9b 100644 (file)
--- a/src/gx/gh_ui.pas
+++ b/src/gx/gh_ui.pas
@@ -2077,7 +2077,7 @@ end;
 
 procedure TUITopWindow.flFitToScreen ();
 begin
-  flMaxSize := TLaySize.Create(trunc(getScrWdt/gh_ui_scale)-mFrameWidth*2-6, trunc(getScrHgt/gh_ui_scale)-mFrameHeight*2-6);
+  flMaxSize := TLaySize.Create(trunc(gxScreenWidth/gh_ui_scale)-mFrameWidth*2-6, trunc(gxScreenHeight/gh_ui_scale)-mFrameHeight*2-6);
 end;
 
 

diff --git a/src/gx/glgfx.pas b/src/gx/glgfx.pas
index 2aaec4431e3a83b669ddcfdeedf043715d0359e9..9345bb77e51faf19992e6532d0686c45dd81ff87 100644 (file)
--- a/src/gx/glgfx.pas
+++ b/src/gx/glgfx.pas
@@ -203,6 +203,9 @@ function getMouseY (): Integer; inline;
 function getButState (): Word; inline;
 function getModState (): Word; inline;
 
+function gxScreenWidth (): Integer; inline;
+function gxScreenHeight (): Integer; inline;
+
 
 // ////////////////////////////////////////////////////////////////////////// //
 property
@@ -236,6 +239,11 @@ var
   curMsY: Integer = 0;
 
 
+// ////////////////////////////////////////////////////////////////////////// //
+function gxScreenWidth (): Integer; inline; begin result := gScrWidth; end;
+function gxScreenHeight (): Integer; inline; begin result := gScrHeight; end;
+
+
 // ////////////////////////////////////////////////////////////////////////// //
 function strEquCI (const s0, s1: AnsiString): Boolean;
 var