home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 572 / xgrafic2 / demos / demo07.pas < prev    next >
Pascal/Delphi Source File  |  1994-07-21  |  816b  |  39 lines
  1. USES XGRAPHIC;
  2.  
  3.  
  4. var fin, passage : integer;
  5.  
  6.  
  7. BEGIN
  8.    modevga480;
  9.    initsouris;
  10.    affichesouris;
  11.  
  12.    passage := 0;
  13.    fin := 0;
  14.    while fin = 0
  15.    do begin
  16.       if passage = 0
  17.       then begin
  18.  
  19.           cachesouris;
  20.           fenetre3d(50,50,590,430,1,16,14,'ICI, C''EST LE TITRE DE LA FENETRE       OU LE TITRE DE LA BOITE DE DIALOGUE');
  21.           choisirpolice(0,5);
  22.           texte3d(120,180,16,15,'FENETRE3D');
  23.           choisirpolice(2,6);
  24.           texte3d(100,250,11,9,'CLICKEZ SUR LA CASE DE FERMETURE');
  25.  
  26.           affichesouris;
  27.           passage := 1;
  28.  
  29.       end;
  30.  
  31.             if fermeturefenetre3d(50,50,590,430,16) = 1
  32.             then begin
  33.                cachesouris;
  34.                finmodegraphique;
  35.                fin := 1;
  36.             end;
  37.  
  38.    end;
  39. END.