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