Efectos especiales para abrir y cerrar la ventana de Easy Language.
Una "ventana" y dos "relojes" ********************************* * **************************** Versión 2
Biblioteca de soporte eAPI
. Especificaciones de biblioteca de soporte.Ensamblaje de ventana de ensamblaje 1
.Variable de ensamblaje A, tipo entero. Subrutina __Iniciar ventana_Creación completada Establecer transparencia de ventana (_Iniciar ventana. Obtener identificador de ventana (), 0)
Reloj. 1. Ciclo de reloj = 10
A = 0. Si la subrutina __start window_ se puede cerrar, tipo lógico A = 255
Reloj 2. Período de reloj = 10
Retraso (4000). Subrutina_Reloj 1_Evento de período. Si (A < 255)
A = A + 1
Establecer la transparencia de la ventana (_Iniciar ventana. Obtener el identificador de la ventana(), A). )
En caso contrario
Reloj 1. Periodo de reloj = 0
Si final
Evento de Subrutina_Reloj 2_Periodo. 0)
A = A - 1
Establecer la transparencia de la ventana (_Iniciar ventana. Obtener el identificador de la ventana (), A)
De lo contrario. ************************** ************************* ***********8