GESTION DES FONTES EN GFA BASIC
Comme cette rubrique ne m'intéresse pas vraiment c'est loin d'être complet
Je la met quand même mais pour ceux qui cherchent quelque chose de précis n'hésitez pas à me poser vos question : scalion@free.fr
veuillez m'en excusez mais je remédierais plus tard à cette lacune !
Appeler la boite de dialogue windows pour définir une fonte :
FULLW #1 'Ouvrir une fenëtre standard en plein êcran
Font_Style& = CF_SCREENFONTS | CF_EFFECTS 'Activer les styles et les effets (italique, etc...)
DLG FONT 1,0,Font_Style&,_ECX,0,0,"Style" 'Appel de la Boite de Dialogue
RGBCOLOR _ECX 'Le registre _ECX contient la couleur du texte
FONT TO Myfont& 'Enregistrer la fonte dans la variable Myfont&
SETFONT Myfont& 'Sêlectionner cette fonte pour l'affichage
PRINT "Style sêlectionnê : ";CHAR{_EBX} /*Dans le registre _EBX le style (italique, etc...)
PRINT "Cette police vous convient ?" /*Exemple á l'êcran
KEYGET rien% 'Attend l'appui d'une touche
FREEFONT Myfont& 'Libére l'espace mêmoire
CLOSEW #1 'Ferme la fenëtre et fin du programme .
Changer la taille d'une fonte en cours d'utilisation :
FOR x% = 5 TO 20 ' Valeurs 5 á 20
FREEFONT Myfont&
FONT HEIGHT x% + 8,WIDTH x% + 2 TO Myfont&
SETFONT Myfont&
PRINT "Taille diffêrente ."
NEXT x%