Information générale
Catégorie:
Gestionnaire d'écran & Écrans
>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é
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement