A sample how to create a IMAGE-ani. ( indexbuilder ) UPD.

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Re: A sample how to create a IMAGE-ani. ( indexbuilder ) UPD.
Posted: Sun Jul 10, 2016 05:01 PM

Updated

What's new :

1.) 9 DBF's are included with sizes from 50 - 100000 records
2.) new animation-speed-calculation added
----the speed is always the same no matter of DBF-size
----calculated in relation to DELAY and defined STEPS ( no fixed speed-value )
3.) selections can be saved to a INI
4.) a record-counter is added to the meter
5.) added a little help-file

On my computer with DELAY 20 and STEPS 40 I got a nice result
using GetCPUSpeed() , You can use a factor to reduce or increase the values

The test ist included just enable the messages

on my computer

Speed : 2799
Records : 100000
Delay : 20
Steps : 50
Starttime : 22:03:38
Endtime : 22:03:40
adjusted to a speed-result of 2 seconds !!!

to calculate a factor I need some comparisons to get a equal speed on different computers

DOWNLOAD :
( size 11 MB because of 9 included DBF's )

http://www.service-fivewin.de/DOWNLOADS/Animat5.zip

regards
Uwe

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Re: A sample how to create a IMAGE-ani. ( indexbuilder ) UPD.
Posted: Tue Jul 12, 2016 08:51 AM

added a transparent counter shown centered inside of a animation.
can be records or percent

add in function :

FUNCTION SET_ANI( oImage, nRecPos, oTextFont2 )
...
...
oImage:bPainted := {|| oImage:Say( oImage:nHeight / 2.0 - oTextFont2:nHeight / 2, ;
( oImage:nWidth/2 ) -40, STR( nCounter ), , ,oTextFont2 , .t., .t., 0 ) }

RETURN NIL

and in function :

FUNCTION MAKE_INDEX( oMeter1, nRecPos, oImage, oTextFont2 )
...
...
SET_ANI( oImage, @nRecPos, oTextFont2 ), ; // animation
...
...
oMeter1:bPainted := {|| oMeter1:Say( oMeter1:nHeight / 4.0, ;
( oMeter1:nWidth/2 ) -40, STR( nRecords ), , ,oTextFont2 , .t., .t., 0 ) }
oImage:bPainted := {|| oImage:Say( oImage:nHeight / 2.0 - oTextFont2:nHeight / 2, ;
( oImage:nWidth/2 ) -40, STR( nRecords ), , ,oTextFont2 , .t., .t., 0 ) }

regards
Uwe

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

karinha

Posts: 8515