Popup panel to be used as the drag image
Member of Draglist (PRIM_DGLT)
Data Type - PRIM_PPNL - Popup panel
The DragPopup property is a reference to a Popup panel to be show with the cursor. For the DragPopup to be used, the DragListStyle must be set to Popup.
In this example, the StartDrag event is defined to use a DragPopup defined in a reusable part called MyDragPopup. As the popup is user defined, it can easily be configured to show relevant information about the drag. Here, the number of selected items being dragged is passed in to the Popup.
Evtroutine Handling(#Com_owner.StartDrag) Draglist(#DragList) #DragList.DragListStyle := Popup #DragList.DragPopup <= #MyDragPopup #MyDragPopup.Caption := #SelectedItemCount Endroutine
LANSA Version 15, April 2020