Subversion Repositories svnkaklik

// ******************************************************************************
//            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
// ******************************************************************************