home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRTP.ZIP / demo_kylix / graphtest.ifs < prev    next >
Text File  |  2001-03-05  |  205b  |  13 lines
  1. Program CajScriptTest;
  2. uses
  3.   graph;
  4. Begin
  5.   ShowPaintWindow(400,500);
  6.   Clear($0);
  7.   FilledRectangle(0,0,10,10,$FFFF);
  8.   Line(0,0,100,100,$FF00FF);
  9.   circle(20,20,20,$FFFFFF);
  10.   Update;
  11. End.
  12.  
  13.