PureBoard

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

Code: Alles auswählen

; Verschieben Sie das Bild zu einer Applikation, welche Bilder akzeptiert (wie Office- oder Grafikprogramme).
UsePNGImageDecoder()
UsePNGImageEncoder()

Enumeration
  #Img_Drag
  #Img_Catch
EndEnumeration

Global Work_I_Bild
; Temp Pfad
Global DragFile_Pfad$ = GetTemporaryDirectory()+"Velindos_Clipboard_Image.bmp"
;
If LoadImage(#Img_Drag, #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(#Img_Drag))
    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"
        ; Img temp save
        SaveImage(#Img_Drag, DragFile_Pfad$, #PB_ImagePlugin_BMP)
        ; drag
        DragFiles(DragFile_Pfad$,#PB_Drag_Copy)
        
      EndIf     
    Until Event = #PB_Event_CloseWindow
  EndIf
EndIf