home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / OPBONUS.ZIP / FLEXHDR.LZH / FLEXTEST.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1990-03-09  |  1.3 KB  |  51 lines
  1. (*
  2.  This program demonstrates how to create a window frame that contains a
  3.  FlexHeader. It counts on the FlexHdr unit, which derives a new header type
  4.  from the existing HeaderNode object.
  5. *)
  6.  
  7. {$S-,R-,V-,I-,B-,F-,A-}
  8.  
  9. program FlexTest;
  10. uses
  11.   opstring, opcrt, opframe, opwindow, flexhdr;
  12.  
  13. const
  14.   TestColorSet : ColorSet = (
  15.     TextColor       : $3B; TextMono      : $07;
  16.     CtrlColor       : $07; CtrlMono      : $07;
  17.     FrameColor      : $4F; FrameMono     : $0F;
  18.     HeaderColor     : $2E; HeaderMono    : $70;
  19.     ShadowColor     : $07; ShadowMono    : $70
  20.   );
  21.   FlexColor : FlexAttrs = ($4B, $4F, $4D, $4E);
  22.   FlexMono : FlexAttrs = ($07, $0F, $70, $01);
  23.  
  24. var
  25.   w : RawWindow;
  26.   kw : word;
  27.  
  28. begin
  29.   clrscr;
  30.   w.initcustom(10, 5, 40, 15, TestColorSet,
  31.                wClear+wSaveContents+wBordered+wResizeable);
  32.   with w, wFrame do begin
  33.     addheader(' hello world ', heBR);
  34.     addanyheader(new(flexheaderptr,
  35.                      init(^A'╡'^A' flexy '^B'color'^B' title '^A'╞'^A,
  36.                           FlexColor, FlexMono, heTC, @wFrame)));
  37.   end;
  38.   w.draw;
  39.   kw := readkeyword;
  40.   for kw := 1 to 5 do begin
  41.     w.resizewindow(2, 1);
  42.     delay(500);
  43.   end;
  44.   for kw := 1 to 5 do begin
  45.     w.resizewindow(-2, -1);
  46.     delay(500);
  47.   end;
  48.   kw := readkeyword;
  49.   w.erase;
  50. end.
  51.