Version: 1.01
Date: Le 6 août 1997
Rédaction: Jocelyn Houle
Direction: Jean Vaucher
L'exemple ci-dessous montre un ItemList avec deux champs: un nom et un mot de passe. Le code correspondant est donné en dessous.
begin
external class WINDOWTOOLS;
inspect new MainWindow ("Login") do
begin
ref (Button) OK;
ref (ItemList) Liste;
ref (TextItemWindow) Login;
ref (TextItemWindow) Password;
SetSize (283, 110);
Liste :- MakeItemList;
Login :- Liste.MakeTextItem("Login", 10);
Password :- Liste.MakeTextItem("Password", 15);
Password.NoEcho;
OK :- MakeButton("OK").PlaceDownRight;
Show;
OK.wait;
outtext("""" & Login.Get & ":"
& Password.Get & """");
outimage;
end;
end;
La création d'une nouvelle liste est assez simple. On crée tout d'abord un ItemList:
Liste :- MakeItemList;
puis on y ajoute des IntItemWindow, BoolItemWindow, TextItemWindow, etc.
Login :- Liste.MakeTextItem("Login", 10);
Password :- Liste.MakeTextItem("Password", 15);
Chaque nouvel ItemWindow créé sera mis en dessous du précédent.
ref(ItemList) MakeItemList(lb); |
Par la suite, il faut créer les items qui formeront l'ItemList à l'aide des commandes:
| ref(BoolItemWindow) | MakeBoolItem(lb); | text lb; | |
| ref(CharItemWindow) | MakeCharItem(lb); | text lb; | |
| ref(TextItemWindow) | MakeTextItem(lb, nc); | text lb; integer nc; | |
| ref(IntItemWindow) | MakeIntItem (lb, nc); | text lb; integer nc; | |
| ref(RealItemWindow) | MakeRealItem(lb, nc); | text lb; integer nc; |
où lb est l'étiquette (le label) et où nb est le nombre de caratères que la zône doit avoir.
Pour plus d'informations, référez-vous aux ItemWindows.