home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / ozogan / FORM2.IPS < prev    next >
Encoding:
Text File  |  1997-06-17  |  1.9 KB  |  50 lines
  1. PROCEDURE DisplayForm
  2. VAR
  3.    pol1_imp : string = "vstup 1"; pol2_imp : string = "vstup 2"; pol3_imp : string = "vstup 3";
  4.    pol4_imp : boolean = true;  pol5_imp : boolean = false; pol1_out : string;  pol2_out : string;
  5.    pol3_out : string;  pol4_out : boolean; pol5_out : boolean; 
  6. ENDVAR
  7.    IF (formDialog("Form1")) then
  8.       messageBox(pol2_out, "obsah druhΘ editaΦnφ polo₧ky", mb_iconInformation +  mb_ok);
  9.    ENDIF;
  10. ENDPROC
  11. PROCEDURE pushProc
  12.   IF (DlgIsControlEnabled(2))
  13.      DlgDisableControl(2);
  14.      MessageBox('EditaΦnφ Box 1 je znep°φstupn∞n', 'Zprßva u₧ivateli', mb_iconInformation + mb_ok);
  15.   ELSE
  16.      DlgEnableControl(2);
  17.      MessageBox('EditaΦnφ Box 1 je zp°φstupn∞n', 'Zprßva u₧ivateli', mb_iconInformation + mb_ok);
  18.   ENDIF
  19.   FormDialog("Form2")
  20. ENDPROC
  21. PROCEDURE hideCtl
  22.    IF (dlgIsControlVisible(7))
  23.       dlgHideControl(7);
  24.    ELSE
  25.       dlgShowControl(7);
  26.    ENDIF
  27. ENDPROC
  28. PROCEDURE updateStatic
  29. VAR
  30.    t : string = "prvnφ polo₧ka";
  31. ENDVAR
  32.    t := dlgGetControlText(2)
  33.    dlgSetControlText(10, "obsah polo₧ky 1 = " + t);
  34. ENDPROC
  35.  
  36. PROCEDURE main
  37.    createForm   ("Form2", "Prßzdn² formulß°", 300, 300, 350, 100);
  38.    createForm   ("Form1", "Test formulß°e", 100, 100, 270, 250);
  39.    addStatic    ("Form1", "polo₧ka 1", 10, 30, 50, 20);
  40.    addEditbox   ("Form1", "pol1_imp", "pol1_imp", 10, 50, 150, 20, "UpdateStatic");
  41.    addStatic    ("Form1", "polo₧ka 2", 10, 72, 50, 20);
  42.    addEditbox   ("Form1", "pol2_imp", "pol2_out", 10, 92, 150, 20);
  43.    addStatic    ("Form1", "polo₧ka 3", 10, 114, 50, 20);
  44.    addEditbox   ("Form1", "pol3_imp", "pol3_out", 10, 134, 150, 20);
  45.    addCheckbox  ("Form1", "pol4_imp", "pol4_out",  "Check &Box", 10, 165, 90, 20);
  46.    addCheckBox  ("Form1", "pol5_imp", "pol5_out", "&Ukryj Box", 10, 185, 90, 20, "HideCtl");
  47.    addPushButton("Form1", "PushProc", "zde &stiskn∞te", 160, 165, 100, 24);
  48.    addStatic    ("Form1", "", 10, 205, 140, 20);
  49.    displayForm;
  50. ENDPROC