unit fmOptions;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Buttons, ExtCtrls;

type

TOptions = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Déclarations privées }

public

{ Déclarations publiques }

procedure Init;

procedure Load;

procedure Save;

end;

const

kOptions = 'options.dat';

var

Options: TOptions;

implementation

uses unMisc;

{$R *.DFM}

procedure TOptions.Init;

begin

end;

procedure TOptions.Load;

var

f : String;

S : TFileStream;

begin

Init;

f := ExtractFilePath( Application.ExeName ) + kOptions;

if not FileExists( f ) then

Exit;

S := TFileStream.Create( f, fmOpenRead );

try

// edPythonFiles.Text := ReadString( S );

// edDelphiFiles.Text := ReadString( S );

finally

S.Free;

end;

end;

procedure TOptions.Save;

var

f : String;

S : TFileStream;

begin

f := ExtractFilePath( Application.ExeName ) + kOptions;

S := TFileStream.Create( f, fmCreate );

try

// WriteString( S, edPythonFiles.Text );

// WriteString( S, edDelphiFiles.Text );

finally

S.Free;

end;

end;

procedure TOptions.FormCreate(Sender: TObject);

begin

Load;

end;

procedure TOptions.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if ModalResult = mrOk then

Save

else

Load;

end;

end.