XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Hauptfenster und Dialogfenster zentrieren
REM FRAGE:      Wie zentriere ich mein Fenster?
REM AUTOR:      cnesm
REM HOMEPAGE:   www.cnesm.de.vu
REM HINWEISS:   Testen und Nutzen der Quelltexte auf eigene Gefahr
REM HINWINGUNG: Freie Nutzung der Quelltexte [freiwillige Erwähnung des Autors]
REM Zentrieren eines Hautpfensters
Declare A1%,A2%,B1%,B2%
A1%=@Sub(%maxx,400)
A2%=@Div(A1%,2)
B1%=@Sub(%maxy,300)
B2%=@Div(B1%,2)
Window A2%,B2%-400,300
Waitkey
REM Zentrieren eines Hautpfensters [Martin Pohl]
Def @GSM(1) !USER32,GetSystemMetrics
Def @CaptionX(1) @Add(@%(1),@Mul(@GSM(7),2))
Def @CaptionY(1) @Add(@%(1),@Add(@CaptionX(0),@GSM(4)))
Def @CenterX(1) @Sub(@Div(%MaxX,2),@Div(@CaptionX(@%(1)),2))
Def @CenterY(1) @Sub(@Div(%MaxY,2),@Div(@CaptionY(@%(1)),2))
Window @CenterX(400),@CenterY(300)-@CaptionX(400),@CaptionY(300)
Waitkey
REM Zentrieren eines Dialogfensters
Declare A1%,A2%,B1%,B2%
A1%=@Sub(%maxx,400)
A2%=@Div(A1%,2)
B1%=@Sub(%maxy,300)
B2%=@Div(B1%,2)
Createdialog(%Hwnd,,A2%,B2%,400,300)
Waitkey
REM Zentrieren eines Dialogfensters [Martin Pohl]
Def @GSM(1) !USER32,GetSystemMetrics
Def @CaptionX(1) @Add(@%(1),@Mul(@GSM(7),2))
Def @CaptionY(1) @Add(@%(1),@Add(@CaptionX(0),@GSM(4)))
Def @CenterX(1) @Sub(@Div(%MaxX,2),@Div(@CaptionX(@%(1)),2))
Def @CenterY(1) @Sub(@Div(%MaxY,2),@Div(@CaptionY(@%(1)),2))
Createdialog(%Hwnd,,@CenterX(400),@CenterY(300),@CaptionX(400),@CaptionY(300))
Waitkey