by auzan00 on Tue Jan 15, 2002 7:49 am
I'm not good for car repair : so here is the code...
First form (no list, no problem) :
OpenBmpDb ("garcon");
FastBmp (0,15,0);
Form (FORM1,"RESTAURANT");
Label (LDef,110,40,"D?ɬ©finir :");
Button (BCarte,0x00,100,55,50,12,"Carte");
Button (BMenu,0x00,100,75,50,12,"Menu");
Label (Lpass,110,125,"Passer :");
Button (BComm,0x00,95,140,60,12,"Commande");
Button (BFin,0x00,20,140,32,12,"FIN");
Fctl (DRAW,FORM1);
Second form (everything works) :
Form (FORM2,"D?ɬ©finition carte");
List (LiType,0,25,70,NBType,BType);
FsetList (LiType,-1,NBType,LType);
Button (BType,0x003,10,25,0,0,"Cat?ɬ©gories");
List (LiPlat,80,25,70,MAXPlat,0);
Button (BFinC,0x00,1,145,27,12,"FIN");
Button (BNCat,0x00,32,145,40,12,"Nouvelle");
Button (BPlus,0x00,78,145,37,12,"Ins?ɬ©rer");
Button (BMoins,0x00,118,145,32,12,"Oter");
Fctl (DRAW,FORM2);
Third form (can't select) :
Form (FORM3,"D?ɬ©finition menus");
List (LiMenu,0,25,70,NBMenu,BLMenu);
FsetList (LiMenu,-1,NBMenu,LMenu);
Button (BLMenu,0x003,10,25,0,0,"Menus");
List (LiPlatM,80,25,70,MAXPlat,0);
Button (BNMenu,0x00,32,145,40,12,"Nouveau");
Button (BPlusM,0x00,78,145,37,12,"Ins?ɬ©rer");
Button (BMoinsM,0x00,118,145,32,12,"Oter");
Button (BFinM,0x00,1,145,27,12,"FIN");
Fctl (DRAW,FORM3);
What do you think ?
Fabrice