home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / tegl_ii / intro / autorot.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-04-05  |  505 b   |  31 lines
  1. {-- Program to illustrate auto rotation of frames by using setautorotate. }
  2. {-- Whichever frame is clicked on will move to the top. }
  3.  
  4. Uses
  5.     TEGLIntr,
  6.     TEGLUnit,
  7.     TEGLMain;
  8.  
  9.  
  10. VAR fs : ImageStkPtr;
  11.  
  12.  
  13. BEGIN
  14.  
  15.    EasyTEGL;
  16.    EasyOut;
  17.  
  18.    {-- create the first frame }
  19.  
  20.    PushImage(1,1,100,100);
  21.    ShadowBox(1,1,100,100);
  22.  
  23.    {-- then create the second frame }
  24.    PushImage(50,50,150,150);
  25.    ShadowBox(50,50,150,150);
  26.  
  27.    SetAutoRotate(True);
  28.  
  29.    TEGLSupervisor;
  30. END.
  31.