Hi,
I am trying to have a contextual menu (right click) to work on a canvas which should be able to move inside another canvas. I have this code in MouseDown
Blockquote
If IsContextualClick and Mire.Visible Then
ElseIf not IsContextualClick Then
myX=X
myY=Y
End if
Return True
Blockquote
in MouseDrag
Blockquote
dim i,j as Integer
i=(X-myX)
j=(Y-myY)
me.Left=me.Left+i
me.Top=me.Top+j
Blockquote
in ConstructContextualMenu
Blockquote
base.AddMenu(New DesktopMenuItem (“50x50”))
base.AddMenu(New DesktopMenuItem (“100x100”))
base.AddMenu(New DesktopMenuItem (“160x120”))
base.AddMenu(New DesktopMenuItem (“200x200”))
base.AddMenu(New DesktopMenuItem (“300x220”))
base.AddMenu(New DesktopMenuItem(DesktopMenuItem.TextSeparator))
base.AddMenu(New DesktopMenuItem (“Other…”))
base.AddMenu(New DesktopMenuItem(DesktopMenuItem.TextSeparator))
base.AddMenu(New DesktopMenuItem (“Team”))
base.AddMenu(New DesktopMenuItem(DesktopMenuItem.TextSeparator))
base.AddMenu(New DesktopMenuItem (“4P”))
base.AddMenu(New DesktopMenuItem(DesktopMenuItem.TextSeparator))
base.AddMenu(New DesktopMenuItem (“Hide Mire”))
Return True
Blockquote
And in ContextualMenuSelected
Blockquote
var t(-1) as String
var w As integer=15.75/reso
var h As Integer=19/reso
var a As Integer=4/reso
Select Case selectedItem.Text
Case “50x50”
Mire.Width=50/reso
Mire.Height=50/reso
Case “100x100”
Mire.Width=100/reso
Mire.Height=100/reso
case “160x120”
Mire.Width=160/reso
Mire.Height=120/reso
case “200x200”
Mire.Width=200/reso
Mire.Height=200/reso
case “300x220”
Mire.Width=300/reso
Mire.Height=220/reso
case “Team”
case “Other…”
MireSizeWin.ShowModal
case “4P”
Mire.Width=72/reso
Mire.Height=66/reso
case “Hide Mire”
me.Visible=False
End Select
Return True
Blockquote
I can move the canvas with a left click and drag but nothing happened with a the right click
Thanks
Chris
14 posts - 5 participants