Creating Custom Mouse Pointers

SuperStrict

Framework BRL.MaxGUI
Import BRL.Win32MaxGUI
Import BRL.EventQueue


Import "win32glue.cpp"

Extern
	Function SetCustomPointer(name:Byte Ptr)
End Extern

Local window:TGadget = CreateWindow("My Window",40,40,320,240)

' a bitmap, cursor or icon file....
SetCustomPointer("example.ico")

While True
	WaitEvent 
	Select EventID()
		Case EVENT_WINDOWCLOSE
			End
	End Select
Wend

#include "win32gui/win32hwnd.h"

extern "C" {

void SetCustomPointer(char * file);

}

void SetCustomPointer(char * file) {

	bbSetCursor((HCURSOR)LoadImage( 0, (LPCTSTR) file, IMAGE_CURSOR, 0, 0, LR_LOADFROMFILE | LR_SHARED));
	
}

SuperStrict


Framework BRL.MaxGUI
Import BRL.CocoaMaxGUI
Import BRL.EventQueue
Import BRL.Pixmap
Import BRL.PNGLoader

Import "cocoaglue.m"

Extern
	Function NSPixmapImage:Int(image:TPixmap)
	Function NSNewCursor:Int(image:Int)
	Function NSSetCursor(cursor:Int)
End Extern


Local window:TGadget = CreateWindow("My Window",40,40,320,240)
Local button:TGadget = CreateButton("Click Me!", 20, 20, 100, 28, window)

While True
	WaitEvent 
	Select EventID()
		Case EVENT_WINDOWCLOSE
			End
		Case EVENT_GADGETACTION
			SetCustomPointer("example.png")
	End Select
Wend

Function SetCustomPointer(file:String)
	Global pix:TPixmap
	Global img:Int
	Global cursor:Int
	
	pix = LoadPixmap(file)
	img = NSPixmapImage(pix)
	cursor = NSNewCursor(img)
	
	NSSetCursor(cursor)
	
End Function

#include <AppKit/AppKit.h>

NSCursor * NSNewCursor(NSImage * image) {
	NSCursor * cursor;
	cursor = [[NSCursor alloc] initWithImage:image hotSpot:NSMakePoint(0,0)];
	[cursor retain];
	return cursor;
}

void NSSetCursor(NSCursor * cursor) {

	[cursor set];

}

#include "C:/Program Files/BlitzMax/mod/brl.mod/win32maxgui.mod/win32gui/win32hwnd.h"