1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
| ;-----------------------------------------------------
;--------- Pseudo animation buttonGadget ------------
;-----------------------------------------------------
Global btn_anim=10
Procedure keyfram1()
! var GadgetElement = spider_GadgetID(v_btn_anim).div;
! var v_xx= parseInt(GadgetElement.style.left);
! GadgetElement.style.left = (v_xx+1) +'px'
If xx<150
! setTimeout(function(){ f_keyfram1() ;},20)
Else
! setTimeout(function(){ f_keyfram2() ;},20)
EndIf
EndProcedure
Procedure keyfram2()
! var GadgetElement = spider_GadgetID(v_btn_anim).div;
! var v_xx= parseInt(GadgetElement.style.left);
! GadgetElement.style.left = (v_xx-1) +'px'
If xx>1
! setTimeout(function(){ f_keyfram2() ;},20)
Else
! setTimeout(function(){ f_keyfram1() ;},20)
EndIf
EndProcedure
If OpenWindow(#PB_Any, 10, 10, 300, 300, "Image", #PB_Window_SizeGadget)
ButtonGadget(btn_anim, 1, 10, 70, 25, "Click me")
BindGadgetEvent(btn_anim, @keyfram1())
EndIf |
Partager