möchte Bild und Text in eine externe Anwendung per Drag übergeben.
Nun habe die Sache wie in Help beschrieben aufgebaut.
Beim Ziehen zeigt Cursor die Kopie an, aber beim Ziehen in andere Anwendung wandelt er sich ins Verbot Zeichen um!
Und somit kommt nichts an!
Code: Alles auswählen
; Verschieben Sie das Bild zu einer Applikation, welche Bilder akzeptiert (wie Office- oder Grafikprogramme).
Global Work_I_Bild
;
If LoadImage(1, #PB_Compiler_Home + "examples/sources/data/PureBasicLogo.bmp")
If OpenWindow(1, 200, 200, 400, 90, "DragImage in andere Anwendung", #PB_Window_SystemMenu)
Work_I_Bild = ImageGadget(#PB_Any, 10, 10, 380, 70, ImageID(1))
EnableGadgetDrop(Work_I_Bild, #PB_Drop_Image, #PB_Drag_Copy )
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_Gadget And EventGadget() = Work_I_Bild And EventType() = #PB_EventType_DragStart
Debug "DragStart"
;
DragImage(ImageID(1),#PB_Drag_Copy)
EndIf
Until Event = #PB_Event_CloseWindow
EndIf
EndIf
Gruss ... Velindos