close event in label doenst work

[Melque_Lima]

hi guys, fine?

i'm trying to set an event to a label and it doesns work IF the line bellow is uncomented:

GUICtrlCreatePic($hImageLocal, $w, $h, 0, 0)

 

the event that doenst work bellow:

$x_inicial = GUICtrlCreateLabel("X", 470, 10, 20, 20, BitOr($SS_NOTIFY, $SS_CENTER, $SS_CENTERIMAGE, $SS_SUNKEN))
GUICtrlSetOnEvent(-1, "close")

but if i coment this line, the event works, bellow the full code

 

expandcollapse popup

#NoTrayIcon
#include <GUIConstantsEx.au3>
#Include <GDIPlus.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>
#include <GuiTab.au3>
#include <StaticConstants.au3>
#include <Misc.au3>
#include <GuiTreeView.au3>


HotKeySet("{ESC}", "close")

Opt("GUIOnEventMode", 1)
Opt('WINTITLEMATCHMODE', 4)
$hImageLocal2 = "http://wallpaper.zone/img/3784228.jpg"
_GDIPlus_Startup ()
$hImageLocal = _GetURLImage($hImageLocal2)


Local $hImage = _GDIPlus_ImageLoadFromFile($hImageLocal);_GDIPlus_ImageLoadFromFile($hImageLocal)
If @error Then
    MsgBox(16, "Error", "Does the file exist?")
    Exit 1
EndIf

$x = _GDIPlus_ImageGetWidth($hImage)
$y = _GDIPlus_ImageGetHeight($hImage)
$w =(@DesktopWidth/2)-($x/2)
$h =(@DesktopHeight/2)-($y/2)

_GDIPlus_ImageDispose ($hImage)


_GDIPlus_ShutDown ()
Global $Form1 = GUICreate("inicial", @DesktopWidth, @DesktopHeight, 0, 0, BitOR($WS_POPUP, $DS_SETFOREGROUND));, $WS_EX_TOPMOST)

GUICtrlCreatePic($hImageLocal, $w, $h, 0, 0)

$x_inicial = GUICtrlCreateLabel("X", 470, 10, 20, 20, BitOr($SS_NOTIFY, $SS_CENTER, $SS_CENTERIMAGE, $SS_SUNKEN))
GUICtrlSetOnEvent(-1, "close")

GUISetState(@SW_SHOW,$Form1)

While 1
    Switch GUIGetMsg($Form1)
        Case $GUI_EVENT_CLOSE
            exit
    EndSwitch

WEnd

func x_press()
    MsgBox(0,"","OK")
EndFunc

func close()
            exit
EndFunc



Func _GetURLImage($sURL, $sDirectory = @ScriptDir)
    Local $hDownload, $sFile
    $sFile = StringRegExpReplace($sURL, "^.*/", "")
    If @error Then
        Return SetError(1, 0, $sFile)
    EndIf
    If StringRight($sDirectory, 1) <> "\" Then
        $sDirectory = $sDirectory & "\"
    EndIf
    $sDirectory = $sDirectory & $sFile
    If FileExists($sDirectory) Then
        Return $sDirectory
    EndIf
    $hDownload = InetGet($sURL, $sDirectory, 17, 1)
    While InetGetInfo($hDownload, 2) = 0
        If InetGetInfo($hDownload, 4) <> 0 Then
            InetClose($hDownload)
            Return SetError(1, 0, $sDirectory)
        EndIf
        Sleep(105)
    WEnd
    InetClose($hDownload)
    Return $sDirectory
EndFunc   ;==>_GetURLImage

 

[Melba23]

Melque_Lima,

Disable the pic control - AutoIt does not like overlapping active controls as it cannot read your mind and decide which you want to action.

M23

[Melque_Lima]

2 minutes ago, Melba23 said:

Melque_Lima,

Disable the pic control - AutoIt does not like overlapping active controls as it cannot read your mind and decide which you want to action.

M23

how do i do that?

[Melba23]

Melque_Lima,

Read the Help file for GUICtrlCreatePic - the "Remarks" section explains all.

M23