home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 May / PCWorld_2003-05_cd.bin / Software / Vyzkuste / divfix / Source / Parameters.pas < prev   
Pascal/Delphi Source File  |  2002-09-08  |  2KB  |  62 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 Parameters;
  19.  
  20. interface
  21.  
  22. uses
  23.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  24.   StdCtrls, ExtCtrls;
  25.  
  26. type
  27.   TForm3 = class(TForm)
  28.     Label1: TLabel;
  29.     Label2: TLabel;
  30.     Label3: TLabel;
  31.     Label4: TLabel;
  32.     Bevel1: TBevel;
  33.     Label5: TLabel;
  34.     Button1: TButton;
  35.     Label6: TLabel;
  36.     Label7: TLabel;
  37.     Label8: TLabel;
  38.     Label9: TLabel;
  39.     Label10: TLabel;
  40.     Label11: TLabel;
  41.     procedure Button1Click(Sender: TObject);
  42.   private
  43.     { Private declarations }
  44.   public
  45.     { Public declarations }
  46.   end;
  47.  
  48. var
  49.   Form3: TForm3;
  50.  
  51. implementation
  52.  
  53. {$R *.DFM}
  54.  
  55. procedure TForm3.Button1Click(Sender: TObject);
  56. begin
  57.     Form3.Button1.Cancel:=False;
  58.     Form3.Close;
  59. end;
  60.  
  61. end.
  62.