Versions Compared

Old Version 2

changes.mady.by.user Corby Nagel

Saved on

compared with

New Version Current

changes.mady.by.user Corby Nagel

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

ValueDescription
0Left Mouse button
1Right Mouse button
2Middle Mouse button

See Also

DRAGSOURCE property

Example

Code Block
Declare function Get_Property
 
* retrieve the DRAGBUTTON property and display data in a message
dragSource = Get_Property("SYSTEM","DRAGSOURCE")
dragButton = Get_Property(dragSource,"DRAGBUTTON")
begin case
   case dragButton = 0
      msgText = "Left mouse button"
   case dragButton = 1
      msgText = "Right mouse button"
   case dragButton = 2
      msgText = "Middle mouse button"
end case
 
msg(@window,"The " :msgText: " was used to start the drag operation")