home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / Chip_1998-03_cd.bin / zkuste / delphi / komprese / zip / DELZIP12.ZIP / DEMO1.ZIP / EXTRUNIT.PAS < prev    next >
Pascal/Delphi Source File  |  1997-09-28  |  2KB  |  78 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.     RadioGroup3: TRadioGroup;
  21.     procedure OKButClick(Sender: TObject);
  22.     procedure CancelButClick(Sender: TObject);
  23.     procedure FormCreate(Sender: TObject);
  24.     procedure FormActivate(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  30.  
  31. var
  32.   Extract: TExtract;
  33.  
  34. implementation
  35.  
  36. uses MainUnit;
  37.  
  38. {$R *.DFM}
  39.  
  40. procedure TExtract.OKButClick(Sender: TObject);
  41. begin
  42.    MainUnit.Canceled:=False;
  43.    MainUnit.ExtractDir:=DirectoryListBox1.Directory;
  44.    if RadioGroup1.ItemIndex = 0 then
  45.       MainUnit.ExpandDirs:=False
  46.    else
  47.       MainUnit.ExpandDirs:=True;
  48.    if RadioGroup2.ItemIndex = 0 then
  49.       MainUnit.Overwr:=False
  50.    else
  51.       MainUnit.Overwr:=True;
  52.    if RadioGroup3.ItemIndex = 0 then
  53.       MainUnit.AllFiles:=True
  54.    else
  55.       MainUnit.AllFiles:=False;
  56.    Close;
  57. end;
  58.  
  59. procedure TExtract.CancelButClick(Sender: TObject);
  60. begin
  61.    MainUnit.ExtractDir:='';
  62.    Close;
  63. end;
  64.  
  65. procedure TExtract.FormCreate(Sender: TObject);
  66. begin
  67.    RadioGroup1.ItemIndex := 0;  // dflt: do not expand dirs
  68.    RadioGroup2.ItemIndex := 1;  // dflt: overwrite existing files
  69.    RadioGroup3.ItemIndex := 0;  // dflt: extract all files
  70. end;
  71.  
  72. procedure TExtract.FormActivate(Sender: TObject);
  73. begin
  74.    MainUnit.Canceled:=True; { default }
  75. end;
  76.  
  77. end.
  78.