Code: Select all
; http://www.purebasic.fr/english/viewtopic.php?f=12&t=65293
ProcedureDLL CustomCursor3(ImageID, X=0, Y=0) ;- Return the custom cursor from the image handle
If ImageID
CompilerSelect #PB_Compiler_OS
CompilerCase #PB_OS_Windows
Protected *Cursor, Cursor.ICONINFO
Cursor\fIcon = 0
Cursor\xHotspot =- X
Cursor\yHotspot =- Y
Cursor\hbmMask = ImageID
Cursor\hbmColor = ImageID
*Cursor = CreateIconIndirect_(Cursor)
If Not *Cursor : *Cursor = ImageID : EndIf
CompilerCase #PB_OS_Linux
Protected *Cursor.GdkCursor = gdk_cursor_new_from_pixbuf_(gdk_display_get_default_(), ImageID, X, Y)
CompilerCase #PB_OS_MacOS
Protected *Cursor, Hotspot.NSPoint
Hotspot\x = X
Hotspot\y = Y
*Cursor = CocoaMessage(0, 0, "NSCursor alloc")
CocoaMessage(0, *Cursor, "initWithImage:", ImageID, "hotSpot:@", @Hotspot)
CompilerEndSelect
EndIf
ProcedureReturn *Cursor
EndProcedure
ProcedureDLL CustomCursor2(ImageID, X)
ProcedureReturn CustomCursor3(ImageID, X)
EndProcedure
ProcedureDLL CustomCursor(ImageID)
ProcedureReturn CustomCursor3(ImageID)
EndProcedure
CompilerIf #PB_Compiler_IsMainFile
UsePNGImageDecoder()
LoadImage(0, #PB_Compiler_Home + "examples/sources/Data/world.png")
;LoadImage(0, #PB_Compiler_Home + "examples/sources/Data/CdPlayer.ico")
If OpenWindow(0, 0, 0, 270, 180, "demo set canvas custom image cursor", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CanvasGadget(0, 10, 10, 250, 51)
SetGadgetAttribute(0, #PB_Canvas_CustomCursor, CustomCursor(ImageID(0)))
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
CompilerEndIf
