Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Toolbar like IE or Office 97 in VFp 3.0
Message
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00091166
Message ID:
00092744
Views:
29
>
>Those buttons use timers which are constantly running.
>If i have 15 buttons, then i need 15 timers running all the time?
>Are the timers running during select queries also? I think it
>slows down performance significantly?


You can download my Outlook class (file section of UT or click the New icon), the 'hover' behaviour is handle by only 1 timer and this timer is self-disabled when the mouse go off the buttons.

The zip file does not provide a toolbar sample, so i write it here.

The class was designed on VFP 5, but if you do a 'compile form' on the VCX it could run on VFP 3 to.
**** Creation of a outlook like toolbar 

SET CLASSLIB TO Outlook.vcx ADDITIVE
PUBLIC MyToolBar
MyToolBar=CREATEOBJECT('toollook')
MyToolBar.Show()

**************************************************
*-- Class:        toollook
*-- ParentClass:  toolbar
*-- BaseClass:    toolbar
*
DEFINE CLASS toollook AS toolbar


	Caption = "Out-Look!"
	Height = 222
	Left = 0
	Top = 0
	Width = 83
	Name = "toollook"


	ADD OBJECT outlook1 AS outlook WITH ;
		Top = 5, ;
		Left = 5, ;
		Height = 213, ;
		captions = "Click the button!;And this one...;This one to!", ;
		commands = ('wait wind "Hi, how are you?" nowait;wait wind "Not so bad..." nowait;wait wind "And you?" nowait'), ;
		pictures = "trash.bmp;folder.bmp;folder.bmp", ;
		buttoncount = 3, ;
		Name = "Outlook1", ;
		Label1.Name = "Label1"


ENDDEFINE
*
*-- EndDefine: toollook
**************************************************
HTH :0)
If we exchange an apple, we both get an apple.
But if we exchange an idea, we both get 2 ideas, cool...


Gérald Santerre
Independant programmer - internet or intranet stuff - always looking for contracts big or small :)
http://www.siteintranet.qc.ca
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform