versión 2004 (Modificado)
Nota de compatibilidad
Este comando se conserva únicamente por razones de compatibilidad. En bases de datos creadas a partir de la versión 2004 de 4D, la interfaz de plataforma es generada automáticamente por el programa y este comando no tiene efecto. Puede utilizarse en bases de datos convertidas, aunque se recomienda activar el nuevo modo de gestión vía las Preferencias de la aplicación (opción "Sistema").
SET PLATFORM INTERFACE (interfaz)
Parámetro | Tipo | Descripción | |
interfaz | Numérico | Nueva interfaz de plataforma: | |
-1 Plataforma automática | |||
0 Mac OS 7 | |||
1 Windows 3.11, NT 3.51 | |||
2 Windows 9x | |||
3 Mac OS 9 | |||
4 Mac Theme |
Descripción
El comando SET PLATFORM INTERFACE define la interfaz de plataforma utilizada para mostrar los formularios.
Puede pasar en interfaz una de las siguientes constantes predefinidas:
Constante | Tipo | Valor |
Automatic Platform | Entero largo | -1 |
Mac OS 7 | Entero largo | 0 |
Windows 3.11, NT 3.51 | Entero largo | 1 |
Windows 9x | Entero largo | 2 |
Mac OS 9 | Entero largo | 3 |
Mac Theme | Entero largo | 4 |
Nota: La constante Mac Theme permite utilizar la interfaz definida en el Administrador de apariencia. Este administrador sólo existe en Mac OS. Cuando una base definida con interfaz "Mac Theme" se muestra en Windows, se aplica la interfaz "Windows 9x".
El comando no hace nada si el valor que se pasa no modifica la interfaz de la plataforma actual.
Nota: La interfaz de plataforma también puede cambiarse en la caja de diálogo Preferencias.
Ejemplo
Con 4D Server, usted quiere que las estaciones Macintosh y Windows utilicen simultáneamente interfaces de plataforma diferentes. Para hacer esto, puede llamar el comando SET PLATFORM INTERFACE en el Método de base On Startup:
` Este ejemplo asume que las preferencias de los usuarios son almacenadas en una tabla [Preferencias] ` Busquemos el registro correspondiente al usuario actual QUERY([Preferencias];[Preferencias]Usuario=Current user) If (Records in selection([Preferencias])=0) ` Si no se encuentra, busque las preferencias por defecto QUERY([Preferencias];[Preferencias]Usuario="Por defecto") End if ` Establecer la interfaz de plataforma de acuerdo con las preferencias del usuario SET PLATFORM INTERFACE ([Preferencias]InterfazPlataforma)
Ver también