XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Hauptfenster mit gegebenem Clientbereich (2)
Source wurde am 06.12.2006 in die Babyklappe auf XProfan.Com abgelegt:

proc CreateWindowByClient

    parameters 1&,2&,3&,4&,5&
    declare h&,c#
    dim c#,16

    if 5&

        1& = (%MaxX/2)-(3&/2)
        2& = (%MaxY/2)-(4&/2)

    endif

    window %maxx+1&,2&-3&,4&
    h&=%hwnd
    external(USER32,GetClientRect,h&,c#)
    setwindowpos h& = 1&,2&-(3&+(3&-long(c#,8))),(4&+(4&-long(c#,12)));0
    dispose c#

endproc

CreateWindowByClient(0,0,300,300,1)Par5: 1=zentriert
waitkey