[*]Profan

 $H windows.ph
 $H messages.ph
Def DragAcceptFiles(2) !"SHELL32","DragAcceptFiles"
Def DragFinish(1) !"SHELL32","DragFinish"
Def DragQueryFile(4) !"SHELL32","DragQueryFileA"
Declarar Anzahl&,Zähler&,PFilename#
Windowstyle 31
Windowtitle "Listbox con File Drag and Drop"' No a verwechseln con Plug&Pray
Ventana 0,0-640,440
var Filelistbox&=Crear("ListBox",%hwnd,"",20,20,500,300)
DragAcceptFiles(FileListbox&,1)
Usermessages ~wm_close,563' 563 <---- Drag&Drop

Sinestar encargado (%Umessage = ~wm_close) & (&uWnd = %hWnd)

    WaitInput

    IF %UMESSAGE=563' DragDrop Ereignis

        DIM PFilename#,1024
        ANZAHL&=DragQueryFile(&UWParam,$FFFFFFFF,PFilename#,1024)
        Usecursor 2

        Mientras que Zähler&<Anzahl&

            Claro PFilename#
            DragQueryFile(&UWParam,Zähler&,PFilename#,1024)
            AddStrings(FileListbox&,String$(PFilename#,0))
            Inc ZÄHLER&

        EndWhile

        Usecursor 0
        Disponer PFilename#
        DragFinish(&UWParam)

    Endif

EndWhile

DEF PathFindExtension(1) ! "shlwapi","PathFindExtensionA"
DEF GetFileTitle(3) ! "COMDLG32","GetFileTitleA"

 $H windows.ph
 $H messages.ph
 $H shellapi.ph
Usermessages ~wm_close,563' 563 <---- Drag&Drop
DEF PathFindExtension(1) ! "shlwapi","PathFindExtensionA"
DEF GetFileTitle(3) ! "COMDLG32","GetFileTitleA"
Declarar PFilename#,ext#
DIM PFilename#,1024
Dim ext#,20

Proc DateiSplit

    Parámetros Expediente$
    ' Nur Expediente
    var NurDatei$=Espacio$(1024)
    GetFileTitle(Addr(Expediente$), Addr(NurDatei$), Len(NurDatei$))
    NurDatei$=Trim$(NurDatei$)
    ' Extension
    Claro ext#
    ext# = PathFindExtension(addr(Expediente$))
    var ext$ = cadena$(ext#,0)
    ' Nur Pfad
    var NurPfad$=left$(Expediente$,len(Expediente$)-len(NurDatei$))
    AddStrings(Filelistbox&,NurDatei$+"|"+NurPfad$+"|"+ext$)

ENDPROC

Proc DragDrop

    Claro PFilename#
    var ANZAHL&=~DragQueryFile(&UWParam,$FFFFFFFF,PFilename#,1024)
    var Zähler&=0
    Usecursor 2

    Mientras que Zähler&<Anzahl&

        Claro PFilename#
        ~DragQueryFile(&UWParam,Zähler&,PFilename#,1024)
        DateiSplit String$(PFilename#,0)
        Inc ZÄHLER&

    EndWhile

    Usecursor 0
    ~DragFinish(&UWParam)

ENDPROC

Windowstyle 24
Windowtitle "Drag and Drop"
Ventana ((%maxX/2)-260),((%maxY/2)-175)-520,350
Cls ~GetSysColor(15)
var listdef$="Datei;0;100;Pfad;0;310;Endung;0;60"
var Filelistbox&=Crear("GridBox",%hwnd,listdef$,0,5,5,500,300)
~DragAcceptFiles(%hwnd,1)

Sinestar encargado (%Umessage = ~wm_close) & (&uWnd = %hWnd)

    WaitInput

    If %UMESSAGE=563' DragDrop Ereignis

        DragDrop

    Endif

EndWhile

Disponer PFilename#
disponer ext#

~ImageList_DragMove(%mousex,%mousey)
~ImageList_BeginDrag(IcoList&,GI%,(%mousex-xOff&-MX%),(%mousey-yOff&-MY%))
~ImageList_DragEnter(%hwnd,%mousex,%mousey)
~ImageList_EndDrag()

USERMESSAGES 16
 $H Windows.ph
 $H Commctrl.ph
'################ Globale Variables
var Bild&=create("HPIC", 0, "TOOLBAR32")
var IcoList& = create("ImageList",32,32,Bild&,rgb(192,192,192))
var AnzIcon%=73
var Zeilengrenze%=5
Declarar EndeY%,IstNeuX%,px%,py%,Temp$,MX%,MY%,GI%

Proc UpdateWindow

    Case width(%hwnd,1)<800:SetWindowPos %hwnd=%WinLeft,%WinTop-800,height(%hwnd,1);0
    Case height(%hwnd,1)<600:SetWindowPos %hwnd=%WinLeft,%WinTop-width(%hwnd,1),600;0
    TB_AufBau

ENDPROC

'################################################################################################################# Toolbar aufbauen
'###################################################################################################

Proc TB_AufBau

    Declarar WL%
    ClearList GB&
    USEP 0,1,~GetSysColor(15)
    UseBrush 1,~GetSysColor(15)
    Rectángulo 0,0-%maxX,42
    USEP 0,1,~GetSysColor(22)
    Line 0,42-%maxX,42
    var AnzProZeile%=width(%hwnd)/39

    if AnzIcon%<AnzProZeile%

        WL%=AnzIcon%

    más

        WL%=AnzProZeile%

    endif

    var IcoX%=3
    var IcoIdx%=0

    WhileLoop WL%

        DrawIcon IcoList&,IcoIdx%,IcoX%,4
        AddStrings(GB&,Str$(IcoX%)+"|"+"4"+"|"+Str$(IcoIdx%))
        IcoX%=IcoX%+39
        Inc IcoIdx%

    EndWhile

ENDPROC

Proc DragDrop

    Mientras que %mousepressed'--Botón del ratón se mantenido

        UseExtCursor %hInstance, "DRUCKER"
        ~ImageList_DragMove(%mousex,%mousey)

    EndWhile

    Título de la ventana "iconIndex: "+Str$(GI%)+" - "+Str$(%mousex)+"|"+Str$(%mousey)

ENDPROC

Proc DrawRaster

    Parámetros Rasterweite%
    USEP 0,1,0
    UseBrush 1,0
    var rx%=Rasterweite%
    var ry%=Rasterweite%+60

    Sinestar encargado ry%>=%maxY

        Sinestar encargado rx%>=%maxX

            SetPixel rx%,ry%,0
            rx%=rx%+Rasterweite%

        EndWhile

        rx%=Rasterweite%
        ry%=ry%+Rasterweite%

    EndWhile

ENDPROC

'###################### HAUPTFENSTER
Ventana de Estilo 31
Título de la ventana "ToolBarTool V 1.01"
Ventana %maxX+5,5 - 800,600
Cls ~GetSysColor(16)
UseFont "Verdana",16,0,0,0,0
var font&=Crear("Font","Verdana",16,0,0,0,0)
SetDialogFont 1
var GB&=Crear("Grid",3,0)
var GBNeu&=Crear("Grid",3,0)
DrawRaster 10
UpdateWindow
SetWindowPos %hwnd=((%maxX/2)-400),((%maxY/2)-300)-800,600;0
var xOff&=~GetSystemMetrics(32)'-------Dicke des Fensterrandes
var yOff&=~GetSystemMetrics(4)+xOff&'--Höhe el Titelleiste + Fensterrand
' ################ HAUPTSCHLEIFE

Sinestar encargado %Umessage=16

    WaitInput

    If %Key=4

        UpdateWindow

    EndIf

    WhileLoop 0, GetCount(GB&)-1

        Temp$=GetString$(GB&,&bucle)
        MX%=val(Substr$(Temp$,1,"|"))
        MY%=val(Substr$(Temp$,2,"|"))

        if Ratón(MX%,MY%-MX%+32,MY%+32)

            GI%=val(Substr$(Temp$,3,"|"))
            ~ImageList_BeginDrag(IcoList&,GI%,(%mousex-xOff&-MX%),(%mousey-yOff&-MY%))
            ~ImageList_DragEnter(%hwnd,%mousex,%mousey)
            DragDrop
            ~ImageList_EndDrag()
            UseCursor 0

        endif

    EndWhile

EndWhile

deleteobject IcoList&

~ImageList_EndDrag()
UseCursor 0
DrawIcon IcoList&, GI%, %MouseX, %MouseY