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

[ukoenig]

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

[ukoenig]

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

[karinha]

Uwe

New link for download, please.

Many thanks.

Regards, saludos.

[ukoenig]

New link for download, please.

All links are updated

regards
Uwe

[karinha]

Great.

Super many thanks.

Regards, saludos.