Merge branch 'master' into featureShowGrid

gaudigraph.adb

@@ -12,7 +12,7 @@ begin
   triVectGaudi(V);
   close(f);
 
-  initialiserFenetres;
+  accueil;
   fen := debutFenetre("Test", 500, 500);
   afficherGrille(fen, 50, 50, V);
   ajouterBouton(fen, "continuer", "Next", 225, 470, 50, 50);

p_vue_graph.adb

@@ -1,5 +1,5 @@
-with p_fenbase, Forms, p_combinaisons, Ada.Strings, Ada.Strings.Fixed, text_io;
-use  p_fenbase, Forms, p_combinaisons, Ada.Strings, Ada.Strings.Fixed, text_io, p_combinaisons.p_int_io;
+with p_fenbase, Forms, p_combinaisons, Ada.Strings, Ada.Strings.Fixed;
+use  p_fenbase, Forms, p_combinaisons, Ada.Strings, Ada.Strings.Fixed;
 
 package body p_vue_graph is
 
@@ -35,4 +35,46 @@ package body p_vue_graph is
     end loop;
   end afficherGrille;
 
+  procedure accueil is
+    fenetre : TR_Fenetre;
+  begin
+    initialiserFenetres;
+    fenetre:= DebutFenetre("Acceuil",500,500);
+    for i in 3..7 loop
+      ajouterBouton(fenetre, integer'image(i)(2..2),integer'image(i)(2..2), 75+(75*(i-3)) , 300, 50, 50);
+      changerTailleTexte(fenetre, integer'image(i)(2..2),FL_MEDIUM_SIZE);
+      changerStyleTexte(fenetre, integer'image(i)(2..2), FL_BOLD_STYLE);
+    end loop;
+    ajouterBouton(fenetre, "Contigue", "Solutions contigue", 35 , 375 , 200 , 50);
+    ajouterBouton(fenetre, "Normal", "Toutes les solutions", 265 , 375 , 200 , 50);
+    ajouterBouton(fenetre, "Fermer", "Quitter", 200 , 450 , 100 , 50);
+    ajouterTexte(fenetre, "Textintro", "Lorem ipsum dolor sit amet, tempor incididu labore et dolor ", 50,100,400,20);
+    ajouterTexte(fenetre, "Textintro2", "Lorem ipsum dolor sit amet, tempor incididu labore et dolor ", 50,112,400,20);
+    ajouterTexte(fenetre, "Textintro3", "Lorem ipsum dolor sit amet, tempor incididu labore et dolor ", 50,124,400,20);
+    finFenetre(fenetre);
+    montrerFenetre(fenetre);
+    appuiBoutonAccueil(attendreBouton(fenetre),fenetre);
+  end accueil;
+
+  procedure appuiBoutonAccueil (Elem : in string; fenetre : in out TR_Fenetre) is
+
+  begin --
+    if Elem in "3" | "4" | "5" | "6" | "7" then
+      for i in 3..7 loop
+          changerCouleurTexte(fenetre,integer'image(i)(2..2), FL_BLACK);
+      end loop;
+      changerCouleurTexte(fenetre,Elem , FL_DOGERBLUE);
+      nbCasesSolution := integer'value(elem);
+      appuiBoutonAccueil(attendreBouton(fenetre),fenetre);
+    elsif Elem in "Contigue" | "Normal" then
+      --fenetreJeu(Elem,fenetre)
+      Null;
+    elsif Elem = "Fermer" then
+      CacherFenetre(fenetre);
+    else
+      appuiBoutonAccueil(attendreBouton(fenetre),fenetre);
+    end if;
+
+  end appuiBoutonAccueil;
+
 end p_vue_graph;

p_vue_graph.ads

@@ -2,8 +2,13 @@ with p_fenbase, p_combinaisons;
 use  p_fenbase, p_combinaisons;
 
 package p_vue_graph is
+  nbCasesSolution : integer;
 
   procedure afficherGrille(fen: in out TR_Fenetre; x,y: in natural; V: in TV_Gaudi);
   -- {} => {Affiche la grille avec le bord gauche à la position (x,y)}
 
+  procedure accueil;
+
+  procedure appuiBoutonAccueil (Elem : in string; fenetre : in out TR_Fenetre);
+
 end p_vue_graph;