0,0 → 1,77 |
// ****************************************************************************** |
// This source has been created by Roman Schulz, 2002. |
// Visit my web-site at http://gds.oceany.cz for more info |
// ****************************************************************************** |
|
|
unit SaveDialog; |
|
interface |
|
uses |
SysUtils, Dialogs, Forms, Controls, Classes, StdCtrls; |
|
type |
TForm2 = class(TForm) |
Edit1: TEdit; |
Button1: TButton; |
Button2: TButton; |
Label1: TLabel; |
Button3: TButton; |
procedure Button1Click(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
procedure Button2Click(Sender: TObject); |
procedure Button3Click(Sender: TObject); |
private |
Destination: string; |
end; |
|
var |
Form2: TForm2; |
|
implementation |
|
uses Downloader; |
|
{$R *.DFM} |
|
|
|
//setup |
procedure TForm2.FormCreate(Sender: TObject); |
begin |
Destination := Form1.destination; |
Edit1.text := Form1.Destination; |
end; |
|
//OK |
procedure TForm2.Button1Click(Sender: TObject); |
begin |
Form1.Destination := Edit1.Text; |
Form1.enabled := true; |
Form2.visible := false; |
end; |
|
//Reset |
procedure TForm2.Button2Click(Sender: TObject); |
begin |
Form1.Destination := Destination; |
Form1.enabled := true; |
Form2.visible := false; |
end; |
|
//Default |
procedure TForm2.Button3Click(Sender: TObject); |
begin |
Form1.Destination := ExtractFilePath(Application.ExeName); |
Edit1.text := ExtractFilePath(Application.ExeName); |
end; |
|
|
|
end. |
|
// ****************************************************************************** |
// This source has been created by Roman Schulz, 2002. |
// Visit my web-site at http://gds.oceany.cz for more info |
// ****************************************************************************** |