version 2004 (Modifiée)
Note de compatibilité
Cette commande est conservée pour des raisons de compatibilité uniquement. Dans les bases de données créées à partir de la version 2004 de 4D, l'interface de plate-forme est gérée automatiquement par le programme et cette commande est ignorée. Elle peut toujours être utilisée dans les bases de données converties, toutefois il est conseillé d'activer le nouveau mode de gestion via les Préférences de l'application (option "Système").
FIXER INTERFACE (interface)
Paramètre | Type | Description | |
interface | Numérique | Nouvelle interface de plate-forme : | |
-1 Plate-forme automatique | |||
0 Mac OS 7 | |||
1 Windows 3.11, NT 3.51 | |||
2 Windows 9x | |||
3 Mac OS 9 | |||
4 Thème Mac |
Description
La commande FIXER INTERFACE définit l'interface de plate-forme utilisée pour afficher les formulaires.
Vous passez dans le paramètre interface une des constantes prédéfinies suivantes :
Constante | Type | Valeur |
Plate forme automatique | Entier long | -1 |
Mac OS 7 | Entier long | 0 |
Windows 3.11, NT 3.51 | Entier long | 1 |
Windows 9x | Entier long | 2 |
Mac OS 9 | Entier long | 3 |
Thème Mac | Entier long | 4 |
Note : La constante Thème Mac permet d'utiliser l'interface définie dans le Gestionnaire d'apparence. Ce gestionnaire n'existe que sous Mac OS. Lorsqu'une base définie en Thème Mac est affichée sous Windows, l'interface "Windows 9x" est appliquée.
Si la valeur que vous passez ne modifie pas l'interface de plate-forme courante, la commande ne fait rien.
Note : L'interface de plate-forme peut également être modifiée dans la boîte de dialogue des Préférences.
Exemple
Avec 4D Server, vous voulez que les postes 4D Client Macintosh et Windows utilisent simultanément des interfaces de plate-formes différentes. Pour cela, vous pouvez appeler la commande FIXER INTERFACE dans la Méthode base Sur ouverture :
` Partons de l'hypothèse que les préférences des utilisateurs sont stockées dans une table [Préférences] ` Cherchons l'enregistrement correspondant à l'utilisateur courant CHERCHER([Préférences];[Préférences]Utilisateur=Utilisateur courant) Si (Enregistrements trouves([Préférences])=0) ` S'il n'est pas trouvé, utilisons les préférences par défaut CHERCHER([Préférences];[Préférences]Utilisateur="Par défaut") Fin de si ` Fixons l'interface de plate-forme en fonction des préférences de l'utilisateur FIXER INTERFACE ([Préférences]Interface plate-forme)
Référence