XProfan

English

ToM

hi!

I would have time again ne question ...

The Mausposition inside the own window find out is easy, only how can I
the make, if I not even one own Window Have, I The actually Mausposition
herausfinde ?!

hope me kannwer help

mfg ToM

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

09/21/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

- Page 1 -

the power the og code.

09/21/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

ToM

ok habn bissl incorrect virtual, sorry

and thx fürn code and sorry I eurer forum so filling *g*

mfg tom

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

09/21/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

never mind, is Yes plenty Space here

09/21/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

ToM

hmmm with whom oberen quellcode go now and than 1000it to put hunugefügt, means instead of z.B. 512 .. 512000

wieso hm ?!

mfg tom

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

09/21/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

so too yet???
Compile Mark Separation

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

09/21/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

so too yet? which Profanversion???
Compile Mark Separation

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

09/21/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

- Page 2 -

ToM

now passts apparently, I use profane 7 ... thanks

mfg tom

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

09/21/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

ToM

yet ne question *ggg*

how can one z.B. a function How @mouse(x,y - x,y) on the whole screen distribute with
whom oberen script.

means if windows media player active and that the mouse above is, that then one ereigniss (1) is,
anonsten the incident 0 remaining.

hmm mfg tom

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

09/21/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Reicht the already?
Compile Mark Separation

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#