Page History
...
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