All Controls except OLE controls.
A boolean property to allow data to be dragged from that control.
enableDrag = Get_Property(objectname,"ENABLEDRAG")
enableDrag = Set_Property(objectname,"ENABLEDRAG", bValue)
Values passed in Set_Property():
| Value | Description |
|---|---|
| bValue | Boolean true (1) or false (0) |
Values returned by Get_Property and Set_Property
| Value | Description |
|---|---|
| state | the Boolean status of the control’s drag ability. |
| existingState | the Boolean status of the control’s drag ability, when Set_Property was run. |
To enable drag and drop within edittable columns the ColStyle Message needs to be used. See ColStyle message
Declare function Get_Property, Set_Property /* retrieve the ENABLEDRAG property of the EDITLINE_1 control and if true set to false and vice versa. enableDrag = Get_Property(@window:'.EDITLINE_1','ENABLEDRAG') if enableDrag then newDrag = 0 else newDrag = 1 enableDrag = Set_Property(@window:'.EDITLINE_1','ENABLEDRAG',newDrag)