Sera que tengo que abandonar el uso de TProgress en Windows Vista?
. No presenta el pintado total del control.
. Activa un parpadeo molesto y permanece hasta que no se cierra el dialogo o control que la contiene.
Estuve revisando la clase y buscando documentación, veo que hay más de un mensaje que no está implementado entre otros PBM_SETRANGE32.
Me pregunto si habrá alguna solución ya implementada y no la conozco o si tendré que deshabilitar ese control para WV?
Seré el único que habrá visto eso?
La opinión de un experto me deja mas tranquilo o sin ánimos de seguir buscando.
"No es error de fiveWin, efectivamente Windows Vista no completa los
progress bar a menos que esten asignados a un valor bastante grande.
... hemos retocado la clase para que "force" el repintado, pero es
una chapuza, de todas formas no te preocupes, no error de tu programa,
es un tema de Windows Vista que no si solucionaran algun dia."
Gracias!.
Alfredo,
Lo curioso es que sin temas funciona perfectamente.
De todas formas nosotros publicamos un ejemplo aqui en los foros que se comportaba bastante bien. Ando buscándolo para mostrártelo 
#include "FiveWin.ch"
function Main()
local oDlg, oProg1, oProg2
DEFINE DIALOG oDlg TITLE "Progress Bars"
@ 1, 1 PROGRESS oProg1 SIZE 80, 12
@ 1, 20 PROGRESS oProg2 SIZE 12, 50 VERTICAL
@ 3, 9 BUTTON "Ok" ACTION oDlg:End()
oDlg:bStart = { || Increase( oProg1, oProg2 ) }
ACTIVATE DIALOG oDlg CENTER ;
ON INIT ( oProg1:SetRange( 0, 100 ), oProg1:SetStep( 1 ),;
oProg2:SetRange( 0, 100 ), oProg2:SetStep( 1 ) )
return nil
function Increase( oProg1, oProg2 )
local n
for n = 1 to 111
// oProg1:StepIt()
// oProg2:StepIt()
oProg1:SetPos( n )
oProg2:SetPos( n )
Sleep( 50 )
SysRefresh()
next
return nil
Gracias Antonio.
Me RINDO!, no puedo hacerlo funcionar como en las versiones previas a WV.
Alfredo,
prueba a hacer un Sysrefresh() cada tanto, asi lo resolvi yo. (solo que enlentece un poco)
saludos.
Gracias Pedro.
Te comento que cuando genero algunos reportes pongo una barra de progreso que muestre el avance y suceden estas dos situaciones:
He buscado alguna forma para resolverlo (incluyendo el uso de SysRefresh()) y nada.
Alfredo,
se me acabaron las ideas 
Tengo varios clientes usando windows vista y no me han dicho nada de este problema.
Acabo de controlar que es lo que uso, y no es una progressbar, es un meter, pero hace lo que necesito.
saludos
Tenho o mesmo problema que o Alfredo
e tbem nao consegui entender o exemplo q. vem com o Fwh
function Main()
local oDlg, oProg1, oProg2
DEFINE DIALOG oDlg TITLE "Progress Bars"
@ 1, 1 PROGRESS oProg1 SIZE 80, 12
@ 1, 20 PROGRESS oProg2 SIZE 12, 50 VERTICAL
@ 3, 9 BUTTON "Ok" ACTION oDlg:End()
oDlg:bStart = { || Increase( oProg1, oProg2 ) }
ACTIVATE DIALOG oDlg CENTER ;
ON INIT ( oProg1:SetRange( 0, 100 ), oProg1:SetStep( 1 ),;
oProg2:SetRange( 0, 100 ), oProg2:SetStep( 1 ) )
return nil
function Increase( oProg1, oProg2 )
local n
Por que aqui no for next é 111 e não é 100 como o setado acima no on init da dialog
----->>>>> oProg1:SetRange( 0, 100 )
for n = 1 to 111
oProg1:SetPos( n )
oProg2:SetPos( n )
Sleep( 50 )
SysRefresh()
next
return nil
Nada ?
Descobri isso hoje, alguém conseguiu resolver?
Any sugestion?
Obrigado.
...
...
local oxprogress
oxprogress:=TProgress() // Crea el manejador de la clase
__objaddmethod(oxprogress,"SETRANGE32",@xsetrange32()) // Agrega el metodo setrange32
oxprogress:=NIL // Destruye el manejador de la clase
...
...
oprogres:setrange32(0,150000)
....
....
return
STATIC PROCEDURE xsetrange32(nmin,nmax)
LOCAL SELF := qself()
DEFAULT nmin:=0
DEFAULT nmax:=100
SendMessage( ::hWnd, PBM_SETRANGE32, nmin, nMax )
::nMin := nMin
::nMax := nMax
RETURN NILAntonio, Lautaro
No he encontrado solucion al problema de Totales en la tProgress mayores al 65535.
Lautaro tu solucion no me funciona en xHarbour
...obtengo el siguiente error
Error description: Error BASE/1003 Variable does not exist: PBM_SETRANGE32
en la linea
SendMessage( ::hWnd, PBM_SETRANGE32, nmin, nMax )
ANTONIO. Existe alguna solucion para este problema... es de Enero de este año
Saludos
Desde Chile
Adolfo
