home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
pascal
/
library
/
dos
/
tegl_ii
/
intro
/
simple.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-04-04
|
593b
|
23 lines
{-- a simple program that draws a blank frame on the screen. The left }
{-- mouse button can be used to move it around. To exit the program click}
{-- on the EASY OUT button that is displayed in the bottom right corner. }
Uses
TEGLUnit,
TEGLMain;
BEGIN
EasyTEGL; {-- simple start up }
EasyOut; {-- displays a button to break out with }
PushImage(1,1,100,100); {-- save the background and }
ShadowBox(1,1,100,100); {-- then draw a box over it. }
TEGLSupervisor; {-- pass control to the supervisor }
END.