73 lines
1.7 KiB
Plaintext
73 lines
1.7 KiB
Plaintext
unit BrowseForDirUnit;
|
|
{-------------------------------------------------------------------------------
|
|
Browse for Dir Unit
|
|
-------------------
|
|
Contains a form which allows the user to select a directory by means of
|
|
a directory tree.
|
|
|
|
---------------------------------------------
|
|
reSource v2.6
|
|
Copyright (C) 1998-2001 Victor Kasenda / gruv
|
|
http://go.to/gruv
|
|
email: vickas@singnet.com.sg
|
|
---------------------------------------------
|
|
|
|
|
|
Used in:
|
|
ConigDialog, where the user selects the custom temp directory.
|
|
|
|
Usage:
|
|
retrieve the directory from the directory property.
|
|
The dialog box will open in the current directory.
|
|
-------------------------------------------------------------------------------}
|
|
|
|
|
|
|
|
(**) interface (**)
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
StdCtrls, Buttons, FileCtrl;
|
|
|
|
type
|
|
TBrowseForDirForm = class(TForm)
|
|
DirectoryListBox: TDirectoryListBox;
|
|
OKBtn: TBitBtn;
|
|
CancelBtn: TBitBtn;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
procedure OKBtnClick(Sender: TObject);
|
|
procedure CancelBtnClick(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
private
|
|
fdirectory: string;
|
|
public
|
|
property directory: string read fdirectory;
|
|
|
|
end;
|
|
|
|
var
|
|
BrowseForDirForm: TBrowseForDirForm;
|
|
|
|
(**) implementation (**)
|
|
Uses Main;
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TBrowseForDirForm.OKBtnClick(Sender: TObject);
|
|
begin
|
|
fdirectory := DirectoryListBox.Directory;
|
|
end;
|
|
|
|
procedure TBrowseForDirForm.CancelBtnClick(Sender: TObject);
|
|
begin
|
|
fdirectory := '';
|
|
end;
|
|
|
|
procedure TBrowseForDirForm.FormShow(Sender: TObject);
|
|
begin
|
|
CentreFormToMain(Self);
|
|
end;
|
|
|
|
end.
|