home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 31 / CDASC_31_1996_juillet_aout.iso / index / source / affiche.pas < prev    next >
Pascal/Delphi Source File  |  1995-08-23  |  2KB  |  78 lines
  1. { Ceci est l'unitΘ chargΘe de gΘrer la boεte qui affiche une description. }
  2.  
  3. unit Affiche;
  4.  
  5. interface
  6.  
  7. uses
  8.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  9.   Forms, Dialogs, StdCtrls;
  10.  
  11. type
  12.   TDescForm = class(TForm)
  13.     ListeDesc: TMemo;
  14.     Label1: TLabel;
  15.     DescLabel: TLabel;
  16.     ContBtn: TButton;
  17.     Button1: TButton;
  18.     SecSuivBtn: TButton;
  19.     MenuBtn: TButton;
  20.     QuitBtn: TButton;
  21.     procedure ContBtnClick(Sender: TObject);
  22.     procedure Button1Click(Sender: TObject);
  23.     procedure SecSuivBtnClick(Sender: TObject);
  24.     procedure MenuBtnClick(Sender: TObject);
  25.     procedure QuitBtnClick(Sender: TObject);
  26.   private
  27.     { Private-dΘclarations }
  28.   public
  29.     { Public-dΘclarations }
  30.   end;
  31.  
  32. var
  33.   DescForm: TDescForm;
  34.  
  35. implementation
  36.  
  37. {$R *.DFM}
  38.  
  39. { On utilise main uniquement afin d'avoir accΦs aux valeurs boolΘennes. }
  40. uses main ;
  41.  
  42. procedure TDescForm.ContBtnClick(Sender: TObject);
  43. begin
  44.      { On ferme simplement la boεte si on continue simplement. }
  45.      Close ;
  46. end;
  47.  
  48. procedure TDescForm.Button1Click(Sender: TObject);
  49. begin
  50.      { On remonte l'information comme quoi on veut sauter le fichier courant. }
  51.      FichierSuivant := true ;
  52.      close ;
  53. end;
  54.  
  55. procedure TDescForm.SecSuivBtnClick(Sender: TObject);
  56. begin
  57.      { On remonte l'information comme quoi on veut sauter la section courante. }
  58.      SectionSuivante := true ;
  59.      close ;
  60. end;
  61.  
  62. procedure TDescForm.MenuBtnClick(Sender: TObject);
  63. begin
  64.      { On revient au menu pour changer l'Θtendue de la recherche ou les critΦres. }
  65.      Quitte := true ;
  66.      close ;
  67. end;
  68.  
  69. procedure TDescForm.QuitBtnClick(Sender: TObject);
  70. begin
  71.      { On termine l'application et on revient au menu. }
  72.      Application. Terminate ;
  73.      Quitte := true ;
  74.      Close ;
  75. end;
  76.  
  77. end.
  78.