home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / NEWPC_TP.ZIP / DRAWBOX.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-09-30  |  926 b   |  36 lines
  1. Procedure drawbox_ibm (x1,y1,x2,y2,FG,BG : Integer; boxname : names; blnk : boolean);
  2. Begin
  3.   window (x1,y1,x2,y1+1);
  4.   textbackground(BG);
  5.   GotoXY(1,1);
  6.   x := x2-x1;
  7.   if length(boxname) > x then boxname[0] := chr(x-4);
  8.   textcolor(FG);
  9.   Write('╒');
  10.   if blnk then textcolor(FG + blink) else textcolor(fg);
  11.   write (boxname);
  12.   textcolor(FG);
  13.   for q := x1+length(boxname)+1 to x2-1 do Write('═');
  14.   Write('╕');
  15.   for q := 2 to y2-y1 do
  16.     Begin
  17.       window (x1,y1,x2,y1+q+1);
  18.       GotoXY(1,q); Write('│');
  19.       if blnk then clreol;
  20.       GotoXY(x2-x1+1,q); Write('│');
  21.     end;
  22.   Window(x1,y1,x2,y2+1);
  23.   gotoXY(1,y2-y1+1);
  24.   Write('╘');
  25.   for q := x1+1 to x2-1 do Write('═');
  26.   Write('╛');
  27. end;
  28.  
  29. Procedure drawbox (x1,y1,x2,y2,FG,BG : Integer; boxname : Names; blnk : boolean);
  30. Begin
  31.   Drawbox_IBM (x1,y1,x2,y2,FG,BG,boxname,blnk);
  32.   Window (x1+1,y1+1,x2-1,y2-1);
  33.   Clrscr;
  34. end;
  35.  
  36.