home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 572 / xgrafic2 / demos / demo12.pas < prev    next >
Pascal/Delphi Source File  |  1994-07-22  |  568b  |  30 lines
  1. USES XGRAPHIC;
  2.  
  3.  var fin : integer;
  4.  
  5. BEGIN
  6.     modevga480;
  7.     initsouris;
  8.  
  9.     choisirpolice(1,1);
  10.     texte(10,50,11,'CLICKEZ SUR LA NEIGE POUR QUITTER');
  11.     affichesouris;
  12.  
  13.     fin := 0;
  14.     while fin = 0
  15.     do begin
  16.  
  17.         neige(300,200,340,240);
  18.         fadeinpixel(200,300,380,330);
  19.         attendrems(1);
  20.         fadeoutpixel(200,300,280,330);
  21.         texte(220,310,11,'PIXELS');
  22.         
  23.  
  24.         if clickobjet(300,200,340,240) = 1
  25.         then begin
  26.            finmodegraphique;
  27.            fin := 1;
  28.         end;
  29.     end;
  30. END.