Par2: Changing screen size based on windows resolution 1997-12-08 -- Kenny Gardner ThisWindow.Init, after window is opened:
!Data
screenx Short
screeny Short
!Code
screenx = GetSystemMetrics(SM_CXSCREEN)
screeny = GetSystemMetrics(SM_CYSCREEN)
If screenx = 640 and screeny = 480
Target{Prop:Width} = 480
Target(Prop:Height} = 540
Elsif screenx = 800 and screeny = 600
Target{Prop:Width} = 700
Target{Prop:Height} = 500
End
Printed November 21, 2024, 6:59 am This article has been viewed/printed 35193 times. |