On Mar 17, 2006, at 12:19 PM, Alexander Bauza wrote:
Hi there,
How do I set a Tag to every item of a ContextualMenu???
What I want is to show the tag after select the item.
Note: the 'items' are not unique
MyCM.AddRow "ItemA"
MyCM.AddRow "ItemB"
MyCM.AddRow "ItemC"
MyCM.AddRow "ItemA"
ContextualMenus do not support the Tag (as Variant) feature. Instead
what you can do with REALbasic 2005+ is use a standard MenuItem and
use the Popup method to display it like a ContextualMenu -- basically
with this new feature you never need to use ContextualMenus again.
Example:
Dim base As New MenuItem
Dim m As MenuItem
Dim hitItem As MenuItem
m = New MenuItem
m.Text = "ItemA"
m.Tag = "someVariantInfo"
m.Checked = True // you can now add checkmarks!!!
base.Append(m)
m = New MenuItem
m.Text = "ItemB"
m.Tag = "someVariantInfo"
base.Append(m)
m = New MenuItem
m.Text = "ItemC"
m.Tag = "someVariantInfo"
base.Append(m)
m = New MenuItem
m.Text = "ItemD"
m.Tag = "someVariantInfo"
base.Append(m)
hitItem = base.Popup()
If Not (hitItem Is Nil) Then
Select Case hitItem.Text
Case "ItemA"
// do something with ItemA
Case "ItemB"
// do something with ItemB
Case "ItemC"
// do something with ItemC
Case "ItemD"
// do something with ItemD
End Select
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
