Terry
If I understand correctly, your code below allows us to use the
property window helpTags as usual, and turn them on or off by calling
your ToggleHelpTags. That is exactly what I was originally looking for.
I have since removed all helpTags from the IDE and implemented the
mouseOver / boolean technique. I also created constants for all the
helpTags. Hmmm, I think it may be worth while to put the IDE tags back
and use your code. I think constants can be created by putting a # in
front of the IDE helpTags.
Thanks for this neat solution.
Barrie
On Oct 25, 2004, at 3:17 PM, Terry Ford wrote:
On 24-Oct-04, at 10:30 AM, Barrie Jones wrote:
The mouse over works fine. Your suggestion that a method may be best
is worth consideration since all the help tags could be put in one
place. Thanks for your suggestions.
Barrie,
Sorry it took a while but I think I have found a solution to your
problem that you might find much simpler than what you are currently
doing. It only works in OSX (PEF) in my example and uses two Declares
that Charles Yeomans posted to this list on Feb. 9,2004:
<http://support.realsoftware.com/listarchives/gettingstarted/2004-02/
msg00145.html>
Win32 has help tags and maybe someone can help you there for declares.
(MachO only requires a slight change to the pragmas).
After putting the HelpTag code in the IDE properties for the controls
(or in your code), the following code will toggle them on or off
without losing them. I put them in a method for easy accessibility.
Sub ToggleHelpTags()
Dim osErr As Integer,HelpTagStatus As Boolean
#if targetCarbon
Declare Function HMSetHelpTagsDisplayed Lib "CarbonLib"
(inDisplayTags as Boolean) as Integer
Declare Function HMAreHelpTagsDisplayed Lib "CarbonLib" () as
Boolean
#endif
#if targetCarbon
HelpTagStatus=HMAreHelpTagsDisplayed()
If HelpTagStatus Then
osErr= HMSetHelpTagsDisplayed(False)
StaticText1.Text="Help Tags Disabled"
Else
osErr= HMSetHelpTagsDisplayed(True)
StaticText1.Text="Help Tags Enabled"
End If
#endif
If osErr <>0 Then
MsgBox "HelpTag error"
End If
End Sub
Since I can't enclose my test example, I will post it to you off list.
If others wish to see it, email me and I will send it.
HTH,
Terry Ford
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://www.realsoftware.com/listarchives/lists.html>
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://www.realsoftware.com/listarchives/lists.html>
|