[*]Profan

 $H windows.ph
 $H messages.ph
Def DragAcceptFiles(2) !"SHELL32","DragAcceptFiles"
Def DragFinish(1) !"SHELL32","DragFinish"
Def DragQueryFile(4) !"SHELL32","DragQueryFileA"
Déclarer Anzahl&,Zähler&,PFilename#
Windowstyle 31
Windowtitle "Listbox avec File Drag and Drop"' pas trop verwechseln avec Plug&Pray
Fenêtre 0,0-640,440
var Filelistbox&=Créer(ListBox,%hwnd,»,20,20,500,300)
DragAcceptFiles(FileListbox&,1)
Usermessages ~wm_close,563' 563 <---- Drag&Drop

WhileNot (%Umessage = ~wm_close) & (&uWnd = %hWnd)

    WaitInput

    IF %UMESSAGE=563' DragDrop Ereignis

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

        Tandis que Zähler&<Anzahl&

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

        Endwhile

        Usecursor 0
        Dispose 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"
Déclarer PFilename#,ext#
DIM PFilename#,1024
Faible ext#,20

Proc DateiSplit

    Paramètres Dossier$
    ' seulement Dossier
    var NurDatei$=Space$(1024)
    GetFileTitle(Addr(Dossier$), Addr(NurDatei$), Len(NurDatei$))
    NurDatei$=Trim$(NurDatei$)
    ' Extension
    Claire ext#
    ext# = PathFindExtension(addr(Dossier$))
    var ext$ = string$(ext#,0)
    ' seulement Pfad
    var NurPfad$=left$(Dossier$,len(Dossier$)-len(NurDatei$))
    AddStrings(Filelistbox&,NurDatei$+"|"+NurPfad$+"|"+ext$)

ENDPROC

Proc DragDrop

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

    Tandis que Zähler&<Anzahl&

        Claire 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"
Fenêtre ((%maxx/2)-260),((%maxY/2)-175)-520,350
Cls ~GetSysColor(15)
var listdef$="Datei;0;100;Pfad;0;310;Endung;0;60"
var Filelistbox&=Créer("GridBox",%hwnd,listdef$,0,5,5,500,300)
~DragAcceptFiles(%hwnd,1)

WhileNot (%Umessage = ~wm_close) & (&uWnd = %hWnd)

    WaitInput

    Si %UMESSAGE=563' DragDrop Ereignis

        DragDrop

    Endif

Endwhile

Dispose PFilename#
dispose 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 Variablen
var Bild&=create(«PCSI», 0, "TOOLBAR32")
var IcoList& = create("ImageList",32,32,Bild&,rgb(192,192,192))
var AnzIcon%=73
var Zeilengrenze%=5
Déclarer EndeY%,IstNeuX%,px%,py%,Temp$,MX%,MY%,GI%

Proc UpdateWindow

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

ENDPROC

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

Proc TB_AufBau

    Déclarer WL%
    ClearList GB&
    USEP 0,1,~GetSysColor(15)
    UseBrush 1,~GetSysColor(15)
    Rectangle 0,0-%maxx,42
    USEP 0,1,~GetSysColor(22)
    Line 0,42-%maxx,42
    var AnzProZeile%=width(%hwnd)/39

    si AnzIcon%<AnzProZeile%

        WL%=AnzIcon%

    d'autre

        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

    Tandis que %mousepressed'--Bouton de la souris wird gehalten

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

    Endwhile

    Titre de la fenêtre "iconIndex: "+Str$(GI%)+" - "+Str$(%mousex)+"|"+Str$(%mousey)

ENDPROC

Proc DrawRaster

    Paramètres Rasterweite%
    USEP 0,1,0
    UseBrush 1,0
    var rx%=Rasterweite%
    var ry%=Rasterweite%+60

    WhileNot ry%>=%maxY

        WhileNot rx%>=%maxx

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

        Endwhile

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

    Endwhile

ENDPROC

'###################### HAUPTFENSTER
Fenêtre Style 31
Titre de la fenêtre "ToolBarTool V 1.01"
Fenêtre %maxx+5,5 - 800,600
Cls ~GetSysColor(16)
UseFont "Verdana",16,0,0,0,0
var font&=Créer("Font","Verdana",16,0,0,0,0)
SetDialogFont 1
var GB&=Créer("Grid",3,0)
var GBNeu&=Créer("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&'--Hauteur qui Titelleiste + Fensterrand
' ################ HAUPTSCHLEIFE

WhileNot %Umessage=16

    WaitInput

    Si %Key=4

        UpdateWindow

    EndIf

    WhileLoop 0, GetCount(GB&)-1

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

        si Souris(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