Animation

[byte-one]

I will show a circle in 5 steps growing the Diameter. The time from step to step should be 0.1 secs. The problem with waitseconds() etc. is the stop from all activity for this time.
Is there a way without stopping the program?

[Antonio Linares]

Günther,

Try to modify function WaitSeconds() this way:

Code: Select all  Expand view

function WaitSeconds( nSecs )

   local nStart := GetTickCount()

   DEFAULT nSecs := 1

   while GetTickCount() - nStart < ( 1000 * nSecs )
      SysRefresh()
   end

return nil

[byte-one]

Thank you, Antonio! Works good.

[nageswaragunupudi]

Doesn't SysWait( n ) work without any change?