InraPorc

unit UFError;

interface

uses

  Windows, Forms, Classes, Controls, StdCtrls, Buttons;

type

  TFError = class(TForm)

    MErrors: TMemo;

    LFolder: TLabel;

    LQuestion: TLabel;

    EFolder: TEdit;

    BBYes: TBitBtn;

    BBNo: TBitBtn;

    LWarning: TLabel;

    BBHelp: TBitBtn;

    procedure FormShow(Sender: TObject);

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

    procedure BBHelpClick(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { D?clarations priv?es }

  public

    { D?clarations publiques }

  end;

var

  FError: TFError;

implementation

uses

  Dialogs, SysUtils, gnugettext, UStrings, UInit;

{$R *.dfm}

procedure TFError.FormCreate(Sender: TObject);

begin

  if Screen.Fonts.IndexOf('Arial Unicode MS') <> -1

  then

    Font.Name := 'Arial Unicode MS';

  TranslateComponent(Self);

end;

procedure TFError.FormShow(Sender: TObject);

begin

  EFolder.Text := GetCurrentDir;

end;

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

const

  LOG = 'Errors.log';

begin

  if ModalResult = mrYes

  then

  begin

    MErrors.Lines.SaveToFile(LOG);

    MessageDlg(Format(MsgRecordErrors, [LOG, EFolder.Text]), mtInformation, [mbOK], 0);

    SaveData;

  end;

end;

procedure TFError.BBHelpClick(Sender: TObject);

begin

  Application.HelpCommand(HELP_CONTEXT, HelpContext);

end;

end.