home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / Chip_1998-03_cd.bin / tema / MINICAD / MC7DEMO / MINICAD.1 / HELP.MPC < prev    next >
Text File  |  1997-04-30  |  5KB  |  152 lines
  1. PROCEDURE HelpLinks;
  2. VAR
  3. item, first, x1, x2, which : INTEGER;
  4. cancel,finished,goBack : BOOLEAN;
  5.  
  6. PROCEDURE CenterDialog(dX1,dX2 : INTEGER; VAR x1,x2 : INTEGER);
  7. VAR
  8. scrX1,scrY1,scrX2,scrY2,w : INTEGER;
  9. BEGIN
  10. GetScreen(scrX1,scrY1,scrX2,scrY2);
  11. w := dX2 - dX1;
  12. x1 := ((scrX1 + scrX2) DIV 2) - (w DIV 2);
  13. x2 := x1 + w;
  14. END;
  15.  
  16. PROCEDURE HELP1;
  17. BEGIN
  18. CENTERDIALOG(0,238,x1,x2);
  19. BEGINDIALOG(1,1,x1,97,x2,343);
  20. ADDBUTTON('OK',1,1,137,199,201,222);
  21. ADDFIELD('___________________',2,1,39,27,203,45);
  22. ADDFIELD('Data Labels Help Dialog',3,1,38,20,202,37);
  23. ADDBUTTON('Setup╔',4,1,34,109,114,132);
  24. ADDBUTTON('Create╔',5,1,129,109,212,132);
  25. ADDBUTTON('Edit╔',6,1,34,146,114,169);
  26. ADDBUTTON('Update╔',7,1,129,146,212,169);
  27. ADDBUTTON('What are Data Labels?',8,1,34,70,212,93);
  28. ENDDIALOG;
  29. END;
  30.  
  31. PROCEDURE HELP2;
  32. BEGIN
  33. CENTERDIALOG(0,320,x1,x2);
  34. BEGINDIALOG(2,1,x1,110,x2,348);
  35. ADDBUTTON('OK',1,1,217,195,281,218);
  36. ADDBUTTON('Go Back',2,1,140,195,204,218);
  37. ADDFIELD('The Setup procedure creates the',3,1,37,15,275,33);
  38. ADDFIELD('the class, layer and records',4,1,37,38,253,56);
  39. ADDFIELD('required to use data labels from',5,1,37,61,268,79);
  40. ADDFIELD('within your drawing file. The',6,1,37,84,278,102);
  41. ADDFIELD('procedure uses the active symbol',7,1,37,107,305,125);
  42. ADDFIELD('or the first symbol for use as a model',8,1,37,130,296,148);
  43. ADDFIELD('in the legend to locate data labels.',9,1,37,153,284,171);
  44. ENDDIALOG;
  45. END;
  46.  
  47. PROCEDURE HELP3;
  48. BEGIN
  49. CENTERDIALOG(0,320,x1,x2);
  50. BEGINDIALOG(3,1,x1,110,x2,348);
  51. ADDBUTTON('OK',1,1,217,195,281,218);
  52. ADDBUTTON('Go Back',2,1,140,195,204,218);
  53. ADDFIELD('Text objects from the legend are',3,1,37,15,275,33);
  54. ADDFIELD('used to to create labels around',4,1,37,38,268,56);
  55. ADDFIELD('selected symbols. The text is',5,1,37,61,268,79);
  56. ADDFIELD('arranged around the symbol',6,1,37,84,278,102);
  57. ADDFIELD('in the same relationship as the',7,1,37,107,305,125);
  58. ADDFIELD('╘Label Key╒ symbol in the ╘Legend╒',8,1,37,130,296,148);
  59. ADDFIELD('layer, but it is not rotated.',9,1,37,153,284,171);
  60. ENDDIALOG;
  61. END;
  62.  
  63.  
  64. PROCEDURE HELP4;
  65. BEGIN
  66. CENTERDIALOG(0,343,x1,x2);
  67. BEGINDIALOG(4,1,x1,110,x2,348);
  68. ADDBUTTON('OK',1,1,253,195,317,218);
  69. ADDBUTTON('Go Back',2,1,176,195,240,218);
  70. ADDFIELD('Edit Data Labels prompts for you to',3,1,37,15,303,33);
  71. ADDFIELD('select existing Data Labels in your',4,1,37,38,294,56);
  72. ADDFIELD('file and presents a dialog box to',5,1,37,61,289,79);
  73. ADDFIELD('change the text. It not only changes',6,1,37,84,301,102);
  74. ADDFIELD('the label on the drawing, but it also',7,1,37,107,312,125);
  75. ADDFIELD('updates the database, attached to',8,1,37,130,296,148);
  76. ADDFIELD('the source symbols, as well.',9,1,37,153,332,171);
  77. ENDDIALOG;
  78. END;
  79.  
  80.  
  81. PROCEDURE HELP5;
  82. BEGIN
  83. CENTERDIALOG(0,343,x1,x2);
  84. BEGINDIALOG(5,1,x1,110,x2,348);
  85. ADDBUTTON('OK',1,1,253,195,317,218);
  86. ADDBUTTON('Go Back',2,1,176,195,240,218);
  87. ADDFIELD('Update Data Labels changes existing',3,1,37,15,303,33);
  88. ADDFIELD('labels to reflect new data you╒ve',4,1,37,38,294,56);
  89. ADDFIELD('entered in the database attached',5,1,37,61,289,79);
  90. ADDFIELD('to symbols. The selection may',6,1,37,84,301,102);
  91. ADDFIELD('have other graphic objects, but',7,1,37,107,312,125);
  92. ADDFIELD('only data labels will be processed.',8,1,37,130,296,148);
  93. ENDDIALOG;
  94. END;
  95.  
  96. PROCEDURE HELP6;
  97. BEGIN
  98. CENTERDIALOG(0,374,x1,x2);
  99. BEGINDIALOG(6,1,x1,46,x2,346);
  100. ADDBUTTON('OK',1,1,256,260,320,283);
  101. ADDBUTTON('Go Back',2,1,179,260,243,283);
  102. ADDFIELD('Data Labels are text objects created near',3,1,37,15,340,33);
  103. ADDFIELD('each selected symbol showing database',4,1,37,38,332,56);
  104. ADDFIELD('information you''ve attached to the symbol.',5,1,37,61,342,79);
  105. ADDFIELD('The text is arranged around the symbol',6,1,37,84,343,102);
  106. ADDFIELD('in the same relationship as the ╘Legend╒',7,1,37,107,339,125);
  107. ADDFIELD('you''ve set up. Once created, the labels',8,1,37,130,329,148);
  108. ADDFIELD('can be moved where you like to make it',9,1,37,153,347,171);
  109. ADDFIELD('look better, if necessary. The text remains',10,1,37,176,340,194);
  110. ADDFIELD('associated with the symbol and can be',11,1,37,199,313,217);
  111. ADDFIELD('updated with a macro.',12,1,37,222,198,240);
  112. ENDDIALOG;
  113. END;
  114.  
  115. BEGIN   {MAIN}
  116. finished := FALSE;
  117. cancel:= FALSE;
  118. goBack:= FALSE;
  119. which:= 1;
  120. HELP1;
  121. HELP2;
  122. HELP3;
  123. HELP4;
  124. HELP5;
  125. HELP6;
  126. REPEAT
  127.     GetDialog(which);
  128.     finished := FALSE;
  129.     cancel:= FALSE;
  130.     REPEAT DialogEvent(item);
  131.         IF item = 1 THEN
  132.         BEGIN
  133.             finished := TRUE;
  134.             cancel := TRUE;
  135.         END;
  136.         IF item >1 THEN
  137.         BEGIN
  138.             finished := TRUE;
  139.             cancel := FALSE;
  140.             which:= 1;
  141.         END;
  142.     UNTIL finished;
  143.     CLRDIALOG;
  144.     IF item = 4 THEN which:= 2;
  145.     IF item = 5 THEN which:= 3;
  146.     IF item = 6 THEN which:= 4;
  147.     IF item = 7 THEN which:= 5;
  148.     IF item = 8 THEN which:= 6;
  149. UNTIL cancel = TRUE;
  150. END;  {OF MAIN}
  151. RUN(HelpLinks);
  152.