Petit code de vérification
Code : Tout sélectionner
;Plan de l'application
Declare Start()
Declare CopyClipboardImage()
Declare Exit()
Start()
Procedure Start()
Protected font = LoadFont(#PB_Any, "", 30)
OpenWindow(0, 0, 0, 800, 600, "Test", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
CanvasGadget(0, 0, 0, 800, 600)
StartDrawing(CanvasOutput(0))
Box(0, 0, 800, 600, RGB(128, 128, 128))
DrawingMode(#PB_2DDrawing_Transparent)
DrawingFont(FontID(font))
DrawText(100, 100, "Test copy image")
StopDrawing()
;Triggers
BindGadgetEvent(0, @CopyClipboardImage(), #PB_EventType_RightClick)
BindEvent(#PB_Event_CloseWindow, @Exit())
Repeat : WaitWindowEvent() : ForEver
EndProcedure
Procedure CopyClipboardImage()
Protected imageId = GetGadgetAttribute(0, #PB_Canvas_Image)
Protected image = CreateImage(#PB_Any, GadgetWidth(0), GadgetHeight(0))
StartDrawing(ImageOutput(image))
DrawImage(imageId, 0, 0)
StopDrawing()
SetClipboardImage(image)
Debug "copie effectuée "
EndProcedure
Procedure Exit()
End
EndProcedure