FiveTech Software tech support forums

great!

well done

Dear Silvio,

Better use a progress bar as it uses Windows animation, themes, etc

Please review samples\win32.prg

Antonio perhaps I resolved

I change only

oProgress:nTotal:=len(adata)

with

oProgress:settotal(len(adata))

and run ok I not Know why

https://i.postimg.cc/v897DFvk/L.gif

Dear Silvio,

Better use a progress bar as it uses Windows animation, themes, etc

Please review samples\win32.prg

... cdbfPath)
oStorico:= TDatabase():Open( , cdbfPath+"Storico", "DBFCDX", .T. )

// XBROWSER oStorico SHOW RECID TITLE "TRACE STORICO"

Ut_ResetMeter( oProgress, npos )
oProgress:ntotal:= len(aData)

aNew := {}
AEval( aData, { |a| If( a[ 1 ] > dMaxDate, AAdd( aNew, a ), ) } )
oStorico:FW ...