unit2.pas

来自「ziptv为delphi控件」· PAS 代码 · 共 153 行

Unit Unit2;

Interface

{$I compiler.inc}
{$IFDEF DEL6_OR_HIGHER}
{$WARN UNIT_PLATFORM OFF}
{$ENDIF}

Uses
   Windows,
   Messages,
   SysUtils,
   Classes,
   Graphics,
   Controls,
   Forms,
   Dialogs,
   StdCtrls,
   FileCtrl,
   ExtCtrls,
   Buttons,
   ComCtrls,
   ztvGbls;

Type
   TfrmExtract = Class(TForm)
      Edit1: TEdit;
      Label1: TLabel;
      Label2: TLabel;
      Label3: TLabel;
      BitBtn1: TBitBtn;
      BitBtn2: TBitBtn;
      Button1: TButton;
      ComboBox1: TComboBox;
      CheckBox1: TCheckBox;
      CheckBox2: TCheckBox;
      CheckBox3: TCheckBox;
      CheckBox4: TCheckBox;
      cbRecurseDirs: TCheckBox;
      FileListBox1: TFileListBox;
      DriveComboBox1: TDriveComboBox;
      DirectoryListBox1: TDirectoryListBox;
      RadioGroup1: TRadioGroup;
      Procedure BitBtn1Click(Sender: TObject);
      Procedure Button1Click(Sender: TObject);
      Procedure FormCreate(Sender: TObject);
      Procedure FormActivate(Sender: TObject);
      Procedure lstFileSpecClick(Sender: TObject);
      Procedure RadioGroup1Click(Sender: TObject);
      Procedure DirectoryListBox1Change(Sender: TObject);
   Private
   Public
   End;

Var
   frmExtract: TfrmExtract;

Implementation

Uses
   Main;

{$R *.DFM}
{$I defines.inc}

//-------------------------------------------------------------
(* New Folder button *)

Procedure TfrmExtract.Button1Click(Sender: TObject);
Var
   Dir: String;
Begin
   Dir := DirectoryListBox1.Directory;
   If SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) Then
      DirectoryListBox1.Directory := Dir;
End;
//-------------------------------------------------------------

Procedure TfrmExtract.DirectoryListBox1Change(Sender: TObject);
Begin
   Edit1.Text := DirectoryListBox1.Directory;
End;
//-------------------------------------------------------------

Procedure TfrmExtract.FormCreate(Sender: TObject);
Begin
   ComboBox1.ItemIndex := 0;
End;
//-------------------------------------------------------------

Procedure TfrmExtract.FormActivate(Sender: TObject);
Begin
   {$IFDEF ListView}
   If frmMain.ListView1.Selected = Nil Then
      {$ELSE}
   If frmMain.ZipView1.SelCount = 0 Then
      {$ENDIF}
      RadioGroup1.ItemIndex := 1
   Else
      RadioGroup1.ItemIndex := 0;

   Edit1.Text := DirectoryListBox1.Directory;
   Edit1.SelLength := Length(Edit1.Text);
   Edit1.SetFocus();
End;
//-------------------------------------------------------------

Procedure TfrmExtract.BitBtn1Click(Sender: TObject);
Var
   Dir: String;
Begin
	Refresh();
   
   If Edit1.Text <> '' Then
   Begin
      Dir := AppendDirTail(Edit1.Text);
      If DirExists(Dir) Then
      Begin
         ModalResult := mrOK;
         DirectoryListBox1.Directory := Dir;
      End
      Else
      Begin
         ShowMessage(Dir + #13#13' ...not found.');
         Edit1.SetFocus();
      End;
   End
   Else
      ModalResult := mrOK;
End;
//-------------------------------------------------------------

Procedure TfrmExtract.RadioGroup1Click(Sender: TObject);
Begin
   If (RadioGroup1.ItemIndex = 0) And
      {$IFDEF ListView}
   (frmMain.ListView1.Selected = Nil) Then
      {$ELSE}
   (frmMain.ZipView1.SelCount = 0) Then
      {$ENDIF}
      RadioGroup1.ItemIndex := 1;
End;
//-------------------------------------------------------------

Procedure TfrmExtract.lstFileSpecClick(Sender: TObject);
Begin
   //
End;
//-------------------------------------------------------------

End.