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.