Progress in message bar

[lailton.webmaster]

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]

Code: Select all  Expand view

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  Expand view

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

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

oTT:End()


[lailton.webmaster]

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]

i wanna make it change



2 progressnar did edit im paint brush ehehhehe

someone can help me

thanks

[Antonio Linares]

Lailton,

Are you using themes in your application ?

Please include this in your RC:

1 24 "WindowsXP.Manifest"

[lailton.webmaster]

Perfect Antonio

I try with this form and is OK now i did not using manifest more now
compile with manifest and allright !

thanks