TProgress en Windows Vista

[Alfredo Arteaga]

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?

[Alfredo Arteaga]

Seré el único que habrá visto eso?

[Alfredo Arteaga]

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!.

[Antonio Linares]

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

[Antonio Linares]

Alfredo,

Aqui está el ejemplo:

test.prg

Code: Select all  Expand view

#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      
 

[Alfredo Arteaga]

Gracias Antonio.

Me RINDO!, no puedo hacerlo funcionar como en las versiones previas a WV.

[pymsoft]

Alfredo,


prueba a hacer un Sysrefresh() cada tanto, asi lo resolvi yo. (solo que enlentece un poco)


saludos.

[Alfredo Arteaga]

Gracias Pedro.

Te comento que cuando genero algunos reportes pongo una barra de progreso que muestre el avance y suceden estas dos situaciones:

1. no pinta el control en forma proporcional y
2. al finalizar deja el cursor en un estado intermitente que se vuelve molesto.

He buscado alguna forma para resolverlo (incluyendo el uso de SysRefresh()) y nada.

[pymsoft]

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

[marca]

Tenho o mesmo problema que o Alfredo


e tbem nao consegui entender o exemplo q. vem com o Fwh
#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



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

[marca]

Nada ?

[Wanderson]

Descobri isso hoje, alguém conseguiu resolver?
Any sugestion?

Obrigado.

[Lautaro]

Hola a todos,

Con respecto a progress si se quieren usar rangos con valor mayor a 65,535. se debe usar el metodo PBM_SETRANGE32 segun la documentacion del sdk de windows.

Aqui adjunto un parche que agrega el metodo setrange32 a la clase tprogress sin modificar el codigo de esta, solo hay que agregar el siguiente codigo al principio de vuestro programa, luego se debe usar el metodo setrange32 en vez del metodo setrange.

Ojo solo lo he probado con Harbour no con xHarbour y FWH 9.08

Esto soluciona el problema de pintado proporcional con valores mas grandes que 65.535.

Saludos

Lautaro Moreira

Code: Select all  Expand view

...
...
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 NIL

 

[Adolfo]

Antonio, 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

[Daniel Garcia-Gil]

Adolfo

Code: Select all  Expand view

#define PBM_SETRANGE32         1030