Double Click - Right Click In A List Example

[gseller]

I made this example to have here when I need it and to share. I took some code from other examples and put together a new example of using doubleclick and rightclick in a list box in hopes someone might understand it better all layed out in one simple example. If you see your code hop in and post it as so. "It's All Good!"

double_click___right_click_in_a_list.au3

Only tested on Windows XP SP2... If your system is different please post is it works or not.

edited:Converted Code conform to Autoit build 3.2.10.0

expandcollapse popup

#include <GuiConstants.au3>

;Global Const $WM_NOTIFY = 0x004E  ; removed to conform to Autoit build 3.2.10.0
Global $DoubleClicked   = False

GUICreate("Double Click/Right Click Demo", 400, 300)
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

;create listboxt
$ListViewID = GuiCtrlCreateListView("List Column", 10, 20, 380, 250)


;******************Rightclick Menu*************
$menu1=GUICtrlCreateContextMenu ($ListViewID)
$delete=GUICtrlCreateMenuitem("Delete" , $menu1)
$play=GUICtrlCreateMenuitem("Play" , $menu1)
$info=GUICtrlCreateMenuitem("Info" ,$menu1)

;~~~~~~~~~~~~~~~Using Loop Method~~~~~~~~~~~~~~

;***************End Rightclick Menu************


For $i = 1 To 10
    GuiCtrlCreateListViewItem("Item " & $i, $ListViewID)
Next

GUISetState()

While 1
    $hGui = GUIGetMsg()
        Sleep(10)
            Switch $hGui
        Case $GUI_EVENT_CLOSE
            Exit
            EndSwitch
    If $DoubleClicked Then
        DoubleClickFunc()
        $DoubleClicked = False
    EndIf
    Select
    Case $hGui = $delete
    delete()
    Case $hGui = $play
    play()
    Case $hGui = $info
    info()
    EndSelect
WEnd

Func DoubleClickFunc()
    MsgBox(64, "OK ", "You Double Clicked: " & GUICtrlRead(GUICtrlRead($ListViewID)) & " ?")
EndFunc

Func WM_NOTIFY($hWnd, $MsgID, $wParam, $lParam)
    Local $tagNMHDR, $event, $hwndFrom, $code
    $tagNMHDR = DllStructCreate("int;int;int", $lParam)
    If @error Then Return 0
    $code = DllStructGetData($tagNMHDR, 3)
    If $wParam = $ListViewID And $code = -3 Then $DoubleClicked = True
    Return $GUI_RUNDEFMSG
EndFunc

Func play()
    MsgBox(64, "You Right Clicked ", "Play: " & GUICtrlRead(GUICtrlRead($ListViewID)) & " ?")
EndFunc

Func delete()
    MsgBox(64, "You Right Clicked ", "Delete: " & GUICtrlRead(GUICtrlRead($ListViewID)) & " ?")
EndFunc
   
Func info()
    MsgBox(64, "You Right Clicked ", "Info For: " & GUICtrlRead(GUICtrlRead($ListViewID)) & " ?")
EndFunc

Edited December 7, 2007 by gesller

[JohnBailey]

I made this example to have here when I need it and to share. I took some code from other examples and put together a new example of using doubleclick and rightclick in a list box in hopes someone might understand it better all layed out in one simple example. If you see your code hop in and post it as so. "It's All Good!"

Looks good

How come the doubleclick function is being called in the loop instead of in WM_Notify function after If $wParam = $ListViewID And $code = -3 Then ?

Is it just preference or are you trying to prevent an error or speed things up?

[gseller]

More of a preference. I have a searchable commandline script that will not work with OnEvent so I had to do everthing in loop. This also works better I think for ShellExecute.

[nerdgerl]

I made this example to have here when I need it and to share. I took some code from other examples and put together a new example of using doubleclick and rightclick in a list box in hopes someone might understand it better all layed out in one simple example. If you see your code hop in and post it as so. "It's All Good!"

Only tested on Windows XP SP2... If your system is different please post is it works or not.

I still use Win98 and it worked perfect for me. Thanks for sharing!

[MrCreatoR]

How come the doubleclick function is being called in the loop instead of in WM_Notify function after If $wParam = $ListViewID And $code = -3 Then ?

This is the correct way, because if you call a function inside a WM_NOTIFY func (wich is registered func), then you mith expirience some problems...

From the help file:

Warning: blocking of running user functions which executes window messages with commands such as "Msgbox()" can lead to unexpected behavior, the return to the system should be as fast as possible !!!

P.S

Good example gesller, and BTW, there is a diferents between a List Box and ListView

;create listboxt

Edited October 1, 2007 by MsCreatoR

[JohnBailey]

This is the correct way, because if you call a function inside a WM_NOTIFY func (wich is registered func), then you mith expirience some problems...

From the help file:

P.S

Good example gesller, and BTW, there is a diferents between a List Box and ListView

WOW!!!! I never knew that!! Thank you for the explanation. I need to get busy on correcting this in my scripts and notify Eltorro in regards to his LV_EditInPlace

Thanks Gesller for the good example and the start of a powerful learning experience.

MSCreator, let me get this straight. I shouldn't call functions in Registered "functions" (eg. WM_Notify) or is this just an issue if the function called takes any "extended" period of time (eg. MsgBox() ) ?

[gseller]

Thanks all.. I know it helped me a bunch.. Glad it helped others...

[MrCreatoR]

I shouldn't call functions in Registered "functions" (eg. WM_Notify) or is this just an issue if the function called takes any "extended" period of time (eg. MsgBox() ) ?

Yes, if you pause the registered function (not return), then when user will execute some option that causing this event (a func) to be called again, you might get some stucks, or even hangs of your script

[gseller]

Updated Post # 1

Converted Code conform to Autoit build 3.2.10.0

[Roofel]

Hello mate:) Since you did the "Right-click function", Got any idea on how to when you click Delete that it removes the thing you selected from the list? Would be grateful for it

PS: Using GuiCtrlCreateList instead of GuiCtrlCreateListView:)

[gseller]

Hello mate:) Since you did the "Right-click function", Got any idea on how to when you click Delete that it removes the thing you selected from the list? Would be grateful for it

PS: Using GuiCtrlCreateList instead of GuiCtrlCreateListView:)

Sure.. Use this

_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($Listview1))

[GaryFrost]

Sure.. Use this

_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($Listview1))oÝ÷ Ûú®¢×jx¬6§êÃjx­h¥{(Ú-j
(v'^i·¢ax^Ì­ç+y«^vë"ay»¢Ø§~éܶ*'ʬ¥vë趹CzW­z'íæî[bû§rب¬ºÇ¶+y«^¶¥Ëoì"µé¬!ü¨ºIèÂØ^צ³«yÊÞj׺ȧ»¢Ø§~éܶ*'¶§Ê¢é]v(ëax%GºÚ"µÍ[ÈÛXØ]ÛØÛXÚÙY

BSØØ[ ÌÍØÝQQÜ    ÌÍÚ[^HÑÕRPÝÝY]×ÑÙ]][PÛÝ[
    ÌÍÛÝY]ÊHHHÈÝLBBIÌÍØÝQHÑÕRPÝÝY]×ÑÙ]][T[J   ÌÍÛÝY]Ë    ÌÍÚ[^
BBRY    ÌÍØÝQ[ÕRPÝ[]J ÌÍØÝQ
BS^[[ÈÏOIÝÐÛXØ]ÛØÛXÚÙY

Edited January 15, 2008 by GaryFrost

[gseller]

Sorry, didn't realize it was that big a difference..

[ReCoder]

Hello.....

I use this to remove a single item from the list.

Func delete()
    Local $ret = MsgBox(48 + 1, "You Right Clicked ", "Delete: " & GUICtrlRead(GUICtrlRead($ListViewID)) & " ?", 10)
    ;# Remove a single item from the list
    If $ret = 1 Then GUICtrlDelete(GUICtrlRead($ListViewID))
EndFunc   ;==>deleteoÝ÷ ÚÚºÚ"µÍ[È[]J
BSØØ[ ÌÍÜ]HÙÐÞ

ÈK ][ÝÖ[ÝHYÚÛXÚÙY   ][ÝË  ][ÝÑ[]N   ][ÝÈ  [ÈÕRPÝXY
ÕRPÝXY
    ÌÍÓÝY]ÒQ
JH  [È ][ÝÈÉ][ÝËL
BNÈÈ[[ÝHHÚ[ÛH][HÛHHÝRY   ÌÍÜ]HH[ÛXØ]ÛØÛXÚÙY

B[[ÈÏOIÝÙ[]B[ÈÛXØ]ÛØÛXÚÙY

BSØØ[ ÌÍØÝQQÜ    ÌÍÚ[^HÑÕRPÝÝY]×ÑÙ]][PÛÝ[
    ÌÍÓÝY]ÒQ
HHHÈÝHBBIÌÍØÝQHÑÕRPÝÝY]×ÑÙ]][T[J   ÌÍÓÝY]ÒQ   ÌÍÚ[^
BBRY    ÌÍØÝQHÕRPÝXY
    ÌÍÓÝY]ÒQ
H[ÕRPÝ[]J ÌÍØÝQ
BS^[[ÈÏOIÝÐÛXØ]ÛØÛXÚÙY

Nice example, i needed yet. It gives me some good ideas for my actual project.

[Lemmens Peter]

Nice code !

Can anyone tell me how to detect when an item is selected (simply clicked or selected by using the arrows on the keyboard) - not doubleclicked ?

This would be great !

Thanks,

Peter

[gseller]

Can't remember who wrote it: You could add hotkeys for the keys part...

expandcollapse popup

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.10.0
 Author:         myName

 Script Function:
 Template AutoIt script.

#ce ----------------------------------------------------------------------------


#Include <GuiListView.au3>

Global $iDx = -1

$Gui = GUICreate("Listview Click",185,250,-1,-1)
$ListView = GUICtrlCreateListView("Col 1   |Col 2",0,0,500,500)
For $i = 0 To 8
    GUICtrlCreateListViewItem("Item " & $i & "|SubItem " & $i,$listview)
Next
GUISetState(@SW_SHOW)

GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

While 1
    If GUIGetMsg() = -3 Then Exit
    If $iDx <> -1 Then
        MsgBox(0, "", "Index: " & $iDx)
        $iDx = -1
    EndIf
WEnd

Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
    Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView
    $hWndListView = GUICtrlGetHandle($ListView)
    $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    $iCode = DllStructGetData($tNMHDR, "Code")
    If $hWndFrom = $hWndListView And $iCode = $NM_CLICK Then
        Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
        If DllStructGetData($tInfo, "Index") <> - 1 Then $iDx = DllStructGetData($tInfo, "Index")
    EndIf
    Return $GUI_RUNDEFMSG
EndFunc

[Chobby]

You made my day, gesller!

Just what I needed to get on with my script!! Thanks a lot!

[gseller]

Chobby - Very Glad to be of assistance...

[LIMITER]

Nice one gesller

[gseller]

Thank You Sir!