XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fensterkoordinaten ermitteln
Declare W1&,W2&
Declare C2sstrc#
Def @Clienttoscreen(2) !USER32,ClientToScreen
Def @G2lx(0) @Long(C2sstrc#,0)
Def @G2ly(0) @Long(C2sstrc#,4)

Proc G2l

    Parameters Hdl&
    Clear C2sstrc#
    @Clienttoscreen(Hdl&,C2sstrc#)

Endproc

Dim C2sstrc#,8
Windowstyle 31+512
Windowtitle Fensterkoordinaten ermitteln
Window 0,0-640,440
W1&=@Createdialog(%Hwnd,Dialog 1,100,100,200,200)
W2&=@Createdialog(%Hwnd,Dialog 2,(%Maxx-300),200,200,200)

Whilenot %Menuitem=-2

    Sleep 100
    G2l W1&
    Textcolor @Rgb(255,0,0),@Rgb(0,0,0)
    Drawtext 0,0,Koordinaten von Dialog 1: +@Str$(@G2lx())+ +@Str$(@G2ly())+@Space$(255)
    G2l W2&
    Drawtext 0,30,Koordinaten von Dialog 2: +@Str$(@G2lx())+ +@Str$(@G2ly())+@Space$(255)

Wend

@Destroywindow(W1&)
@Destroywindow(W2&)
Cls
Usefont Times New Roman,30,15,1,0,0
Drawtext 0,0,Besten Dank an iF für diese Idee!
Dispose C2sstrc#
Usecursor 2
Sleep 2000
Fin