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>
|