XProfan

Español

ToM

hi!

Yo hätt veces otra vez ne frage ...

El Mausposition innerhalb des eigenen Ventana herausfinden es ligeramente, sólo como kann Yo
el hacer, si yo nichtmal una propio Ventana tener, dass Yo el aktuelle Mausposition
herausfinde ?!

hoffe me 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 Cita Zeilenweise Cita

- Página 1 -

Das macht el og Code.

21.09.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

ToM

ok habn bissl falsche pensamiento, sorry

y thx fürn code y sorry dass Yo eurer forum así 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 Cita Zeilenweise Cita

Macht nichts, es sí viel Platz hier

21.09.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

ToM

hmmm en el oberen quellcode voluntad de y a 1000él Stellen hunugefügt, also en lugar de 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 Cita Zeilenweise Cita

So auch todavía???
Kompilieren Marca Separación

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 Cita Zeilenweise Cita

So auch todavía? Welche Profanversion???
Kompilieren Marca Separación

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 Cita Zeilenweise Cita

- Página 2 -

ToM

ahora passts anscheinend, Yo verwende profano 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 Cita Zeilenweise Cita

ToM

o ne- frage *ggg*

como puede ser z.B. una funktion como @mouse(x,y - x,y) en el ganzen bildschirm verteilen con
el oberen script.

also si windows media player aktiv es y el maus darüber es, dass entonces una ereigniss (1) es,
anonsten el ereignis 0 restos.

hmm mfg tom

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

21.09.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Reicht el ya?
Kompilieren Marca Separación

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
disponer a#