home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / BOXFRAMZ.ZIP / BOX2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-19  |  1.8 KB  |  45 lines
  1. {          ╔════════════════════════════════════════════════════════╗
  2.            ║  (c) Jan 1988         Box2.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 : Box2(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 box2(shadow : boolean; x1,y1,x2,y2 : integer);
  15. var I : integer;
  16. begin
  17.   I := 0;
  18.   window(1,1,80,25);         {yours may have different coordinates}
  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(4);
  28.   textcolor(15);
  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('═');                    {botton row}
  42.   gotoxy(x2,y2); write('╝');       {bottom right corner}
  43.   window(x1+1,y1+1,x2-1,y2-1);
  44. end;
  45.