topic-13125

lailton.webmaster

Posts: 603

Joined: Sun May 04, 2008 08:44 PM

Progress in message bar
Posted: Tue Oct 14, 2008 03:49 AM

Hey there

i wanna make progress bar in status of um windows

is possible ??? someone can help me ??

i use xh1.1.0/fwh8.5

thanks

pablovidal

Posts: 401

Joined: Thu Oct 06, 2005 10:15 PM

Progress in message bar
Posted: Tue Oct 14, 2008 04:48 AM

Code: Select all Collapse

Function ProgressBar( nTotal )
Local o := TProgress():New( 01, 10, oWmain:oMsgBar, ,,, .T., )
 Default nTotal := 1
 o:SetRange( 0, nTotal )
 o:SetPos( 0 )
Return( o )

Code: Select all Collapse

Local nTt := 100
Local ott := ProgressBar( nTT )
Local nAt := 0

For nAt :=  1 to nTT
 oTT:SetPos( nAt )
Next nAt

oTT:End()

Saludos,

Pablo Alberto Vidal

/*

------------------------------------------------------

Harbour 3.2.0, Fivewin 17.02, BCC7

------------------------------------------------------

*/

lailton.webmaster

Posts: 603

Joined: Sun May 04, 2008 08:44 PM

cool
Posted: Tue Oct 14, 2008 05:03 AM

very cool

only one problem i use style 2007 in windows and with progress bar
stay very Ugly...

what u think abour it ?? have some think to stay the same style
windows or something to stay the same 2007 style

lailton.webmaster

Posts: 603

Joined: Sun May 04, 2008 08:44 PM

h.
Posted: Tue Oct 14, 2008 05:41 AM

i wanna make it change