home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / template.exe / DS_BOX.COD < prev    next >
Encoding:
Text File  |  1992-03-10  |  3.8 KB  |  114 lines
  1. //
  2. // Module Name: DS_BOX.COD
  3. // Description: Used to build graphics boxes for IBM compatible printers
  4. //
  5. {//  This is a template language verison of SCREEN() - so that we can output
  6.  //  graphics characters around boxes.
  7.  
  8.    do while cnt < scrn_size
  9.     line = space(col1());
  10.  
  11.     if cnt < 10 and barflag then
  12.        linecnt = "0"+str(cnt);
  13.      else
  14.        if barflag then // bar flag test for processing a bar menu
  15.          linecnt = str(cnt);
  16.        endif
  17.     endif
  18.  
  19.     if cnt == row1() then  // START OF BOX
  20.       case Mnu_Border of
  21.         0: line=line+chr(219)+replicate(chr(219),(col2()-col1())-1)+chr(219);
  22.         1: line=line+chr(218)+replicate(chr(196),(col2()-col1())-1)+chr(191);
  23.         2: line=line+chr(201)+replicate(chr(205),(col2()-col1())-1)+chr(187);
  24.         3: line=line+" "+replicate(" ",(col2()-col1())-1)+" ";
  25.       endcase
  26.     endif
  27.  
  28.     if cnt == row2() then // END OF BOX
  29.       case Mnu_Border of
  30.         0: line=line+chr(219)+replicate(chr(219),(col2()-col1())-1)+chr(219);
  31.         1: line=line+chr(192)+replicate(chr(196),(col2()-col1())-1)+chr(217);
  32.         2: line=line+chr(200)+replicate(chr(205),(col2()-col1())-1)+chr(188);
  33.         3: line=line+" "+replicate(" ",(col2()-col1())-1)+" ";
  34.       endcase
  35.     endif
  36.  
  37.     if cnt > row1() and cnt < row2() then  // Lines between box
  38.  
  39.       // Test to see if we processed fields or lines of text yet
  40.       if forflag then
  41.  
  42.         if Menu_Type == app then // if app process text lines
  43.            foreach Text_Element tline
  44.             skipline:
  45.             if row1()+Row_Positn == cnt then // on a line of text
  46.                get_box_text(line,linecnt,text_item,col_positn);
  47.             else // this is a blank line in object
  48.                line = space(col1());
  49.                case Mnu_Border of
  50.                  0: line=line+chr(219)+replicate(" ",(col2()-col1())-1)+chr(219);
  51.                  1: line=line+chr(179)+replicate(" ",(col2()-col1())-1)+chr(179);
  52.                  2: line=line+chr(186)+replicate(" ",(col2()-col1())-1)+chr(186);
  53.                  3: line=line+" "+replicate(" ",(col2()-col1())-1)+" ";
  54.                endcase
  55.                if cnt < 10 then
  56.                  linecnt = "0"+str(cnt);
  57.                else
  58.                  linecnt = str(cnt);
  59.                endif
  60.                print(substr(linecnt+":"+line,1,80)+crlf);
  61.                ++cnt;
  62.                goto skipline;
  63.             endif
  64.            next tline; 
  65.  
  66.         else // Process fields in object
  67.            foreach Fld_Element flds
  68.              get_box_text(line,linecnt,Fld_Pictur,col_positn);
  69.            next flds; 
  70.         endif
  71.  
  72.         if Menu_Type == bar then
  73.           mspace2 = space((col2()-len(line)));
  74.           case Mnu_Border of
  75.             0: line = line + mspace2 + chr(219);
  76.             1: line = line + mspace2 + chr(179);
  77.             2: line = line + mspace2 + chr(186);
  78.             3: line = line + mspace2 + " ";
  79.           endcase
  80.           print(substr(linecnt+":"+line,1,80)+crlf);
  81.           endif
  82.       else
  83.         if Menu_Type != bar then
  84.           case Mnu_Border of
  85.            0: line=line+chr(219)+replicate(" ",(col2()-col1())-1)+chr(219);
  86.            1: line=line+chr(179)+replicate(" ",(col2()-col1())-1)+chr(179);
  87.            2: line=line+chr(186)+replicate(" ",(col2()-col1())-1)+chr(186);
  88.            3: line=line+" "+replicate(" ",(col2()-col1())-1)+" ";
  89.           endcase
  90.           print(substr(linecnt+":"+line,1,80)+crlf);
  91.         endif
  92.         ++cnt;
  93.       endif // forflag
  94.  
  95.       forflag=0;
  96.       loop;
  97.     endif // cnt > row1() and cnt < row2() then
  98.  
  99.     if line > row2() then
  100.       line = "";
  101.     endif
  102.  
  103.     if cnt < 10 then
  104.       linecnt = "0"+str(cnt);
  105.     else
  106.       linecnt = str(cnt);
  107.     endif
  108.  
  109.     print(substr(linecnt+":"+line,1,80)+crlf);
  110.     ++cnt;
  111.    enddo
  112. }
  113. // EOP DS_BOX.COD
  114.