home *** CD-ROM | disk | FTP | other *** search
/ Millennium Time Capsule / AC2000.BIN / disks / ac13disk / plug_ins / fmplg12e / testform.sic < prev   
Encoding:
Text File  |  1998-09-16  |  1.3 KB  |  36 lines
  1.  
  2. id     = Form.New("Test-Dialog","@OK|Cancel",37,7);
  3.  
  4. group1 = Form.Add(id,"Group",0,0," Group 1 ",18,5);
  5. group2 = Form.Add(id,"Group",19,0," Group 2 ",18,5);
  6.  
  7. check1 = Form.Add(id,"Check",1,1,"Choice 1","selected");
  8. check2 = Form.Add(id,"Check",1,2,"Choice 2");
  9. check3 = Form.Add(id,"Check",1,3,"Choice 3");
  10. radio  = Form.Add(id,"Radio",20,1,"Radio 1|@Radio 2|Radio 3");
  11. edit   = Form.Add(id,"Edit",1,6,"Default Text",35);
  12.  
  13. exit   = Form.Do(id);
  14.  
  15. print("Dialog was exited by the user clicking [",exit,"]");
  16. print();
  17. print("Text from Groupbox 1:  ",Form.Get(id,group1));
  18. print("Text from Groupbox 2:  ",Form.Get(id,group2));
  19. print("Value from Checkbox 1: ",Form.Get(id,check1));
  20. print("Value from Checkbox 2: ",Form.Get(id,check2));
  21. print("Value from Checkbox 3: ",Form.Get(id,check3));
  22. print("Selected Radio Button: ",Form.Get(id,radio));
  23. print("Text in Edit Field:    ",Form.Get(id,edit));
  24.  
  25. Form.Delete(id);
  26.  
  27. a = Form.Input("Please type something");
  28.  
  29. a = Form.Input("Please type something","Default text");
  30.  
  31. print("Ended with ",a[0]);
  32. print("You typed: ",a[1]);
  33.  
  34. print(Form.Note("Attention","Test alert box|second line of the box|third line of the box"));
  35. print(Form.Note("Important","Program cannot start.|What do you want to do?","Continue|@Cancel|Try Again"));
  36.