home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / Chip_1998-03_cd.bin / zkuste / delphi / komprese / zip / DELZIP12.ZIP / DEMO3.ZIP / EXTRUNIT.PAS < prev    next >
Pascal/Delphi Source File  |  1997-09-28  |  1KB  |  66 lines
  1. unit extrunit;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls, FileCtrl;
  8.  
  9. type
  10.   TExtract = class(TForm)
  11.     Panel1: TPanel;
  12.     Panel2: TPanel;
  13.     OKBut: TButton;
  14.     CancelBut: TButton;
  15.     DirectoryListBox1: TDirectoryListBox;
  16.     RadioGroup1: TRadioGroup;
  17.     RadioGroup2: TRadioGroup;
  18.     Panel3: TPanel;
  19.     DriveComboBox1: TDriveComboBox;
  20.     procedure OKButClick(Sender: TObject);
  21.     procedure CancelButClick(Sender: TObject);
  22.     procedure FormCreate(Sender: TObject);
  23.   private
  24.     { Private declarations }
  25.   public
  26.     { Public declarations }
  27.   end;
  28.  
  29. var
  30.   Extract: TExtract;
  31.  
  32. implementation
  33.  
  34. uses Unit1;
  35.  
  36. {$R *.DFM}
  37.  
  38. procedure TExtract.OKButClick(Sender: TObject);
  39. begin
  40.    
  41.    Form1.ExtractDir:=DirectoryListBox1.Directory;
  42.    if RadioGroup1.ItemIndex = 0 then
  43.       Form1.ExpandDirs:=False
  44.    else
  45.       Form1.ExpandDirs:=True;
  46.    if RadioGroup2.ItemIndex = 0 then
  47.       Form1.Overwrite:=False
  48.    else
  49.       Form1.Overwrite:=True;
  50.    Close;
  51. end;
  52.  
  53. procedure TExtract.CancelButClick(Sender: TObject);
  54. begin
  55.    Form1.ExtractDir:='';
  56.    Close;
  57. end;
  58.  
  59. procedure TExtract.FormCreate(Sender: TObject);
  60. begin
  61.    RadioGroup1.ItemIndex := 0;  // dflt: do not expand dirs
  62.    RadioGroup2.ItemIndex := 1;  // dflt: overwrite existing files
  63. end;
  64.  
  65. end.
  66.