% Nom du fichier: FicheEtudiant.sim % Description: Exemple de fiche cree a l'aide d'ItemWindows % Apres que l'usager ait entre les infos et appuye sur "Ok", % on les affiche dans un format un peu different % Auteur: JPH % Date: Le 29 juillet 1997 % Version: 1.1 BEGIN EXTERNAL CLASS WindowTools; INSPECT NEW MainWindow ("Fiche de l'etudiant") DO BEGIN REF(Button) Quit; REF(ItemList) Fiche; REF(BoolItemWindow) Etranger; REF(CharItemWindow) Initiale; REF(IntItemWindow) Adresse, Age, Appartement, Poids; REF(RealItemWindow) Taille; REF(TextItemWindow) CodePermanent, Nom, Prenom, Province, Rue, Ville; SetBackGround("gray55"); Nom :- MakeTextItem("Nom", 20).PlaceAt(110, 10); Prenom :- MakeTextItem("Prenom", 20).PlaceBelow(Nom); Initiale :- MakeCharItem("Initiale").PlaceRightOf(Prenom); CodePermanent :- MakeTextItem("CodePerm", 12).PlaceBelow(Prenom); Adresse :- MakeIntItem("Adresse", 5).PlaceBelow(CodePermanent); Rue :- MakeTextItem ("Rue", 20).PlaceRightOf(Adresse); Appartement :- MakeIntItem("#App", 3).PlaceBelow(Adresse); Ville :- MakeTextItem ("Ville", 20).PlaceBelow(Appartement); Province :- MakeTextItem("Province", 20) .Put("Quebec") .PlaceBelow(Ville); Age :- MakeIntItem("Age", 2).PlaceBelow(Province); Taille :- MakeRealItem("Taille (m)", 4).PlaceBelow(Age); Poids :- MakeIntItem("Poids (kg)", 3).PlaceRightOf(Taille); Etranger :- MakeBoolItem("Etranger").PlaceBelow(Taille); Quit :- MakeButton("OK").PlaceDownRight; SetSizeToSubwindowSize; Show; Quit.wait; Initiale.Set_Current_Text(Upcase(Initiale.Current_Text)); Initiale.Refresh; OutText("INFOS FOURNIES"); OutImage; OutText("=============="); OutImage; OutText("Nom: " & Prenom.Get); IF Letter(Initiale.Get) THEN BEGIN OutChar(' '); OutChar(Initiale.Get); OutChar('.'); END; OutText(" " & Nom.Get); OutImage; OutText("Adresse: " & int_as_text(Adresse.Get) & " " & Rue.Get & (if Appartement.Get > 0 then ", #" & int_as_text(Appartement.Get) else NOTEXT) ); OutImage; OutText(" " & Ville.Get & ", " & Province.Get); if Etranger.Get then OutText(" (a l'etranger...)"); OutImage; OutText("Age: " & int_as_text(Age.Get)); OutImage; OutText("Taille: " & real_as_text(Taille.Get, 2) & " m."); OutImage; OutText("Poids: " & int_as_text(Poids.Get) & " kg."); OutImage; OutText("Code Permanent: " & CodePermanent.Get); OutImage; Quit.SetHeading("Quitter"); Quit.Resize; Quit.Wait; END; END;