XProfan

Italia

ToM

hi!

ich hätt mal wieder ne frage ...

Die Mausposition innerhalb des eigenen Fenster herausfinden ist leicht, nur wie kann ich
das machen, wenn ich nichtmal ein eigenes Fenster hab, dass ich die aktuelle Mausposition
herausfinde ?!

hoffe mir kannwer helfen

mfg ToM

AMD Athlon 64 4500+ / 1500 MB Ram / Windows Server 2003 Enterprise / Profan 7.0

21.09.2005 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

- Page 1 -

Das macht der og Code.

21.09.2005 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

ToM

ok habn bissl falsche gedacht, sorry

und thx fürn code und sorry dass ich eurer forum so fülle *g*

mfg tom

AMD Athlon 64 4500+ / 1500 MB Ram / Windows Server 2003 Enterprise / Profan 7.0

21.09.2005 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Macht nichts, ist ja viel Platz hier

21.09.2005 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

ToM

hmmm bei den oberen quellcode werden ab und zu 1000er Stellen hunugefügt, also statt z.B. 512 .. 512000

wieso hm ?!

mfg tom

AMD Athlon 64 4500+ / 1500 MB Ram / Windows Server 2003 Enterprise / Profan 7.0

21.09.2005 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

So auch noch???
Kompilieren Markieren Separieren

Def @GetWindowRect(2) !"USER32", "GetWindowRect"
Def @ScreenToClient(2) !"USER32","ScreenToClient"
WindowTitle "Koordinaten"
Windowstyle 31+512
Window 0,0-640,440
Decimals 0
Declare b#,dlg&
LET dlg&=@Create("Window",%hwnd,"Testdialog",150,150,300,300)

Whilenot %MENUITEM=-2

    GetMessage
    Locate 1,1
    Dim b#,16
    @GetWindowRect(dlg&,b#)
    print "Eckpunkte von Testdialog bezogen auf Bildschirm:"+@STR$(Long(b#,0))+" "+@Str$(Long(b#,4))+" "+@Str$(Long(b#,8))+" "+@str$(Long(b#,12))+"                  "
    @ScreenToClient(%hwnd,b#)
    @ScreenToClient(%hwnd,b#+8)
    print "Eckpunkte von Testdialog bezogen auf %hwnd:"+@str$(Long(b#,0))+" "+@Str$(Long(b#,4))+" "+@Str$(Long(b#,8))+" "+@Str$(Long(b#,12))+"              "
    @GetWindowRect(dlg&,b#)
    @ScreenToClient(dlg&,b#)
    @ScreenToClient(dlg&,b# + 8)
    Print ""
    PRINT "Breite des Rahmens von Testdialog: "+@STR$(@ABS(Long(b#,0))/2)+"            "
    PRINT "Höhe der Titelzeile von Testdialog ohne Rahmen: "+@STR$(@ABS(Long(b#,4))-@ABS(Long(b#,0)))+"            "
    PRINT "Breite des Clientbereiches von Testdialog: "+@STR$(Long(b#,8))+"            "
    PRINT "Höhe des Clientbereiches von Testdialog: "+@STR$(Long(b#,12))+"            "
    Dispose b#

Wend

21.09.2005 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

So auch noch? Welche Profanversion???
Kompilieren Markieren Separieren

DEF @GetCursorPos(1) !"USER32","GetCursorPos"
Def @ScreenToClient(2) !"USER32","ScreenToClient"
Windowstyle 31
Windowtitle "Globale Mauskoordinaten in Fensterposition umrechnen"
Window 50,75-600,350
Declare pos#

While 0=0

    Sleep 10
    DIM POS#,8
    GetCursorPos(pos#)
    Drawtext 0,0,"Global X="+@STR$(@Long(Pos#,0))+"                    "
    Drawtext 0,20,"Global Y="+@STR$(@Long(Pos#,4))+"                    "
    @ScreenToClient(%HWND,Pos#)
    Drawtext 0,40,"Lokal X="+@STR$(@Long(Pos#,0))+"                      "
    Drawtext 0,60,"Lokal Y="+@STR$(@Long(Pos#,4))+"                       "
    Dispose Pos#

Wend

21.09.2005 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

- Page 2 -

ToM

jetzt passts anscheinend, ich verwende profan 7 ... danke

mfg tom

AMD Athlon 64 4500+ / 1500 MB Ram / Windows Server 2003 Enterprise / Profan 7.0

21.09.2005 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

ToM

noch ne frage *ggg*

wie kann man z.B. eine funktion wie @mouse(x,y - x,y) auf den ganzen bildschirm verteilen mit
den oberen script.

also wenn windows media player aktiv ist und die maus darüber ist, dass dann ein ereigniss (1) ist,
anonsten das ereignis 0 bleibt.

hmm mfg tom

AMD Athlon 64 4500+ / 1500 MB Ram / Windows Server 2003 Enterprise / Profan 7.0

21.09.2005 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Reicht das schon?
Kompilieren Markieren Separieren

declare a#,x%,y%,wnd&,me&
dim a#,8
def WindowFromPoint(2) !"USER32", "WindowFromPoint"
def GetCursorPos(1) !"USER32","GetCursorPos"
windowstyle 536
windowtitle "WinTit"
window 0,0 - 400,350
cls rgb(196,196,196)
me&=createmultiedit(%hwnd,"",0,0,width(%hwnd),height(%hwnd))
settimer 250

Whilenot %Key=2

    Waitinput

    ifnot %key

        GetCursorPos(a#)
        let x%=long(a#,0)
        let y%=long(a#,4)
        let Wnd&=WindowFromPoint(x%,y%)
        settext me&, gettext$(Wnd&)

    endif

wend

killtimer
dispose a#