Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Looking for command button/drop down menu class
Message
From
21/02/2008 09:03:39
 
 
To
21/02/2008 06:02:07
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Miscellaneous
Thread ID:
01294303
Message ID:
01294707
Views:
26
Thanks, Thomas. I'll check it out.


>Hi Fred,
>i just build a little visual class which might give you an idea on how to create just what you need. However, I don't know how to post the pictures in this forum, so if you're interested in them, just send me an email.
>
>To use this class in your form, all you have to do is binding the click events of the three navigation-images to your own methods for previous, next and history.
>
>
>*-- Take care to replace the picture selections with correct pathnames
>DEFINE CLASS cntnav AS container
>
>	Width = 78
>	Height = 28
>	Picture = "nav_background.bmp"
>	BorderWidth = 0
>	Name = "cntnav"
>
>	ADD OBJECT imghistory AS image WITH ;
>		Picture = "nav_history_inactive.bmp", ;
>		BackStyle = 0, ;
>		Height = 21, ;
>		Left = 52, ;
>		MousePointer = 15, ;
>		Top = 4, ;
>		Width = 23, ;
>		Name = "imgHistory"
>
>	ADD OBJECT imgnext AS image WITH ;
>		Picture = "nav_next_inactive.bmp", ;
>		BackStyle = 0, ;
>		Height = 26, ;
>		Left = 30, ;
>		MousePointer = 15, ;
>		Top = 1, ;
>		Width = 26, ;
>		Name = "imgNext"
>
>	ADD OBJECT imgprev AS image WITH ;
>		Picture = "nav_prev_inactive.bmp", ;
>		BackStyle = 0, ;
>		Height = 26, ;
>		Left = 1, ;
>		MousePointer = 15, ;
>		Top = 1, ;
>		Width = 26, ;
>		Name = "imgPrev"
>
>	PROCEDURE imghistory.MouseLeave
>		LPARAMETERS nButton, nShift, nXCoord, nYCoord
>		This.Picture = [nav_history_inactive.bmp]
>	ENDPROC
>
>	PROCEDURE imghistory.MouseEnter
>		LPARAMETERS nButton, nShift, nXCoord, nYCoord
>		This.Picture = [nav_history_active.bmp]
>	ENDPROC
>
>	PROCEDURE imgnext.MouseLeave
>		LPARAMETERS nButton, nShift, nXCoord, nYCoord
>		This.Picture = [nav_next_inactive.bmp]
>	ENDPROC
>
>	PROCEDURE imgnext.MouseEnter
>		LPARAMETERS nButton, nShift, nXCoord, nYCoord
>		This.Picture = [nav_next_active.bmp]
>	ENDPROC
>
>	PROCEDURE imgprev.MouseLeave
>		LPARAMETERS nButton, nShift, nXCoord, nYCoord
>		This.Picture = [nav_prev_inactive.bmp]
>	ENDPROC
>
>	PROCEDURE imgprev.MouseEnter
>		LPARAMETERS nButton, nShift, nXCoord, nYCoord
>		This.Picture = [nav_prev_active.bmp]
>	ENDPROC
>
>ENDDEFINE
>
Fred
Microsoft Visual FoxPro MVP

foxcentral.net
Previous
Reply
Map
View

Click here to load this message in the networking platform