home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / Chip_1998-03_cd.bin / tema / MINICAD / MC7DEMO / MINICAD.1 / DLOGTMPL.MPC < prev    next >
Text File  |  1997-04-30  |  894b  |  41 lines
  1. PROCEDURE TestDialog;
  2. LABEL 1,2;
  3. VAR
  4. item, x1, x2 : INTEGER;
  5. cancel,finished : BOOLEAN;
  6. {***************************************************}
  7. {*         Proc TestDialog by Frank Brault         *}
  8. {***************************************************}
  9.  
  10. PROCEDURE CenterDialog(dX1,dX2 : INTEGER; VAR x1,x2 : INTEGER);
  11. VAR
  12. scrX1,scrY1,scrX2,scrY2,w : INTEGER;
  13. BEGIN
  14. GetScreen(scrX1,scrY1,scrX2,scrY2);
  15. w := dX2 - dX1;
  16. x1 := ((scrX1 + scrX2) DIV 2) - (w DIV 2);
  17. x2 := x1 + w;
  18. END;
  19.  
  20. BEGIN
  21.  
  22. {********  Paste Dialog Creation Code Here  ********}
  23. GOTO 2;
  24. {********      Delete line GOTO above       ********}
  25.  
  26. GetDialog(1);
  27. finished := FALSE;
  28. cancel:= FALSE;
  29. REPEAT DialogEvent(item);
  30.     IF item = 2 THEN
  31.     BEGIN
  32.         finished := TRUE;
  33.         cancel := TRUE;
  34.     END;
  35. IF item = 1 THEN finished := TRUE;
  36. UNTIL finished;
  37. CLRDIALOG;
  38. IF cancel THEN GOTO 2;
  39. 2:END;
  40. RUN(TestDialog);
  41.