| |
|
|
| The Thread [...] has me on The idea brought the vlt. one new Flag for Showwindow this fungieren could. (and/or Window Style?)
It's all right therefore, the/one Window the vorhandenen Workarea anzupassen: CompileMarkSeparationDEF SysParameterInfo(4) ! user32,SystemParametersInfoA
Declare WX%,WY%,WL%,WB%
Proc workarea
Declare Rect#
Dim Rect#,16
SysParameterInfo(48,0,Rect#,0)
let wx%=Long(Rect#,0)
let wy%=Long(Rect#,4)
let wl%=Long(Rect#,8)
let wb%=Long(Rect#,12)
Dispose Rect#
endproc
workarea(2>)
|
|
|
| |
|
|