home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TGTP60.ZIP / INTROPAK.EXE / SIMMOUSE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-04-05  |  350 b   |  25 lines
  1. {-- This program draws a frame then waits for a mouse button to be pressed }
  2. {-- then disposes of it. }
  3.  
  4.  
  5. Uses
  6.     TEGLIntr,
  7.     TEGLUnit,
  8.     TEGLMain;
  9.  
  10.  
  11. BEGIN
  12.  
  13.    EasyTEGL;
  14.    EasyOut;
  15.  
  16.    PushImage(1,1,100,100);
  17.    ShadowBox(1,1,100,100);
  18.    ShowMouse;
  19.  
  20.    WHILE Mouse_Buttons = 0 DO;
  21.    PopImage;
  22.  
  23.    TEGLSupervisor;
  24. END.
  25.