FiveTech Software tech support forums

... 1 ),; oProg2:SetRange( 0, 168 ), oProg2:SetStep( 1 ) ) return nil function Increase( oProg1, oProg2 ) local n for n = 1 to 168 // 111 // oProg1:StepIt() // oProg2:StepIt() oProg1:SetPos( n ) oProg2:SetPos( n ) Sleep( 50 ) SysRefresh() next

... ::hWnd, PBM_SETSTEP, ::nStep := nStepInc ) y desde un bucle se llama a: SendMessage(hwndPB, PBM_STEPIT, 0, 0); En FWH:   METHOD StepIt() INLINE SendMessage( ::hWnd, PBM_STEPIT ), ::nPos += ::nStep eso es todo...

A ver, estos son los mensajes que tenemos para usar este control: #define PBM_SETRANGE (WM_USER+1) #define PBM_SETPOS (WM_USER+2) #define PBM_DELTAPOS (WM_USER+3) #define PBM_SETSTEP (WM_USER+4) #define PBM_STEPIT (WM_USER+5) #if (_WIN32_IE >= 0x0300) #define PBM_SETRANGE32 (WM_USER+6) // lParam ...

... is less than 40000 going well but on biggest values example 400000 progress bar is finished (going to 100%) somewhere between 40000 - 45000 Method StepIt() dont solve the problem (OS: XP SP3) Sample: #include "FiveWin.ch"function Main()   local oDlg, oProg1, oProg2, oSay1, oSay2  ...

Hi, After reading this topic http://forums.fivetechsupport.com/viewtopic.php?f=3&t=10194 I added, oProgress:StepIt() inside the loop oProgress:StepIt()  // This will slow down the process, otherwise progress bar updates are not perfect The above command seems ...

... the total number of indexes. Also you have defined the range as 0-100. So, try this--take out the first two lines and add the last line. // oProg:StepIt() // oProg:nPosition += nPercent oProg:setPos( nPercent ) Regards, James Mr.James's solution solved my problem. But now another problem. The ...

Antonio,

>Yes, on the final step (from 99 to 100) it gets empty. Really strange, as the right way to do it is to use the StepIt() method.

Hmm, maybe if you do n = 0 to 99 instead? Or, set the range from 1 to 100 instead of 0 to 100?

Sorry, I can't test it here.

James

... bar gets blank--at the end? Yes, on the final step (from 99 to 100) it gets empty. Really strange, as the right way to do it is to use the StepIt() method. And it only fails in Vista with themes. Without themes is ok. At least we have a workaround. Now we need other testers feedback.

... the total number of indexes. Also you have defined the range as 0-100. So, try this--take out the first two lines and add the last line. // oProg:StepIt() // oProg:nPosition += nPercent oProg:setPos( nPercent ) Regards, James

Marc,

You have to use it this way:

oProgress:SetStep( 1 )
for ...
oProgress:StepIt()
next

José Luis, Hay que usar los métodos SetStep() y StepIt() y asi sí completa: oProgress:SetRange( 0, RecCount() ) oProgress:SetStep( 2 ) nProgress:= 0 sysrefresh() INDEX ON first+last TO "CUST01" ...