Test velocidad

[Mario Mansilla]

Hola Amigos :
les envío un pequeño proyecto mediante el cual pude reproducir un problema que tengo en el sistema cuando los operadores
que lo utilizan son rápidos .
Esto se produce en forma aleatoria pero siempre en el mismo lugar del programa , este es un pequeño proyecto pero cuando la ventana tiene mas controles mas se produce la falla .
Para probarlo basta con presionar enter y escape sucesivamente a alta velocidad o bien solo enter permanentemente para que vean lo que sucede y me sugieran como puedo hacer para corregirlo .

Saludos cordiales
Mario Rafael Mansilla

Hello friends :
I am sending you a small project through which I could reproduce a problem that I have in the system when the operators
who use it are fast.
This occurs randomly but always in the same place in the program, this is a small project but when the window has more controls, the failure occurs.
To test it, just press enter and escape successively at high speed or just enter permanently so they can see what happens and suggest how I can correct it.

Best regards
Mario Rafael Mansilla

[salamandra]

Hola Mario,

Hola Amigos :
les envío un pequeño proyecto mediante el cual pude reproducir un problema que tengo en el sistema cuando los operadores
que lo utilizan son rápidos .
Esto se produce en forma aleatoria pero siempre en el mismo lugar del programa , este es un pequeño proyecto pero cuando la ventana tiene mas controles mas se produce la falla .
Para probarlo basta con presionar enter y escape sucesivamente a alta velocidad o bien solo enter permanentemente para que vean lo que sucede y me sugieran como puedo hacer para corregirlo .

Saludos cordiales
Mario Rafael Mansilla

Hello friends :
I am sending you a small project through which I could reproduce a problem that I have in the system when the operators
who use it are fast.
This occurs randomly but always in the same place in the program, this is a small project but when the window has more controls, the failure occurs.
To test it, just press enter and escape successively at high speed or just enter permanently so they can see what happens and suggest how I can correct it.

Best regards
Mario Rafael Mansilla

Hice una pequeña alteracion a tu codigo y parece estar funcionando bien.

Code: Select all

#include <hmg.ch>

Function Main

        Load Window Main
        Main.Center
        Main.Activate

Return


*--------------
Procedure Buscar
*--------------

   Load Window Form_1
   ON KEY ESCAPE OF FORM_1 ACTION (Cancelar())
   Center Window Form_1
   Activate Window Form_1
   
Return

*----------------
Procedure Cancelar
*----------------
	if iswindowdefined('Form_1')
		if iswindowactive('Form_1')
			Thiswindow.Release
			Main.Text_1.Setfocus
		endif
	endif
Return

Saludos,


Salamandra, Brasil