Animate a move from the specified number of pixels
Member of Control (PRIM_CTRL)
Name | Type | Data Type | Description |
---|---|---|---|
Left | *Input | Integer | Number of pixels to move to horizontally |
Top | *Input | Integer | Number of pixels to move to vertically |
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 to the bottom right corner. A second animation then moves it back to the origin.
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(25) Parent(#COM_OWNER) Tabposition(1) Tabstop(False) Top(25) Verticalalignment(Center) Width(114) Style(#Style) Alignment(Center) Evtroutine Handling(#Label.Click) If (*Not #Label.isAnimating) #Label.MoveTo( (#Com_owner.Width - #Label.Width - 20) (#Com_owner.Height - #Label.height - 20) 2000 ) #Label.MoveTo( 25 25 1000 2500 ) Endif Endroutine End_Com
LANSA Version 15, April 2020