home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 572 / xgrafic2 / demos / demo09.pas < prev    next >
Pascal/Delphi Source File  |  1994-07-22  |  3KB  |  120 lines
  1. USES XGRAPHIC;
  2.  
  3. var nom, prenom, age : string;
  4.  
  5.     fin : integer;
  6.  
  7.     case1, case2, case3 : integer;
  8.  
  9.  
  10. BEGIN
  11.    modevga480;
  12.    initsouris;
  13.  
  14.    fenetre3d(50,50,580,250,3,11,1,'EXEMPLE DES FONCTIONS DE SAISIES AVEC XGRAPHIC');
  15.    fenetre3d(450,280,540,315,6,16,14,'QUITTER');
  16.  
  17.    texte(70,90,16,'VOTRE NOM     : ');
  18.    texte(70,115,16,'VOTRE PRENOM  : ');
  19.    texte(70,138,11,'VOTRE AGE     : ');
  20.    texte(70,155,11,'NATIONALITE : ');
  21.    texte(250,175,16,'FRANCAISE');
  22.    texte(250,190,16,'ANGLAISE');
  23.    texte(250,205,16,'JAPONAISE');
  24.  
  25.    {Cette fonction gère aussi la touche entrée et la touche <── }
  26.    nom := Saisiechaine3din(20,200,80,1,14);
  27.    prenom := Saisiechaine3d(15,200,105,7,16);
  28.  
  29.    age := saisiechaine3din(3,200,130,4,15);
  30.  
  31.    cadre3d(10,420,600,460,7);
  32.    texte3d(20,430,15,16,'VOUS VOUS APPELEZ '+nom+' '+prenom+' ET VOUS AVEZ '+age+' ANS.');
  33.  
  34.  
  35.    caseacocher(220,170,7);
  36.    caseacocher(220,185,7);
  37.    caseacocher(220,200,7);
  38.  
  39.    affichesouris;
  40.  
  41.    fin := 0;
  42.    case1 := 0;
  43.    case2 := 0;
  44.    case3 := 0;
  45.  
  46.    while fin = 0
  47.    do begin
  48.  
  49.          if fermeturefenetre3d(450,280,540,315,16) = 1
  50.          then begin
  51.              finmodegraphique;
  52.              fin := 1;
  53.          end;
  54.  
  55.          if clickobjet(220,170,230,180) = 1
  56.          then begin
  57.               if case1 = 0
  58.               then begin
  59.                  cachesouris;
  60.                  cochecase(220,170,1,15);
  61.                  decochecase(220,185,7,15);
  62.                  decochecase(220,200,7,15);
  63.                  case1 := 1;
  64.                  remplissage(10,300,400,320,16);
  65.                  texte(13,303,11,'VOUS AVEZ LA NATIONALITE FRANCAISE');
  66.                  affichesouris;
  67.               end;
  68.               if case1 = 1
  69.               then begin
  70.                  cachesouris;
  71.                  decochecase(220,170,1,15);
  72.                  case1 := 0;
  73.                  affichesouris;
  74.               end;
  75.          end;
  76.  
  77.          if clickobjet(220,185,230,195) = 1
  78.          then begin
  79.               if case2 = 0
  80.               then begin
  81.                  cachesouris;
  82.                  decochecase(220,170,7,15);
  83.                  cochecase(220,185,1,15);
  84.                  decochecase(220,200,7,15);
  85.                  case2 := 1;
  86.                  affichesouris;
  87.                  remplissage(10,300,400,320,16);
  88.                  texte(13,303,11,'VOUS AVEZ LA NATIONALITE ANGLAISE');
  89.               end;
  90.               if case2 = 1
  91.               then begin
  92.                  cachesouris;
  93.                  decochecase(220,185,1,15);
  94.                  case2 := 0;
  95.                  affichesouris;
  96.               end;
  97.          end;
  98.          if clickobjet(220,200,230,210) = 1
  99.          then begin
  100.               if case3 = 0
  101.               then begin
  102.                   cachesouris;
  103.                  decochecase(220,170,7,15);
  104.                  decochecase(220,185,7,15);
  105.                  cochecase(220,200,1,15);
  106.                  case3 := 1;
  107.                  affichesouris;
  108.                  remplissage(10,300,400,320,16);
  109.                  texte(13,303,11,'VOUS AVEZ LA NATIONALITE JAPONAISE');
  110.               end;
  111.               if case3 = 1
  112.               then begin
  113.                  cachesouris;
  114.                  decochecase(220,200,1,15);
  115.                  case3 := 0;
  116.                  affichesouris;
  117.               end;
  118.          end;
  119.    end;
  120. END.