Adding context menu on edit control (RESOLVED)

[AustrianOak]

Bump

[AustrianOak]

Bump

[ProgAndy]

So, I tried to make it. You have to create Array and set the Window Proc for each Input:

CODE

#include <GuiConstantsEx.au3>

#include <GuiEdit.au3>

#include <WindowsConstants.au3>

#include <GUIMenu.au3>

#include <WindowsConstants.au3>

#include <Constants.au3>

#include <EditConstants.au3>

#include <WinAPI.au3>

Dim $hInput_GUI[6], $Input[6], $wProcsOld[6], $InputMenu[6]

Global $lastdragIP = -1

Global Enum $idOpen = 1000, $idSave, $idInfo

$GUI = GUICreate("Test", 300, 300)

$button5 = GUICtrlCreateButton("", 100, 200, 40, 25)

GUICtrlSetState(-1, $GUI_DEFBUTTON)

GUISetState()

$wProcHandle = DllCallbackRegister("_WindowProc", "ptr", "hwnd;uint;wparam;lparam")

While 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE

Exit

Case $msg = $button5

If $lastdragIP < 5 Then

$lastdragIP += 1

createNextdragIP($lastdragIP)

EndIf

Case $msg = $GUI_EVENT_PRIMARYDOWN

$aMouse_Pos = MouseGetPos()

$sel = -1

For $n = 0 To $lastdragIP

GUISwitch($hInput_GUI[$n])

$aCursorInfo = GUIGetCursorInfo()

If Not IsArray($aCursorInfo) Then ContinueLoop

If $aCursorInfo[4] = $Input[$n] Then

$sel = $n

ExitLoop

EndIf

Next

If $sel = -1 Then ContinueLoop

$aInputGUI_Pos = WinGetPos($hInput_GUI[$sel])

While IsArray($aCursorInfo) And $aCursorInfo[2] = 1

$aCursorInfo = GUIGetCursorInfo()

$aCurrent_Mouse_Pos = MouseGetPos()

WinMove($hInput_GUI[$sel], "", _

$aInputGUI_Pos[0] - $aMouse_Pos[0] + $aCurrent_Mouse_Pos[0], _

$aInputGUI_Pos[1] - $aMouse_Pos[1] + $aCurrent_Mouse_Pos[1])

WEnd

EndSelect

WEnd

Func createNextdragIP($nw)

$start = WinGetPos($GUI)

$hInput_GUI[$nw] = GUICreate("", 120, 22, $start[0]+30, $start[1]+200, $WS_POPUP, $WS_EX_TOOLWINDOW)

$Input[$nw] = GUICtrlCreateEdit("", 0, 0, 120, 22, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))

$hMenu = _GUICtrlMenu_CreatePopup()

$InputMenu[$nw] = $hMenu

_GUICtrlMenu_AddMenuItem($hMenu, "Delete", $idOpen)

_GUICtrlMenu_AddMenuItem($hMenu, "Save", $idSave)

_GUICtrlMenu_AddMenuItem($hMenu, "Info", $idInfo)

$wProcsOld[$nw] = _WinAPI_SetWindowLong(GUICtrlGetHandle($Input[$nw]), $GWL_WNDPROC, DllCallbackGetPtr($wProcHandle))

GUISetState()

WinSetOnTop($hInput_GUI[$nw], "", 1)

EndFunc ;==>createNextdragIP

Func _WindowProc($hWnd, $Msg, $wParam, $lParam)

Local $wProcOld

For $i = 0 To UBound($Input)-1

If GUICtrlGetHandle($Input[$i]) = $hWnd Then

Switch $Msg

Case $WM_CONTEXTMENU

_GUICtrlMenu_TrackPopupMenu($InputMenu[$i], $wParam)

Return 0

Case $WM_COMMAND

Switch $wParam

Case $idOpen

GUICtrlDelete($Input[$i])

Case $idSave

ConsoleWrite("-> Save" & @LF)

Case $idInfo

ConsoleWrite("-> Info" & @LF)

EndSwitch

EndSwitch

$wProcOld = $wProcsOld[$i]

ExitLoop

EndIf

Next

Local $aRet = DllCall("user32.dll", "int", "CallWindowProc", "ptr", $wProcOld, _

"hwnd", $hWnd, "uint", $Msg, "wparam", $wParam, "lparam", $lParam)

Return $aRet[0]

EndFunc

[AustrianOak]

very nice progandy but it seems to crash after deleting a few edits.

Edited September 23, 2008 by AustrianOak

[AustrianOak]

Does anyone know why this is? I cant figure it out

[AustrianOak]

Bump

[BrettF]

Well what exactly happens when you run Andy's code? How can we replicate it?

Please post the output pane from SciTe.

Cheers,

Brett

[ProgAndy]

I tried and deleted all , but it didn't crash. Yes, you can't create new ones, but thats because of the creating and deletion logic Also, the GUIs of the Edits arent deleted.

But a crash didn't occur.

[AustrianOak]

ProgAndy:

maybe cuz im running 3.2.11.5 beta?

that might be one of the reasons...

[BrettF]

Post output pane of SciTe and any messages recieved. It works at bot our ends.

[AustrianOak]

I don't think this will be of much use but when I did a beta run after it crashed here's all that was there:

>"C:\Program Files\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /beta /ErrorStdOut /in "*\*" /autoit3dir "C:\Program Files\AutoIt3\beta" /UserParams   
+>14:55:24 Starting AutoIt3Wrapper v.1.9.2
>Running AU3Check (1.54.13.0)  from:C:\Program Files\AutoIt3\beta
+>14:55:24 AU3Check ended.rc:0
>Running:(3.2.11.5):C:\Program Files\AutoIt3\beta\autoit3.exe "*"   
-> Save
-> Save
!>14:56:08 AutoIT3.exe ended.rc:-1073741819
+>14:56:09 AutoIt3Wrapper Finished
>Exit code: -1073741819 Time: 45.539

[AustrianOak]

I finally got it implemented into my code after some tedious "re-modeling". Thank you so much for all of your help to everyone that contributed and a special thanks to ProgAndy who put in the final piece. Thread finally done...

[TehWhale]

Hello,

It appears you have found your answer to your question.

Please take the time to edit your thread title with [RESOLVED] so others know that is it resolved.

You can do this by scrolling to the top of your thread, clicking EDIT and then Full Edit and adding: "[RESOLVED]"

to the front of your thread title.

Thanks for your cooperation.