Beitrag, 16.07.2007 00:43: ;createCode() '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
Dies ist die Offlinevariante vom Thread [Mauskoordinaten im Dialogfenster abfragen].
©2006 XProfan.Com