{
   [big_fury]
  888888888    8888  888888888888  8888     888888888     8888      8888   888888888
8888888888888  8888  888888888888  8888   8888888888888   8888      8888 8888888888888
8888     8888              88888         8888       8888  8888      8888 8888     8888
888888888      8888      888888    8888 8888         8888 8888      8888 888888888
  8888888888   8888     88888      8888 8888         8888 8888      8888   88888888888
       888888  8888   88888        8888 8888         8888 8888      8888         888888
8888      8888 8888  88888         8888  8888       8888  8888      8888 8888      8888
8888888888888  8888 88888888888888 8888   8888888888888    888888888888  8888888888888
  8888888888   8888 88888888888888 8888     888888888       8888888888     8888888888

  Unité PageControl
  =================

Description :
        Unité permettant de manipuler un TPageControl afin de faire un dialog
        style "wizard" (à l'InstallShield, avec Suivant, Précédent...).
        Ce code est utilisé dans mon programme fétiche, nommé SBI Builder.
        Il permet de changer de TabSheet en lancant la procédure indiquée.

Procédures : GoNext : Permet de changer la page active à la page suivante.
                      Bloque dès qu'il n'y a plus de pages après la suivante.
             GoPrev : Permet de changer la page active à la page précédente.
                      Bloque dès qu'il n'y a plus de pages après la précédente.

Auteur     : [big_fury]SiZiOUS

E-mail     : sizious@yahoo.fr

URL        : http://www.sbibuilder.fr.st

Remarques : Merci à Vector du forum Phidels.com pour m'avoir donné la piste.

}

unit pgctrl;

interface

//Exportation des fonctions.
procedure GoNext;
procedure GoPrev;

implementation

uses Main;

{ ----------------------------< DEBUT DES PROCEDURES >------------------------ }

{ ------------------------------< Fonction GoNext >--------------------------- }

procedure GoNext;
var
  Index_main, MaxPages_main : integer;

begin
  Index_main     := Form1.PageControl1.ActivePageIndex;
  MaxPages_main  := Form1.PageControl1.PageCount;
  if (Index_main + 1) >= MaxPages_main then Exit;    //Si on peut pas changer, on se casse.
  Form1.PageControl1.ActivePageIndex := Index_main + 1;
end;

{ ------------------------------< Fonction GoPrev >--------------------------- }

procedure GoPrev;
var
  Index_main : integer;

begin
  Index_main     := Form1.PageControl1.ActivePageIndex;
  if (Index_main - 1) = -1 then Exit;  //Si on peut pas changer, on se casse.
  Form1.PageControl1.ActivePageIndex := Index_main - 1;
end;

{ ------------------------------< FIN DES PROCEDURES >------------------------ }

end.


