93 lines
2.2 KiB
Plaintext
93 lines
2.2 KiB
Plaintext
unit ExtractOptionsDlgUnit;
|
|
{-------------------------------------------------------------------------------
|
|
ExtractOptionsDlgUnit
|
|
---------------------
|
|
|
|
---------------------------------------------
|
|
reSource v2.6
|
|
Copyright (C) 1998-2001 Victor Kasenda / gruv
|
|
http://go.to/gruv
|
|
email: vickas@singnet.com.sg
|
|
---------------------------------------------
|
|
|
|
|
|
|
|
Desc:
|
|
Shows a directory list that allows the user to select the directory
|
|
to extract to.
|
|
|
|
-------------------------------------------------------------------------------}
|
|
|
|
{ if not EDos.FileExists(DriveComboBox.drive + ':') then
|
|
begin
|
|
Application.MessageBox(PChar('The drive ' + DriveComboBox.drive + ' is not available. Please select another drive.'),
|
|
'IO Error', 0);
|
|
|
|
end;}
|
|
|
|
|
|
(**) interface (**)
|
|
|
|
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
|
|
Buttons, ExtCtrls, FileCtrl, ComCtrls, Dialogs;
|
|
|
|
type
|
|
TExtractOptionsDlg = class(TForm)
|
|
GroupBox1: TGroupBox;
|
|
RBExtractAllFiles: TRadioButton;
|
|
RBExtractSelectedFiles: TRadioButton;
|
|
Label1: TLabel;
|
|
OKBtn: TBitBtn;
|
|
CancelBtn: TBitBtn;
|
|
DirTree: TDirectoryListBox;
|
|
DriveComboBox: TDriveComboBox;
|
|
procedure DirectoryListBoxChange(Sender: TObject);
|
|
procedure FormActivate(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
private
|
|
|
|
public
|
|
function ExtractDir: string;
|
|
end;
|
|
|
|
var
|
|
ExtractOptionsDlg: TExtractOptionsDlg;
|
|
|
|
(**) implementation (**)
|
|
uses EDosUnit, Main;
|
|
|
|
{$R *.DFM}
|
|
|
|
|
|
function TExtractOptionsDlg.ExtractDir: string;
|
|
begin
|
|
result := DirTree.Directory;
|
|
EDos.AddSlash(result);
|
|
end;
|
|
|
|
procedure TExtractOptionsDlg.DirectoryListBoxChange(Sender: TObject);
|
|
begin
|
|
//ExtractDirEdit.Text := DirectoryListBox.Directory;
|
|
end;
|
|
|
|
procedure TExtractOptionsDlg.FormActivate(Sender: TObject);
|
|
begin
|
|
//ExtractDirEdit.Text := DirectoryListBox.Directory;
|
|
end;
|
|
|
|
procedure TExtractOptionsDlg.FormCreate(Sender: TObject);
|
|
begin
|
|
{$IFDEF DEBUG}
|
|
//DirTree.Directory := 'c:\ctestout';
|
|
{$ENDIF}
|
|
end;
|
|
|
|
procedure TExtractOptionsDlg.FormShow(Sender: TObject);
|
|
begin
|
|
CentreFormToMain(Self);
|
|
end;
|
|
|
|
end.
|
|
|