home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 May / PCWorld_2003-05_cd.bin / Software / Vyzkuste / divfix / Source / DirRequester.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2002-09-21  |  1.9 KB  |  71 lines
  1. {DivFix is a utility for reindexing partial DivX AVI movies
  2. Copyright (C) 2000-2002  Csaba Budai
  3.  
  4. This program is free software; you can redistribute it and/or modify
  5. it under the terms of the GNU General Public License as published by
  6. the Free Software Foundation; either version 2 of the License, or
  7. (at your option) any later version.
  8.  
  9. This program is distributed in the hope that it will be useful,
  10. but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12. GNU General Public License for more details.
  13.  
  14. You should have received a copy of the GNU General Public License
  15. along with this program; if not, write to the Free Software
  16. Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA}
  17.  
  18. unit DirRequester;
  19.  
  20. interface
  21.  
  22. uses
  23.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  24.   StdCtrls, FileCtrl;
  25.  
  26. type
  27.   TForm4 = class(TForm)
  28.     DirectoryListBox1: TDirectoryListBox;
  29.     Button1: TButton;
  30.     Button2: TButton;
  31.     DriveComboBox1: TDriveComboBox;
  32.     procedure Button1Click(Sender: TObject);
  33.     procedure Button2Click(Sender: TObject);
  34.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  35.   private
  36.     { Private declarations }
  37.   public
  38.     { Public declarations }
  39.   end;
  40.  
  41. var
  42.   Form4: TForm4;
  43.  
  44. implementation
  45.  
  46. uses DivX;
  47.  
  48. {$R *.DFM}
  49.  
  50. procedure TForm4.Button1Click(Sender: TObject);
  51. begin
  52.     If Copy(DirectoryListBox1.Directory,Length(DirectoryListBox1.Directory),1)='\' Then
  53.   Form1.MaskEdit2.Text:=DirectoryListBox1.Directory
  54.   Else Form1.MaskEdit2.Text:=DirectoryListBox1.Directory+'\';
  55.   Form1.Enabled:=True;
  56.   Form4.Close;
  57. end;
  58.  
  59. procedure TForm4.Button2Click(Sender: TObject);
  60. begin
  61.   Form1.Enabled:=True;
  62.   Form4.Close;
  63. end;
  64.  
  65. procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
  66. begin
  67.     Form1.Enabled:=True;
  68. end;
  69.  
  70. end.
  71.