home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / BOXFRAMZ.ZIP / DRAWBOX.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1988-01-19  |  1.3 KB  |  38 lines
  1. {          ╒═══════════════════════════════════════════════════════╕
  2.            │  DrawBox                        John Tribbett   1/88  │
  3.            │                                                       │
  4.            │  This is a sample program to draw box frames with or  │
  5.            │  without shadows, that have a text window created     │
  6.            │  inside.  DrawBox also shows the proper syntax of the │
  7.            │  using the Box Frame procedures.                      │
  8.            │  Note: Textbackground is called after Box.  This is   │
  9.            │  to dictate the window background color in the box.   │
  10.            │                                                       │
  11.            ╘═══════════════════════════════════════════════════════╛
  12. }
  13. program draw_box;
  14. uses crt;                    {brace or omit this line for TPas 3.0 }
  15. {$I Box1.PAS}
  16. {$I Box2.PAS}
  17. {$I Box3.PAS}
  18. {$I Box4.PAS}
  19. begin
  20.   clrscr;
  21.   window(1,1,80,25);
  22.   textbackground(1);
  23.   clrscr;
  24.  
  25.   box3(true,6,9,76,19);      {change coordinates for testing box placement}
  26.   textbackground(3);
  27.   clrscr;
  28.   gotoxy(3,2);
  29.   write('This box has a shadow');
  30.   delay(1000);
  31.  
  32.   box3(false,40,5,68,10);    {change coordinates for testing box placement}
  33.   textbackground(3);
  34.   clrscr;
  35.   gotoxy(3,1);
  36.   write('This box has no shadow');
  37. end.
  38.