XProfan

Deutsch

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Mauskoordinaten im Dialogfenster abfragen
Lauffähig ab Profan-Version 5.0
PRFellow-Vorlage
Autor: Thomas Hölzer,1999
Alle Rechte vorbehalten
Die Mauskoordinaten in einem Dialogfenster abfragen
Def GetCursorPos(1) !USER32,GetCursorPos
Def ScreenToClient(2) !USER32,ScreenToClient
Def PtInRect(3) !USER32,PtInRect
Def MouseIn(0) Neq(%(0),0)
Declare pt#,dlgrect#

Proc CheckDlgArea

    Parameters hw%,x%,y%,x1%,y1%
    Declare result%
    Let result%=0
    Dim dlgrect#,16
    Long dlgrect#,0=x%
    Long dlgrect#,4=y%
    Long dlgrect#,8=x1%
    Long dlgrect#,12=y1%
    Dim pt#,8
    GetCursorPos(pt#)
    ScreenToClient(hw%,pt#)

    If Neq(PtInRect(dlgrect#,Long(pt#,0),Long(pt#,4)),0)

        Let result%=1

    EndIf

    Dispose dlgrect#
    Dispose pt#
    Return result%

EndProc

Beispiel
Declare dlg%,ende%
Cls
Let dlg%=CreateDialog(%hwnd,Hotspot 80,60-120,100,100,100,200,200)
StartPaint dlg%
Usepen 5,0,0
Usebrush 1,RGB(0,0,255)
Rectangle 80,60-120,100
EndPaint

WhileNot ende%

    GetMessage
    CheckDlgArea dlg%,80,60,120,100
    Case MouseIn(): Beep

Wend