XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Dialogfenster und Hauptfenster zentrieren (SubProc)
ab XProfan 10
(C) 2006 Jacob Liebeck

proc CenterWindow

    Parameters x%,y%
    Window (%MaxX-x%)/2,((%MaxY-y%)/2)-(x%),y%

endproc

subproc create.centerwindow

    Parameters hwnd&,text$,x%,y%
    Return Create(window,hwnd&,text$,(%MaxX-x%)/2,(%MaxY-y%)/2,x%,y%)

endproc

subproc create.centerdialog

    Parameters hwnd&,text$,x%,y%
    Return Create(dialog,hwnd&,text$,(%MaxX-x%)/2,(%MaxY-y%)/2,x%,y%)

endproc

#################################################
declare d0&,d1&
CenterWindow 600,400
WaitInput
d0& = create(CenterWindow, %HWnd,CenterWindow,500,300)
WaitInput
DestroyWindow(d0&)
WaitInput
d1& = create(CenterDialog, %HWnd,CenterDialog,400,200)
WaitInput
DestroyWindow(d1&)
end