LiveCode Forums.

Code: Select all

#-- Shows a circular progress connected to
#-- a player object. [-hh fecit, Oct 2019]

local isStopped=true, pp

on showProgress d
   put the currentTime of me into cT
   displayProgress (360*cT/d)
   if isStopped then exit showProgress
   send "showProgress d" to me in 3 ticks
end showProgress

on displayProgress v
   put max(0,min(360,v)) into v
   set arcangle of grc pp to v
   put format("%000.0f%%",v/3.6) into fld pp
end displayProgress

on playStarted
   put false into isStopped
   createProgress
   showProgress the duration of me
end playStarted

on playPaused
   put true into isStopped
   createProgress
end playPaused

on playStopped
   put true into isStopped
   createProgress
end playStopped

on currentTimeChanged ct
   displayProgress 360*ct/the duration of me
end currentTimeChanged

on mouseUp
   createProgress
   displayProgress 360*the currentTime of me/the duration of me
   pass mouseUp
end mouseUp
   
on createProgress
   lock screen; lock messages
   put (the short name of me & "progress") into pp
   if there is no grp pp then create grp pp
   if there is no fld pp then
      create fld pp in grp pp
      set locktext of fld pp to true
      set rect of fld pp to (0,0,48,24)
      set showborder of fld pp to false
      set textalign of fld pp to "right"
      set forecolor of fld pp to "0,0,102" -- dark blue
      set textsize of fld pp to 12
   end if
   put pp&"back" into pp1
   if there is no grc pp1 then
      create grc pp1 in grp pp
      set style of grc pp1 to "oval"
      set rect of grc pp1 to (0,0,54,54)
      set forecolor of grc pp1 to "204,204,204" -- gray
      set linesize of grc pp1 to 8
      set opaque of grc pp1 to false
   end if
   if there is no grc pp then
      clone grc pp1
      set the name of it to pp
      set startangle of grc pp to 90
      set forecolor of grc pp to "51,51,51" -- dark gray
   end if
   set loc of fld pp to the the loc of grc pp1
   set loc of grc pp to the the loc of grc pp1
   set botleft of grp pp to the right of me,the bottom of me + 16
end createProgress

Code: Select all

on mouseUp
   set the startAngle of grc "CRUNCH" to 0
   put 0 into DEG
   repeat until DEG > 360
      set the arcangle of grc "CRUNCH" to DEG
      set the label of grc "MASK" to DEG
      add 1 to DEG
      wait 3 ticks
   end repeat
end mouseUp

Code: Select all

on mouseUp
   set the startAngle of grc "CRUNCH" to 0
   put 0 into DEG
   repeat until DEG > 360
      set the arcangle of grc "CRUNCH" to DEG
      set the label of grc "MASK" to DEG
      add 1 to DEG
      wait 3 ticks with messages # to allow the engine to process other actions during this time period...
   end repeat
end mouseUp

Code: Select all

on mouseUp
	setAngle 	# custom handler name...
end mouseUp

on setAngle
   set the startAngle of grc "CRUNCH" to 0
   put 0 into DEG
   if DEG >= 360 then exit setAngle
   set the arcangle of grc "CRUNCH" to DEG
   set the label of grc "MASK" to DEG
   add 1 to DEG
   send setAngle to me in 3 ticks
end setAngle

Code: Select all

wait 3 ticks with messages