` Printed Icetips Article

Icetips Article

Par2: How to take over whole screen
2003-06-29 -- Ole-Morton Heien

Globall embed:  Inside The Global Map
Module('User32.dll')
    SetWindowPos(LONG,LONG,SIGNED,SIGNED,SIGNED,SIGNED,LONG),BOOL,PASCAL
    GetWindowLong(LONG,SIGNED),LONG,PASCAL,NAME('GetWindowLongA')
    SetWindowLong(LONG,SIGNED,LONG),LONG,PASCAL,NAME('SetWindowLongA')
End

In INIT of the frame right after opening the window:
OrgStyle# = GetWindowLong(0{PROP:Handle},-16)
OrgStyle# = BXOR(OrgStyle#,0C00000H)
NewStyle# = SetWindowLong(0{PROP:Handle},-16,OrgStyle#)
r# = SetWindowPos(0{PROP:Handle},0,0,,,24h)

To find Max values i guess you can first do a 0{PROP:Maximized} = True and
use the API GetWindowPos to read the Window size.  Dont use
GetPosition(0,X,Y,W,H) because if you uses toolbars the WindowSize is
redused. Using GetWindowPos will give you the correct size.


Bjarne Havnen notes:

Just remove MDI from the window and set to maximize if it is not calling any
MDI procedures.

Printed November 21, 2024, 7:28 am
This article has been viewed/printed 35227 times.