XProfan

xWin - Zentriert & Erzeugt Fenster (auch abweichend von Zentrum)
Grundlage war hier die Caption.inc von Martin Pohl
Autor: Michael Dell - http://www.cplace.de
Def GSM(1)    External(USER32,GetSystemMetrics,&(1))
Def GrX(1)    (%(1) + (GSM(7) * 2))
Def GrY(1)    (%(1) + (GrX(0) + GSM(4)))
Def ZentrX(1) ((%MaxX / 2) - (GrX(%(1)) / 2))
Def ZentrY(1) ((%MaxY / 2) - (GrY(%(1)) / 2))

Proc Title

    Parameters T_Title$
    CaseNot (Trim$(T_Title$) = ): WindowTitle T_Title$

EndProc

Proc xWinO

    Parameters xWO_XX&,xWO_YY&,xWO_Title$
    Title(xWO_Title$)
    Window (%maxX + 10),0-GrX(xWO_XX&),GrY(xWO_YY&)

EndProc

Proc xWinZ

    Parameters xWZ_XX&,xWZ_YY&,xWZ_Title$
    Title(xWZ_Title$)
    Window ZentrX(xWZ_XX&),ZentrY(xWZ_YY&)-GrX(xWZ_XX&),GrY(xWZ_YY&)

EndProc

Proc xWinZA

    Parameters xWZA_XX&,xWZA_YY&,xWZA_AX&,xWZA_AY&,xWZA_Title$
    Title(xWZA_Title$)
    Window (ZentrX(xWZA_XX&) + xWZA_AX&),(ZentrY(xWZA_YY&) + xWZA_AY&)-GrX(xWZA_XX&),GrY(xWZA_YY&)

EndProc

Beispiel: xWinO(640,480,Title$)            Fenster 640*480 erscheint ausserhalb des sichtbaren Bereichs
xWinZ(640,480,Title$)            Fenster 640*480 erscheint Zentriert
xWinZA(640,480,x%,y%,Title$)     Fenster 640*480 x%=0 und y%=0 ist abweichend vonm Zentrum +/-