Move a control from the specified position to the current position
Member of Control (PRIM_CTRL)
Name | Type | Data Type | Description |
---|---|---|---|
Left | *Input | Integer | Horizontal position to move from |
Top | *Input | Integer | Vertical position to move from |
Duration | *Input (Optional) | Integer | Number of milliseconds to take to complete the animation |
Delay | *Input (Optional) | Integer | Number of milliseconds to wait before starting the animation |
The MoveFrom animation will move the control from the specified position back to its current location. The Duration and Delay parameters are used change the speed of the animation and when it starts.
In this example, clicking the label will start the animation, moving the label from the bottom right corner back to its start point.
Begin_Com Role(*EXTENDS #PRIM_WEB) Height(456) Width(864) Define_Com Class(#PRIM_VS.Style) Name(#Style) Backgroundbrush(#Brush) Define_Com Class(#PRIM_VS.SolidBrush) Name(#Brush) Color(124:202:255) Define_Com Class(#PRIM_LABL) Name(#Label) Caption('Click here') Displayposition(1) Ellipses(Word) Height(99) Left(23) Parent(#COM_OWNER) Tabposition(1) Tabstop(False) Top(14) Verticalalignment(Center) Width(114) Style(#Style) Alignment(Center) Evtroutine Handling(#Label.Click) If (*Not #Label.isAnimating) #Label.MoveFrom( (#Com_owner.Width - #Label.Width - 20) (#Com_owner.Height - #Label.height - 20) 2000 ) Endif Endroutine End_Com
LANSA Version 15, April 2020