XProfan

- page 1 -

avec qui EasyVENT.dll et Include kannste aussi Kinderleicht une Mausdoppelclick feststellen
[...]

01.06.2006 ▲

Frank
Abbing

cela allez sans Dll viel leichter...
Um Doppelklicks trop empfangen muss lediglich qui CS_DBLCLKS Class-Style gesetzt volonté. So comme dans qui API-Aider oui aussi steht.
Kompilieren Marque Séparation

Declare x&
Def GetClassLong(2) !USER32,GetClassLongA
Def SetClassLong(3) !USER32,SetClassLongA
Cls
Usermessages $203,$206,$209
x&=GetClassLong(%hwnd,-26)
x&=Or(x&,8)
SetClassLong(%hwnd,-26,x&)    CS_DBLCLKS Class-Style setzen.

While 1

    waitinput
    Case %key=2:BREAK

    If %umessage=$203

        Print Linker Doppelklick.

    ElseIf %umessage=$206

        Print Rechter Doppelklick.

    ElseIf %umessage=$209

        Print Mittlerer Doppelklick.

    EndIf

EndWhile

Usermessages 0
Fin

01.06.2006 ▲

Sven
Bader

avec cela ca va, merci

mon bisherige variante:
Kompilieren Marque Séparation

Def Key(1) !User32,GetAsyncKeyState
Def windowfrompoint(2) !USER32,WindowFromPoint
Def GetCursorPos(1) !USER32,GetCursorPos
cls
usermessages 16
Declare dbl&, dbl%,mousepos#,oldx%,oldy%
dim mousepos#,8

PROC Doppelklick

    Parameters handle&

    if (abs(key(1)>1) ) & (dbl% = 0) & (windowfrompoint(long(mousepos#,0),long(mousepos#,4)) = handle&)

        dbl& = &gettickcount+400 Doppelklickzeit
        dbl% = 1
        oldx% = long(mousepos#,0)
        oldy% = long(mousepos#,4)

    elseif (abs(key(1)<2)) & (dbl% = 1)  & (windowfrompoint(long(mousepos#,0),long(mousepos#,4)) = handle&)

        dbl% = 2
        case (&gettickcount > dbl&) : dbl% = 0

    elseif (abs(key(1)>1)) & (dbl% = 2)  & (&gettickcount < dbl&) & (windowfrompoint(long(mousepos#,0),long(mousepos#,4)) = handle&)

        if ((abs(oldx% - long(mousepos#,0))<5) & (abs(oldy% - long(mousepos#,4))<5)) Maus maximal 5 Pixel verschoben

            dbl% = 3

        else

            dbl% = 0

        endif

    elseif ((abs(key(1)>1)) & (dbl% = 2)) | (dbl% = 3)

        dbl% = 0

    endif

    return if(dbl% = 3,1,0)

EndProc

whilenot (%umessage = 16)

    waitinput
    sleep 50
    getcursorpos(mousepos#)
    case Doppelklick(%hwnd) : print Doppelklick

endwhile

dispose mousepos#

Frank
Abbing

là serait je qui API-variante absolument préférer, weil qui User qui Double-cliquez sur-Zeit oui einstellen peux.

- page 2 -

Sven
Bader

Notfalls peux je cela oui aussi encore aus qui Registry auslesen

Denke mais, dass un fixer Wert pas plus tragisch ist.
j'ai es incidemment doch pas geschafft, qui API variante dans einer Listbox zum courir trop bekommen... habe qui %hwnd par cela Listbox-Handle getauscht - reicht cela pas?

Sven Bader

j'ai es incidemment doch pas geschafft, qui API variante dans einer Listbox zum courir trop bekommen... habe qui %hwnd par cela Listbox-Handle getauscht - reicht cela pas?

si Du doch cela avec qui EasyVENt.dll testen vouloir, avec cela ca va problemlos
Kompilieren Marque Séparation

 $I EasyVENT.inc
Def PostQuitMessage(1) !USER32, PostQuitMessage
DEF GETSYSCOLOR(1) !USER32,GetSysColor
DECLARE LISTBOX1&
WINDOWSTYLE 26
WINDOWTITLE ListBox
WINDOW 336,416-303,158
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
LISTBOX1& = CREATE(LISTBOX,%HWND,LISTBOX,10,10,275,110)
AddString(LISTBOX1&, Profan Rulez)
AddString(LISTBOX1&, I love it)
SetEventHandler(LISTBOX1&, ~OnDblClick, ProcAddr(ButtonDBLClick, 1))
SetEventHandler(%HWND, ~OnClose, ProcAddr(WinClose, 1))
SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

WEND

Dispose PRF_Sender#
End

Proc ButtonDBLClick

    parameters prf_events&
    PRF_Sender# = prf_events&

    With PRF_Sender#

        If .button& = ~EVENT_LEFTBUTTON

            MessageBox , Linker Doppelklick, 0

        ElseIf .button& = ~EVENT_MIDDLEBUTTON

            MessageBox , Mittlerer Doppelklick, 0

        ElseIf .button& = ~EVENT_RIGHTBUTTON

            MessageBox , Rechter Doppelklick, 0

        EndIf

    EndWith

    Return ~ProfanEvents

EndProc

Proc WinClose

    Dispose PRF_Sender#
    PostQuitMessage(0)

./../references-fonction/XProfan/endproc/'>ENDPROC

Pedro
Santos

allô Tomas

EasyVENt finde je bien doch chez mir funktioniert qui dessus stehenden code pas richtig, j'ai anschliessend ne...aucune kontrolle plus sur den calculateur, il me faut rien anzuclicken es reagiert bereits si le souris bewegt wird et peux oui penser quoi pour un chaos wird, es hilft seulement den calculateur auszuschalten et wieder à.

j'ai XP Home SP2 et qui aktuelle Xprofan 10 version, avec Xprofan9 habe es encore pas getestet

Gruss

Pedro

Windows XP Home
Xprofan 10

03.06.2006 ▲

allô Pedro,

peux den faute malheureusement pas nachvollziehen, XProfan 10, XP Pro Sp2

peut-être hâte une anderen Fensterstil gewählt, ansonsten la fois FastMode 1 mettons, peux son, cela bestimmte Ereignisse, quelle de qui DLL gebraucht volonté, sonst pas durchkommen.

04.06.2006 ▲

Sven
Bader

je denke, je bleib chez meiner handprogrammierten Methode. Que le Doppelklickzeit seh je pas so eng... im opposition trop getfocus pour Buttonklicks ist cela un Pfusch, qui niemandem auffallen wird. Ist seulement irgendwie komisch, dass une solch banale l'affaire trop Schwierigkeiten führt - on voudrais es plan doch irgendwie korrekt et elegant lösen.

04.06.2006 ▲

korrekt et elegant lösen

Es funktioniert entier hervorragend im Fastmode avec eigener wProc, comment je déjà im ersten Posting schrieb.

tu as déjà droite Sven, aus diesem et ähnlichen Trouvé flüchte je mich aussi souvent dans den Fastmode - dans XProfan devrait hierfür une Solution her.

on pourrait une Bug annoncer avec Doppelklickabfrage sans Fastmode unbefriedigend.

04.06.2006 ▲