General information
Category:
Forms & Form designer
>Well commonly vfp3.0 provide 12 or 14 mousepoints on each object in property window.
>but I want to use custom mousepointer.
>I know that I can control custom mousepointer at VisualBasic. But can't at Vfp 3.0
>
>Please tell me how I can contain custom mousepointer in my applications.
Try this in the init of the form
declare integer SetSystemCursor in win32api integer hcur, integer hnum
declare integer LoadCursorFromFile in win32api string lpszFilename
this.icon_pointer = "C:\formation\h_point.cur"
xx = LoadCursorFromFile(this.icon_pointer)
if xx <> 0
=SetSystemCursor(XX, 32641) && replace system icon # 4
endif
You must have an icon file (?.cur) for the cursor you want and set a propertie in your form which contain the name and path of the file for the new pointer. Finally set the mousepointer to 4 for the control you want
the icon will be display with the new design.
Michel Poiré
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only