home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / BOXFRAMZ.ZIP / BOX1.PAS next >
Encoding:
Pascal/Delphi Source File  |  1988-01-19  |  1.7 KB  |  45 lines
  1. {          ┌────────────────────────────────────────────────────────┐
  2.            │  (c) Jan 1988         Box1.PAS          John Tribbett  │
  3.            │                                                        │
  4.            │  Procedure produces frame like you see here.           │
  5.            │  Export to other programs, or use as an include file.  │
  6.            │  The calling sequence is : Box1(boolean,x1,y1,x2,y2);  │
  7.            │  Select your own textbackground and textcolor.         │
  8.            │  See sample program DRAWBOX.PAS for proper syntax.     │
  9.            │                                                        │
  10.            │  If you find BOX FRAMES helpful, send $5.00 to:        │
  11.            │  John Tribbett; 778 Mildred Ln SE; Salem, OR  97306    │
  12.            └────────────────────────────────────────────────────────┘
  13. }
  14. procedure box1(shadow : boolean; x1,y1,x2,y2 : integer);
  15. var I : integer;
  16. begin
  17.   I := 0;
  18.   window(1,1,80,25);
  19.   IF shadow = TRUE
  20.     then
  21.       begin
  22.         window(x1-2,y1+2,x2-2,y2+1);
  23.         textbackground(0);
  24.         clrscr;
  25.         window(1,1,80,25);
  26.       end;
  27.   textbackground(0);
  28.   textcolor(1);
  29.   gotoxy(x1,y1);   write('┌');      {top left corner}
  30.   gotoxy(x1+1,y1);                  {top row}
  31.   for I := x1+1 to x2-1 do
  32.     write('─');
  33.   gotoxy(x2,y1);  write('┐');       {top right corner}
  34.   for I := y1+1 to y2-1 do
  35.     begin
  36.       gotoxy(x1,I); write('│');     {left side}
  37.       gotoxy(x2,I); write('│');     {right side}
  38.     end;
  39.   gotoxy(x1,y2);  write('└');       {bottom left corner}
  40.   for I := x1+1 to x2-1 do
  41.     write('─');                     {bottom row}
  42.   gotoxy(x2,y2); write('┘');        {bottom right corner}
  43.   window(x1+1,y1+1,x2-1,y2-1);
  44. end;
  45.