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;
function getButState (): Word; inline;
function getModState (): Word; inline;
+function gxScreenWidth (): Integer; inline;
+function gxScreenHeight (): Integer; inline;
+
// ////////////////////////////////////////////////////////////////////////// //
property
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