Manuel Amos Professional  Sommaire  Index

Ressources de l interface


Jusqu a present, nous avons vu comment generer des graphismes d interface a l aide des commandes integrees. Il est aussi possible d obtenir de superbes effets en utilisant des images predefinies stockees en memoire.

Chaque programme d interface peut acceder a un ensemble de ressources speciales stockees dans une banque memoire specifique. Ces ressources peuvent etre creees avec le "Resource Bank Maker", decrit en detail dans le Chapitre 13.7. Une fois definies, ces ressources peuvent etre utilisees par l interface d AMOS Professional.

La Banque de Ressources est en general affectee a la banque memoire numero 16. Le chargement d un fichier de ressources est explique a la fin de ce chapitre.

Toutefois, cette etape peut etre evitee si vous utilisez les parametres actuels de l editeur. Par defaut, AMOS Professional fournit un acces direct a tous les messages systeme et objets de l editeur. Cela couvre tout ce qu il faut pour creer des boites de dialogue attrayantes.

Il existe deux types de ressources :

MEssage
Fonction interface : retourne un message depuis la banque de ressources
message = numero ME

La fonction MEssage prend un numero depuis la pile et retourne le message correspondant depuis la Banque de Ressources. Si le numero est invalide, une erreur est generee. ME peut etre utilise avec PRint ou PrintOutline comme suit :

E> A$="PRint 0,0,7,MEssage,5;"
   A$=A$+"EXit;"
   D=Dialog Box(A$)

Un message peut aussi etre affiche directement depuis le programme principal grace a la fonction RESOURCES (decrite plus loin).

UNpack
Instruction interface : decompresse une image depuis la banque de ressources
UN x,y,numero d image;

Les images compactees peuvent etre extraites de la banque de ressources, puis decompactees pour etre affichees comme boutons ou fonds de boites de dialogue. Commencez par donner les coordonnees x,y. Notez que x est arrondi a un multiple de 8. Ensuite, specifiez le numero de l image a decompresser.

E> Resource Screen Open 0,640,200,2
   A$="UNpack 10,10,13; EXit;"
   D=Dialog Box(A$)
Retour    Suivant
09.04.01