home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sibdemo3.zip / SAMPLES.DAT / SAMPLES / FILEINFO / FILEINFO.PAS next >
Pascal/Delphi Source File  |  1997-07-08  |  746b  |  29 lines
  1. program FileInfo;
  2.  
  3. (* Simple file and directory browser, demonstrates the
  4.    use of the following controls:
  5.  
  6.      TDriveComboBox   TDirectoryListBox   TFileListBox
  7.  
  8.    Use the object inspector to see the how controls are
  9.    linked to each other via the following properties:
  10.  
  11.      DirList          FileList            FileEdit
  12.  
  13.    The controls are notified whenever the user chooses
  14.    a new drive, directory, or file. Upon file select
  15.    the edits and checkboxes in the form's lower part
  16.    are filled with information on the selected file.    *)
  17.  
  18. Uses
  19.   Forms, Graphics, fileu1;
  20.  
  21. {$r FileInfo.scu}
  22.  
  23. begin
  24.   Application.Create;
  25.   Application.CreateForm (TForm1, Form1);
  26.   Application.Run;
  27.   Application.Destroy;
  28. end.
  29.