Hi All,
I'm having a stupid moment. I am trying to implement a slight delay on an event in a ribbon bar button. When the mouse enters the button, there is a "Help Text" window that appears (you can see this in something like Word if you hover on any button, it pops up a little bit of information about the item, and how it is used). The problem I have is, in Office there is a slight delay between entering the object, and then the appearance of the menu, so that if you go quickly across the ribbon, it doesn't pop all the objects that you pass, only the one you "land" on. This is done by using a slight 1/2 second or so delay.
So in my button container that gets the focus, in the GOTFOCUS() I have this:
There is a timer control in the container for the button.
But there isn't a pause as I want before the RIBBONHELP is displayed.
How can I get the timer to pause before the RIBBONHELP fires, and if you move on, it doesn't fire.
Best Regards,
Scott
MSc ISM, MIET, MASHRAE, CDCP, CDCS, CDCE, CTDC, CTIA, ATS
"Everything should be made as simple as possible, and no simpler."
I'm having a stupid moment. I am trying to implement a slight delay on an event in a ribbon bar button. When the mouse enters the button, there is a "Help Text" window that appears (you can see this in something like Word if you hover on any button, it pops up a little bit of information about the item, and how it is used). The problem I have is, in Office there is a slight delay between entering the object, and then the appearance of the menu, so that if you go quickly across the ribbon, it doesn't pop all the objects that you pass, only the one you "land" on. This is done by using a slight 1/2 second or so delay.
So in my button container that gets the focus, in the GOTFOCUS() I have this:
Code:
This.Timer1.Interval = 10000
This.Timer1.Timer
*
IF This.Parent.Parent.Parent.Name = "Mainribbon1"
DO FORM RIBBONHELP WITH OBJTOCLIENT(This.Parent,1)+OBJTOCLIENT(This.Parent,4)+2, OBJTOCLIENT(This,2), This.Buttonlabel1.Caption, This.buttonimagebase1.Picture, (This.Name)
ELSE
DO FORM RIBBONHELP WITH OBJTOCLIENT(This.Parent,1)+ThisForm.Top+OBJTOCLIENT(This.Parent,4)+2, OBJTOCLIENT(This,2), This.Buttonlabel1.Caption, This.buttonimagebase1.Picture, (This.Name)
ENDIF
ENDIF
There is a timer control in the container for the button.
But there isn't a pause as I want before the RIBBONHELP is displayed.
How can I get the timer to pause before the RIBBONHELP fires, and if you move on, it doesn't fire.
Best Regards,
Scott
MSc ISM, MIET, MASHRAE, CDCP, CDCS, CDCE, CTDC, CTIA, ATS
"Everything should be made as simple as possible, and no simpler."