{Solved} Allow a user to move a control and right click

Post

Posted
Rating:
#1 (In Topic #1153)
sadams54
Avatar
Enthusiast
sadams54 is in the usergroup ‘Enthusiast’
 I have 2 questions…

1.. is it possible to allow a user to drag a control around my program screen and allow the control to be moved there?

2.. If I put a right click or context menu on a group of controls how can I tell which control spawned the right click menu?
Online now: No Back to the top

Post

Posted
Rating:
#2
vuott
Regular
vuott is in the usergroup ‘Regular’

sadams54 said

1.. is it possible to allow a user to drag a control around my program screen and allow the control to be moved there?
If by "screen" you mean the Container, where the Control is located, you can simply use the "Drag&Drop":

Code (gambas)

  1. Public Sub Form_Open()
  2.  
  3.   Label1.Background = Color.Red
  4.  
  5.   Me.Drop = True
  6.    
  8.  
  9. Public Sub Label1_MouseDrag()
  10.  
  11.   Label1.Drag("")
  12.  
  14.  
  15. Public Sub Form_DragMove()
  16.  
  17. ' When moving the "Label", the mouse pointer remains at the point in the "Label" where you clicked:
  18.   With Label1
  19.     .X = Drag.X - Mouse.StartX
  20.     .Y = Drag.Y - Mouse.StartY
  22.    
Actually, you could drag a Control without the Drag&Drop…
Europaeus sum !

<COLOR color="#FF8000">Amare memorentes atque deflentes ad mortem silenter labimur.</COLOR>
Online now: No Back to the top

Post

Posted
Rating:
#3
BruceSteers
Guru
BruceSteers is in the usergroup ‘Guru’
Application.ActiveControl should do the job for detecting what control was last right-clicked to get a menu…

Code (gambas)

  1. Public Sub ContextMenu_Click()
  2.  
  3.   Select Application.ActiveControl.Name
  4.   Case "Button1"
  5.    Print "Button 1 clicked context menu"
  7.  
  9.  


To move controls…  (alternative)

Code (gambas)

  1. Public Sub MoveableControl_MouseMove()
  2.  
  4.   ' Last.X is controls current X pos , (Mouse.X - Mouse.StartX) gives the distance to move it keeping pointer at the controls click position.
  5.   Last.Move(Last.X + (Mouse.X - Mouse.StartX), Last.Y + (Mouse.Y - Mouse.StartY))
  6.  
  8.  
Note: you can only move controls if the parent container has Container.Arrangement = Arrange.None ,
If the container has Arrangement set it will try to place the controls itself and not let you do it.
Online now: No Back to the top

Post

Posted
Rating:
#4
cogier
Avatar
Guru
cogier is in the usergroup ‘Guru’
1.. is it possible to allow a user to drag a control around my program screen and allow the control to be moved there?

Here is some example code you can run in a Graphical Program that will show you how to do this.

2.. If I put a right click or context menu on a group of controls how can I tell which control spawned the right click menu?

I have added a menu so you can test this. The Last command will tell you what the control was. Look at the program Title as you click on each control.

Code (gambas)

  1. hPictureBox As PictureBox
  2. hMenu As Menu
  3.  
  4. Public Sub Form_Open()
  5.  
  6.   SetUpMenu
  7.   With Me
  8.     .W = 800
  9.     .H = 500
  10.     .Arrangement = Arrange.None
  11.     .Background = Color.Red
  13.  
  14.   For iLoop As Integer = 0 To 2
  15.     With hPictureBox = New PictureBox(Me) As "PictureBoxes"
  16.       .h = 128
  17.       .w = 128
  18.       .x = 20 + (iLoop * 150)
  19.       .y = 20 + (iLoop * 150)
  20.       .Name = "PictureBox" & Str(iLoop + 1)
  21.       .Picture = Picture["icon:/128/access"]
  22.       .mode = PictureBox.Contain
  23.       .PopupMenu = "hMenu"
  24.     End With
  25.   Next
  26.  
  28.  
  29. Public Sub SetUpMenu()
  30.  
  31.   Dim hMenuItem As Menu
  32.   Dim sTemp As String
  33.   Dim sMenuName As String[] = ["One", "Two"]
  34.  
  35.   hMenu = New Menu(Me) As "hMenu"
  36.   hMenu.Hide
  37.  
  38.   For Each sTemp In sMenuName
  39.     hMenuItem = New Menu(hMenu) As "MyMenu"
  40.     hMenuItem.text = sTemp
  41.   Next
  42.  
  44.  
  45. Public Sub PictureBoxes_MouseMove()
  46.  
  48.   Last.X += Mouse.ScreenX - Last.ScreenX - (Last.W / 2)
  49.   Last.Y += Mouse.ScreenY - Last.ScreenY - (Last.H / 2)
  50.  
  52.  
  53. Public Sub PictureBoxes_MouseDown()
  54.  
  55.   Me.Title = Last.Name
  56.  
  58.  
Online now: No Back to the top

Post

Posted
Rating:
#5
sadams54
Avatar
Enthusiast
sadams54 is in the usergroup ‘Enthusiast’
thank you. I do not need the context menu since the drag option worked so perfectly. But everything was perfect and as always you guys are awesome.
Online now: No Back to the top

Post

Posted
Rating:
#6
vuott
Regular
vuott is in the usergroup ‘Regular’

vuott said

Actually, you could drag a Control without the Drag&Drop…
…infact cogier showed another way to move the Controls.
Europaeus sum !

<COLOR color="#FF8000">Amare memorentes atque deflentes ad mortem silenter labimur.</COLOR>
Online now: No Back to the top

Post

Posted
Rating:
#7
sadams54
Avatar
Enthusiast
sadams54 is in the usergroup ‘Enthusiast’
yep, I used that alternate as it worked exactly as I wanted.
Online now: No Back to the top
1 guest and 0 members have just viewed this.