Drag & Drop event on guictrlcreatepic

[kjason]

Hi? I need your help with the issue.

I just want to get a file name with fullpath when a file dropped on a "GUICtrlCreatePic " .

I know I can use "GUICtrlCreateInput" but I just want to use a "GUICtrlCreatePic " because I can use a picture on it and contexts menu.

So, is there any other way to use drag & drop function?

In the source I have been making , I want to show the dropped file name with fullpath.

====================================================================================================

===

#include <GUIConstants.au3>

#include <file.au3>

#include <Array.au3>

#NoTrayIcon

$Drvletter = StringLeft ( @ScriptDir, 2 )

$DrvLabel = DriveGetLabel ( $Drvletter )

GUICreate("DDarea", 76, 71, @DesktopWidth - "160", @DesktopHeight - "300", $WS_POPUP, $WS_EX_TOOLWINDOW )

$GUI = GUICtrlCreatePic (@scriptDir & "\test.jpg", -1, -1, 77, 72, $GUI_SS_DEFAULT_PIC , BitOR($WS_EX_ACCEPTFILES , $GUI_WS_EX_PARENTDRAG ))

WinSetOnTop("DDarea", "", 1)

WinSetTrans ( "DDarea", "", 100 )

GUICtrlSetState ( $GUI, $GUI_DROPACCEPTED)

GUISetState ()

While 1

$msg = GUIgetMsg ()

Select

case $msg = 0

case $msg = $GUI_EVENT_DROPPED

MsgBox (4096, "Files dropped", ?????????????????????????????????? )

Endselect

Wend

====================================================================================================

===

[martin]

Hi? I need your help with the issue.

I just want to get a file name with fullpath when a file dropped on a "GUICtrlCreatePic " .

I know I can use "GUICtrlCreateInput" but I just want to use a "GUICtrlCreatePic " because I can use a picture on it and contexts menu.

So, is there any other way to use drag & drop function?

In the source I have been making , I want to show the dropped file name with fullpath.

====================================================================================================

===

#include <GUIConstants.au3>

#include <file.au3>

#include <Array.au3>

#NoTrayIcon

$Drvletter = StringLeft ( @ScriptDir, 2 )

$DrvLabel = DriveGetLabel ( $Drvletter )

GUICreate("DDarea", 76, 71, @DesktopWidth - "160", @DesktopHeight - "300", $WS_POPUP, $WS_EX_TOOLWINDOW )

$GUI = GUICtrlCreatePic (@scriptDir & "\test.jpg", -1, -1, 77, 72, $GUI_SS_DEFAULT_PIC , BitOR($WS_EX_ACCEPTFILES , $GUI_WS_EX_PARENTDRAG ))

WinSetOnTop("DDarea", "", 1)

WinSetTrans ( "DDarea", "", 100 )

GUICtrlSetState ( $GUI, $GUI_DROPACCEPTED)

GUISetState ()

While 1

$msg = GUIgetMsg ()

Select

case $msg = 0

case $msg = $GUI_EVENT_DROPPED

MsgBox (4096, "Files dropped", ?????????????????????????????????? )

Endselect

Wend

====================================================================================================

===

have a look at this

[smashly]

Hi, here's a rough example of your code..

expandcollapse popup

#include <GUIConstants.au3>
#include <file.au3>
#include <Array.au3>

#NoTrayIcon

$Drvletter = StringLeft ( @ScriptDir, 2 )
$DrvLabel = DriveGetLabel ( $Drvletter )

$GUI = GUICreate("DDarea", 76, 71, @DesktopWidth - "160", @DesktopHeight - "300", $WS_POPUP _
                                                                                    , $WS_EX_ACCEPTFILES _
                                                                                    + $WS_EX_TOPMOST _
                                                                                    + $WS_EX_TOOLWINDOW)
$PIC = GUICtrlCreatePic (@scriptDir & "\Water lilies.jpg", -1, -1, 77, 72, $GUI_SS_DEFAULT_PIC _
                                                                                , $GUI_WS_EX_PARENTDRAG)
GUICtrlSetState ($PIC, $GUI_DROPACCEPTED)
GUICtrlSetTip($PIC, @scriptDir & "\Water lilies.jpg")
WinSetTrans ( "DDarea", "", 100 )
GUISetState(@SW_SHOW, $GUI)

While 1
    $msg = GUIgetMsg()
    Select
        case $msg = $GUI_EVENT_CLOSE
            Exit
        case $msg = $GUI_EVENT_DROPPED
            If StringRight(@GUI_DragFile, 4) == _DropFilter(StringRight(@GUI_DragFile, 4)) Then
                GUICtrlSetImage($PIC, @GUI_DragFile)
                GUICtrlSetTip($PIC, @GUI_DragFile)
            Else    
                MsgBox (4096, "File dropped..", "The file that was dropped was not a supported picture format." & _
                                                    @LF & "File Dropped: " & @GUI_DragFile)
            EndIf   
    Endselect
Wend

Func _DropFilter($dFile)
    Dim $dFilter = StringSplit(".jpg|.bmp|.gif", "|")
    For $i = 1 To $dFilter[0]
        If $dFilter[$i] = $dFile Then Return $dFile
    Next
    Return ""   
EndFunc

Cheers

Edited July 31, 2007 by smashly

[kjason]

smashly~ Excellent job!!

Thanks so~~~ much~ ^^;

I really appreciate it.

[kjason]

have a look at this

Thanks so much martin.

I think I can use some of it.

I appreciate it.