Change mouse icon ?

[arfgh]

Hey friends, how can i change the mouse icon when on mouse over hyperlinks i added to the base forms ?

thx in advance

[UnklDonald418]

Probably use a Mouse inside event on a form control
Press <Alt>F11 and look in OpenOffice Macros>Tools>Module Controls for SwitchMousePointer
the available pointer shapes are:
https://www.openoffice.org/api/docs/com ... inter.html

[UnklDonald418]

Andrew Pitonyak has something in his "Useful Macro Information" document, section 5.21. Changing The Mouse Cursor
And a forum discussion [Solved] How to change mouse cursor?

[arfgh]

ok, the tools library...

As indicated, you must transmit the window peer of the control where you want to change the cursor.

Some more info about that needed parameter ? anyways i go to use it from events and, not sure that will work by that way...

Ok, i got it finally. Your help was perfect Thx so much.

Code: Select all

sub changeMousePointer(event as object)
	Dim Controller as object, DrawControl as object, control as object, Pointer as object
	Controller = ThisComponent.getCurrentController()
	DrawControl = event.source.model
	Control = Controller.getControl(DrawControl)
	Pointer = createUnoService("com.sun.star.awt.Pointer")
	Pointer.SetType(com.sun.star.awt.SystemPointer.REFHAND)
	Control.getPeer().setPointer(Pointer)

	'ThisComponent.getCurrentController().getFrame().getContainerWindow().setPointer(Pointer)	
End Sub

Anyways... do you know about the most updated document about 'Useful Macro Information' ?