Rapinto,
FabioYeyo, gracias a ambos.
Rui tiene razón, en el bucle cuando hago:
Código COBOL:
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:
Código COBOL:
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.