afe3fdfd77
git-svn-id: http://code.remobjects.com/svn/pascalscript@1 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
48 lines
957 B
ObjectPascal
48 lines
957 B
ObjectPascal
unit FormSettings;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
StdCtrls, ExtCtrls;
|
|
|
|
type
|
|
TfrmSettings = class(TForm)
|
|
Button1: TButton;
|
|
Button2: TButton;
|
|
Label1: TLabel;
|
|
edtOutPutDir: TEdit;
|
|
cbUseUnitAtCompileTime: TCheckBox;
|
|
btnOutPutDir: TButton;
|
|
cbCreateOneImportfile: TCheckBox;
|
|
Bevel1: TBevel;
|
|
Default: TCheckBox;
|
|
edtPrefix: TEdit;
|
|
Label2: TLabel;
|
|
procedure btnOutPutDirClick(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frmSettings: TfrmSettings;
|
|
|
|
implementation
|
|
|
|
uses FileCtrl;
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TfrmSettings.btnOutPutDirClick(Sender: TObject);
|
|
var
|
|
dir : String;
|
|
begin
|
|
Dir := edtOutPutDir.Text;
|
|
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then
|
|
edtOutPutDir.Text := Dir;
|
|
end;
|
|
|
|
end.
|