topic-33236

Board index FiveWin for Harbour/xHarbour Animation

Posts: 1048

Joined: Mon Oct 24, 2005 09:54 AM

Animation
Posted: Mon Nov 28, 2016 09:56 AM

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?

Regards,
Günther
---------------------------------
office@byte-one.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Animation
Posted: Mon Nov 28, 2016 10:19 AM

Günther,

Try to modify function WaitSeconds() this way:

Code (fw): Select all Collapse

function WaitSeconds( nSecs )

   local nStart := GetTickCount()

   DEFAULT nSecs := 1

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

return nil

regards, saludos

Antonio Linares
www.fivetechsoft.com

byte-one

Posts: 1048

Joined: Mon Oct 24, 2005 09:54 AM

Re: Animation
Posted: Mon Nov 28, 2016 02:59 PM

Thank you, Antonio! Works good.

Regards,
Günther
---------------------------------
office@byte-one.com

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Animation
Posted: Tue Nov 29, 2016 12:56 AM

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

Regards

G. N. Rao.

Hyderabad, India

FiveTech Support Forums

Continue the discussion