home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 November / PCWorld_2005-11_cd.bin / software / vyzkuste / divfix / DivFix110.exe / Source / Parameters.pas < prev   
Encoding:
Pascal/Delphi Source File  |  2003-03-24  |  1.7 KB  |  71 lines
  1. {DivFix is a utility for reindexing partial DivX AVI movies
  2. Copyright (C) 2000-2003  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. {$DEFINE WINDOWS}
  20.  
  21. interface
  22.  
  23. uses
  24.     SysUtils, Classes,
  25. {$IFDEF WINDOWS}
  26.   Windows, Messages, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
  27. {$ELSE}
  28.     QGraphics, QControls, QForms, QDialogs, QStdCtrls, QExtCtrls;
  29. {$ENDIF}
  30.  
  31. type
  32.   TForm3 = class(TForm)
  33.     Label1: TLabel;
  34.     Label2: TLabel;
  35.     Label3: TLabel;
  36.     Label4: TLabel;
  37.     Bevel1: TBevel;
  38.     Label5: TLabel;
  39.     Button1: TButton;
  40.     Label6: TLabel;
  41.     Label7: TLabel;
  42.     Label8: TLabel;
  43.     Label9: TLabel;
  44.     Label10: TLabel;
  45.     Label11: TLabel;
  46.     procedure Button1Click(Sender: TObject);
  47.   private
  48.     { Private declarations }
  49.   public
  50.     { Public declarations }
  51.   end;
  52.  
  53. var
  54.   Form3: TForm3;
  55.  
  56. implementation
  57.  
  58. {$IFDEF WINDOWS}
  59. {$R *.DFM}
  60. {$ELSE}
  61. {$R *.dfm}
  62. {$ENDIF}
  63.  
  64. procedure TForm3.Button1Click(Sender: TObject);
  65. begin
  66.     Form3.Button1.Cancel:=False;
  67.     Form3.Close;
  68. end;
  69.  
  70. end.
  71.