[Duda] ThruEvents pone el puntero por defecto

[Kuk]

Amigos, me he dado cuenta de que el ThruEvents vuelve a poner el puntero por defecto si antes lo habías cambiado por el de espera.

Es decir, yo hago lo siguiente:

 ENVIRONMENT DIVISION. 
 DATA DIVISION.
 PROCEDURE DIVISION.
     
     MOVE POW-MP-WAIT TO "MousePointer" OF POW-SELF
     MOVE POW-FALSE   TO "Enabled"      OF POW-SELF
     
     PERFORM UNTIL ...
         ...
         
         INVOKE POW-SELF "ThruEvent"
     END-PERFORM

En el primer ThruEvent vuelve a poner el puntero por defecto y no entiendo por qué.
He intentado volver a hacer

     MOVE POW-MP-WAIT TO "MousePointer" OF POW-SELF

después del ThruEvent pero hace lo mismo.

¿A alguien más le está pasando? Y si es así, ¿habéis encontrado la solución?

Sin el ThruEvent en bucles largos se congela la ventana y Windows se piensa que se la colgado. Por otro lado, me interesa el puntero de espera porque si no hay que hacer algún tipo de mensaje en plan "Espere por favor..."

[Rapinto]

Kuk,

O ThruEvents permite executar eventos de outros processos que estejam pendentes.
Ao executar o "ThruEvents" podem ser executados outros processos que colocam o puntero noutro estado.
Quando regressa ao teu processo, já está modificado.

Já me aconteceu isso com valores de variáveis, no mesmo programa, ao executar o "ThruEvents"
o valor da variável era 1 e num "Perform Until " o valor do índex alterava. Tinha um "ThruEvents" no meio do "Perform - End-Perform".
Por isso os manuais alertam para usar esta instrução com muito cuidado.
Podes, a seguir ao "ThruEvents" voltar sempre a colocar o puntero como queres.
Un saludo,
Rui Pinto

[Kuk]

❞ Podes, a seguir ao "ThruEvents" voltar sempre a colocar o puntero como queres.

Es lo que he intentado pero no funciona.

[FabioYeyo]

Kuk.

El ThruEvent no es el que te esta cambiando el puntero quien te lo cambia es cuando pones la instruccion MOVE POW-FALSE TO "Enabled" OF POW-SELF. comenta esta instruccion y veras que funciona bien.

---------- Post añadido : 16:18 ---------- Post anterior : 16:15 ----------

Kuk.

El problema es que cuando pones MOVE POW-FALSE TO "Enabled" OF POW-SELF estas desactivando la ventana que tienes abierta.

[Kuk]

FabioYeyo, si no hago ThruEvents funciona con la ventana deshabilitada.

     MOVE POW-FALSE TO "Enabled" OF POW-SELF

Esto es para que el usuario no haga click en ningún lado y no cambie nada mientras se ejecuta el bucle. Cuando el bucle (por ejemplo una búsqueda) se termina, se vuelve al estado habilitado del Form con:

     MOVE POW-TRUE TO "Enabled" OF POW-SELF

[Rapinto]

Kuk,

Experimenta assim:

          move 99 to "MousePointer" OF pow-self
          MOVE POW-MP-WAIT TO "MousePointer" OF POW-SELF

No meu PC funciona.
Un saludo,
Rui

[FabioYeyo]

Kuk.

Lo unico que se me ocurre de momento es que Deshabilites los controle uno a uno

Saludos

[Kuk]

Rapinto, FabioYeyo, gracias a ambos.

Rui tiene razón, en el bucle cuando hago:

         INVOKE POW-SELF "ThruEvents"
                  
         MOVE 99          TO "MousePointer" OF POW-SELF     
         MOVE POW-MP-WAIT TO "MousePointer" OF POW-SELF       

Funciona a la perfección. ¡¡¡Rui, eres un crack macho!!!

---------- Post añadido : 13:57 ---------- Post anterior : 09:16 ----------

Rapinto, funciona, pero mal... El cursor animado hace saltos en algunos procesos.

En definitiva, he sustituido el ThruEvents por lo que uso en PowerCOBOL v3:

     CALL "InvalidateRect" WITH STDCALL USING BY VALUE wsHwnd 0 1
     CALL "UpdateWindow"   WITH STDCALL USING BY VALUE wsHwnd 

Son llamadas a la WinAPI, y nada mejor, funciona de maravilla.