home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
pascal
/
library
/
dos
/
tegl_ii
/
intro
/
simmouse.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-04-04
|
350b
|
25 lines
{-- This program draws a frame then waits for a mouse button to be pressed }
{-- then disposes of it. }
Uses
TEGLIntr,
TEGLUnit,
TEGLMain;
BEGIN
EasyTEGL;
EasyOut;
PushImage(1,1,100,100);
ShadowBox(1,1,100,100);
ShowMouse;
WHILE Mouse_Buttons = 0 DO;
PopImage;
TEGLSupervisor;
END.