Problem with script

[Didonet 0]

Hi all, I'm having a problem with this script. When I run it the "dragging" works, but the context menu didn't...

expandcollapse popup

#NoTrayIcon
#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)

MouseUp("primary") ; To release Mouse when start /Func Capture()/

$HTCAPTION = 2
$WM_NCLBUTTONDOWN = 0xA1
$title = "Program Title"
$gui = GUICreate($title, 200, 20, -1, -1, $WS_POPUP + $WS_SYSMENU, $WS_EX_TOPMOST)
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "Capture")

$contextmenu = GUICtrlCreateContextMenu()
$trans_set = GUICtrlCreateMenu("Transparency", $contextmenu)
$trans_10 = GUICtrlCreateMenuItem("10%", $trans_set)
$trans_20 = GUICtrlCreateMenuItem("20%", $trans_set)
$trans_30 = GUICtrlCreateMenuItem("30%", $trans_set)
$trans_40 = GUICtrlCreateMenuItem("40%", $trans_set)
$trans_50 = GUICtrlCreateMenuItem("50%", $trans_set)
$trans_60 = GUICtrlCreateMenuItem("60%", $trans_set)
$trans_70 = GUICtrlCreateMenuItem("70%", $trans_set)
$trans_80 = GUICtrlCreateMenuItem("80%", $trans_set)
$trans_90 = GUICtrlCreateMenuItem("90%", $trans_set)
$trans_100 = GUICtrlCreateMenuItem("100%", $trans_set)

$exit_item = GUICtrlCreateMenuItem("Exit", $contextmenu)


GUISetState()

While 1
    $msg = GUIGetMsg()
    
    If $msg = $exit_item Or $msg = $GUI_EVENT_CLOSE Then
        ExitLoop
    EndIf

    If $msg = $trans_10 Then
        WinSetTrans($title, "", 22)
    EndIf
    
    If $msg = $trans_20 Then
        WinSetTrans($title, "", 44)
    EndIf
    
    If $msg = $trans_30 Then
        WinSetTrans($title, "", 66)
    EndIf
    
    If $msg = $trans_40 Then
        WinSetTrans($title, "", 88)
    EndIf
    
    If $msg = $trans_50 Then
        WinSetTrans($title, "", 110)
    EndIf
    
    If $msg = $trans_60 Then
        WinSetTrans($title, "", 132)
    EndIf
    
    If $msg = $trans_70 Then
        WinSetTrans($title, "", 154)
    EndIf
    
    If $msg = $trans_80 Then
        WinSetTrans($title, "", 176)
    EndIf
    
    If $msg = $trans_90 Then
        WinSetTrans($title, "", 198)
    EndIf
    
    If $msg = $trans_100 Then
        WinSetTrans($title, "", 220)
    EndIf
WEnd

Func Capture()
    DllCall("user32.dll", "int", "ReleaseCapture")
    DllCall("user32.dll", "int", "SendMessage", "hWnd", $gui, "int", $WM_NCLBUTTONDOWN, "int", $HTCAPTION, "int", 0)
EndFunc   ;==>Capture

[Valuater 108]

Opt("GUIOnEventMode", 1) does not work with GUIGetMsg()

Use one or the other

8)

[Didonet 0]

And how to make this to work?

Edited December 2, 2007 by Didonet

[Generator 0]

Here..

expandcollapse popup

#NoTrayIcon
#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)

MouseUp("primary") ; To release Mouse when start /Func Capture()/

$HTCAPTION = 2
$WM_NCLBUTTONDOWN = 0xA1
$title = "Program Title"
$gui = GUICreate($title, 200, 20, -1, -1, $WS_POPUP + $WS_SYSMENU, $WS_EX_TOPMOST)
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "Capture")

$contextmenu = GUICtrlCreateContextMenu()
$trans_set = GUICtrlCreateMenu("Transparency", $contextmenu)
$trans_10 = GUICtrlCreateMenuItem("10%", $trans_set)
GUICtrlSetOnEvent(-1, "_Event")
$trans_20 = GUICtrlCreateMenuItem("20%", $trans_set)
GUICtrlSetOnEvent(-1, "_Event")
$trans_30 = GUICtrlCreateMenuItem("30%", $trans_set)
GUICtrlSetOnEvent(-1, "_Event")
$trans_40 = GUICtrlCreateMenuItem("40%", $trans_set)
GUICtrlSetOnEvent(-1, "_Event")
$trans_50 = GUICtrlCreateMenuItem("50%", $trans_set)
GUICtrlSetOnEvent(-1, "_Event")
$trans_60 = GUICtrlCreateMenuItem("60%", $trans_set)
GUICtrlSetOnEvent(-1, "_Event")
$trans_70 = GUICtrlCreateMenuItem("70%", $trans_set)
GUICtrlSetOnEvent(-1, "_Event")
$trans_80 = GUICtrlCreateMenuItem("80%", $trans_set)
GUICtrlSetOnEvent(-1, "_Event")
$trans_90 = GUICtrlCreateMenuItem("90%", $trans_set)
GUICtrlSetOnEvent(-1, "_Event")
$trans_100 = GUICtrlCreateMenuItem("100%", $trans_set)
GUICtrlSetOnEvent(-1, "_Event")
$exit_item = GUICtrlCreateMenuItem("Exit", $contextmenu)
GUICtrlSetOnEvent(-1, "_Event")
GUISetOnEvent($GUI_EVENT_CLOSE, "_Bye")

GUISetState()

While 1
    Sleep(1)
WEnd

Func Capture()
    DllCall("user32.dll", "int", "ReleaseCapture")
    DllCall("user32.dll", "int", "SendMessage", "hWnd", $gui, "int", $WM_NCLBUTTONDOWN, "int", $HTCAPTION, "int", 0)
EndFunc   ;==>Capture
Func _Event()
    $msg = @GUI_CtrlId
    If $msg = $exit_item Then
        Exit
    EndIf

    If $msg = $trans_10 Then
        WinSetTrans($title, "", 22)
    EndIf

    If $msg = $trans_20 Then
        WinSetTrans($title, "", 44)
    EndIf

    If $msg = $trans_30 Then
        WinSetTrans($title, "", 66)
    EndIf

    If $msg = $trans_40 Then
        WinSetTrans($title, "", 88)
    EndIf

    If $msg = $trans_50 Then
        WinSetTrans($title, "", 110)
    EndIf

    If $msg = $trans_60 Then
        WinSetTrans($title, "", 132)
    EndIf

    If $msg = $trans_70 Then
        WinSetTrans($title, "", 154)
    EndIf

    If $msg = $trans_80 Then
        WinSetTrans($title, "", 176)
    EndIf

    If $msg = $trans_90 Then
        WinSetTrans($title, "", 198)
    EndIf

    If $msg = $trans_100 Then
        WinSetTrans($title, "", 220)
    EndIf
EndFunc   ;==>_Event
Func _Bye()
    Exit
EndFunc   ;==>_Bye