home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 31 / CDASC_31_1996_juillet_aout.iso / index / source / directo.pas < prev    next >
Pascal/Delphi Source File  |  1995-08-08  |  1KB  |  47 lines
  1. { Ceci dΘcrit l'unitΘ qui permet de modifier de faτon interactive le rΘpertoire principal ou se
  2.   trouve les fichiers dΘcrivant le contenus des CD, gΘnΘralement ce sera le rΘpertoire du CD-ROM.}
  3. unit Directo;
  4.  
  5. interface
  6.  
  7. uses
  8.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  9.   Forms, Dialogs, StdCtrls, FileCtrl;
  10.  
  11. type
  12.   TRepForm = class(TForm)
  13.     DirectoryBox: TDirectoryListBox;
  14.     Drive: TDriveComboBox;
  15.     Button1: TButton;
  16.     Button2: TButton;
  17.     FileList: TFileListBox;
  18.     procedure DriveChange(Sender: TObject);
  19.     procedure DirectoryBoxChange(Sender: TObject);
  20.   private
  21.     { Private-dΘclarations }
  22.   public
  23.     { Public-dΘclarations }
  24.   end;
  25.  
  26. var
  27.   RepForm: TRepForm;
  28.  
  29. implementation
  30.  
  31. {$R *.DFM}
  32.  
  33.  
  34. procedure TRepForm.DriveChange(Sender: TObject);
  35. begin
  36.      { Si on change de lecteur, on rafraichit la fenΩtre des rΘpertoires. }
  37.      DirectoryBox. Drive := Drive. drive ;
  38. end;
  39.  
  40. procedure TRepForm.DirectoryBoxChange(Sender: TObject);
  41. begin
  42.      { Si on change de rΘpertoire on rafraichit la fenΩtre des fichiers. }
  43.      FileList. Directory := DirectoryBox. Directory ;
  44. end;
  45.  
  46. end.
  47.