home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOTDEMO.ZIP / DEMSH1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-11  |  601 b   |  24 lines
  1. program DemoShadow1;
  2. {demsh1}
  3.  
  4. Uses DOS, CRT,
  5.      totFAST;
  6.  
  7. begin         
  8.    with Screen do
  9.    begin
  10.       Clear(white,'░'); {paint the screen}
  11.       ShadFillBox(3,3,20,8,31,1);
  12.       ShadowTOT^.SetShadowStyle(Upleft,lightgray,' ');
  13.       ShadFillBox(3,12,20,19,47,2);
  14.       ShadowTOT^.SetShadowStyle(Downleft,lightblue,' ');
  15.       ShadowTOT^.SetShadowSize(4,1);
  16.       ShadFillBox(35,2,70,10,94,3);
  17.       ShadowTOT^.SetShadowStyle(DownLeft,white,'!');
  18.       ShadFillBox(40,13,60,18,15,4);
  19.       ShadowTOT^.SetDefaults;
  20.       ShadFillBox(5,21,75,23,78,5);
  21.    end; {with}
  22. end.
  23.  
  24.