XProfan

- Page 1 -

with the EasyVENT.dll and Include kannste too dead easy a Mausdoppelclick check
[...]

06/01/06 ▲

Frank
Abbing

the goes without Dll plenty leichter...
circa Doppelklicks To receive must solely the CS_DBLCLKS Class-Style staid go. so as in the API-Help indeed standing.
Compile Mark Separation

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

06/01/06 ▲

Sven
Bader

so goes it, thanks

my previous Variante:
Compile Mark Separation

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

there would I The API-Variante absolutely vorziehen, because the User The Double click-Time Yes take on can.

- Page 2 -

Sven
Bader

if need be can I the indeed yet from the Registry read

think but, that one fixer worth not further tragic is.
I have it incidentally still not geschafft, The API Variante in a list box to that walk To get... have The %hwnd by the Listbox-lever swapped - reicht not?

Sven Bader

I have it incidentally still not geschafft, The API Variante in a list box to that walk To get... have The %hwnd by the Listbox-lever swapped - reicht not?

if You still with the the EasyVENt.dll testing want, so goes it free from problems
Compile Mark Separation

 $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

Hello Tomas

EasyVENt find I well still by me functions the supra stehenden code not correctly., I have joining no control More over the computer, I need nothing anzuclicken it reacted already if The mouse moving and is can Yes think what kind of chaos becomes, it helps only whom computer auszuschalten and again on.

I have XP Home SP2 and the actually XProfan 10 Version, with XProfan9 have it not yet tested

greeting

Pedro

Windows XP Home
Xprofan 10

06/03/06 ▲

Hello Pedro,

can whom Error unfortunately not understand, XProfan 10, XP per Sp2

Perhaps haste a others Fensterstil chosen, otherwise time FastMode 1 settle, can his, the defined Events, which from the DLL used go, otherwise not get by.

06/04/06 ▲

Sven
Bader

i think, I stay with of my handprogrammierten method. That the Doppelklickzeit seh I do not so tight... in the Contrast To getfocus for Buttonklicks is the one Pfusch, the niemandem strike becomes. is only somehow comic, that a such banale thing To difficulty lead - one would like it even still somehow correctly and elegant solve.

06/04/06 ▲

correctly and elegant solve

it functions integrally inspired in the Fastmode with eigener wProc, How I already in the first Posting wrote.

you have already right Sven, from this and ähnlichen Found flüchte I too often into Fastmode - in XProfan should this a Solution since.

one could a bow report with Doppelklickabfrage without Fastmode unbefriedigend.

06/04/06 ▲