XProfan

- Página 1 -

Mit el EasyVENT.dll y Incluir kannste auch Kinderleicht una Mausdoppelclick determinar
[...]

01.06.2006 ▲

Frank
Abbing

Es sin Dll viel leichter...
Um Doppelklicks a empfangen muss lediglich el CS_DBLCLKS Class-Style gesetzt voluntad. So como en el API-Ayuda en efecto es.
Kompilieren Marca Separación

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
End

01.06.2006 ▲

Sven
Bader

Damit es, danke

Mi bisherige Variante:
Kompilieren Marca Separación

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

disponer mousepos#

Frank
Abbing

Como sería Yo el API-Variante necesariamente vorziehen, porque el User el Haga doble clic en-Tiempo sí einstellen kann.

- Página 2 -

Sven
Bader

Notfalls kann Yo el en efecto todavía de el Registry auslesen

Denke aber, que un fixer Valor no más tragisch es.
Yo habe lo de paso doch no geschafft, el API Variante en uno Listbox para laufen a bekommen... habe el %hwnd por el Listbox-Handle getauscht - reicht el no?

Sven Bader

Yo habe lo de paso doch no geschafft, el API Variante en uno Listbox para laufen a bekommen... habe el %hwnd por el Listbox-Handle getauscht - reicht el no?

Falls Usted doch el con el EasyVENt.dll testen möchtest, así es problemlos
Kompilieren Marca Separación

 $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

¡Hola Tomas

EasyVENt finde Yo bien doch en me funktioniert el oben stehenden code no correcto, Yo anschliessend kein kontrolle mehr encima el Rechner, Yo brauche nichts anzuclicken lo reagiert ya si la Ratón bewegt se y kannst sí denken qué para una Chaos se, lo hilft sólo el Rechner auszuschalten y otra vez a.

Yo habe XP Home SP2 y el aktuelle Xprofan 10 version, con Xprofan9 habe lo todavía no getestet

Gruss

Pedro

Windows XP Home
Xprofan 10

03.06.2006 ▲

¡Hola Pedro,

kann el Fehler por desgracia, no nachvollziehen, XProfan 10, XP Pro Sp2

Tal vez haste una otro Fensterstil gewählt, ansonsten veces FastMode 1 conjunto, kann ser, el cierto Ereignisse, welche de el DLL gebraucht voluntad, sonst no durchkommen.

04.06.2006 ▲

Sven
Bader

Yo denke, Yo bleib en meiner handprogrammierten Método. Que el Doppelklickzeit seh Yo no así eng... en el Gegensatz a getfocus para Buttonklicks es el una Pfusch, el niemandem auffallen se. Ist sólo irgendwie komisch, dass una solch banale Sache a Schwierigkeiten führt - uno möchte lo eben doch irgendwie korrekt y elegant lösen.

04.06.2006 ▲

korrekt y elegant lösen

Lo funktioniert bastante hervorragend en el Fastmode con eigener wProc, Yo ya en el ersten Posting schrieb.

Usted hast ya bastante Sven, de diesem y ähnlichen Gründen flüchte Yo mich auch oft en el Fastmode - en XProfan debería esta una solución her.

Man podría una Bug informe con Doppelklickabfrage sin Fastmode unbefriedigend.

04.06.2006 ▲