InraPorc

unit UFWarning ;

interface

uses

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

  Dialogs, StdCtrls, Buttons, ComCtrls, StrUtils, UVariables, gnugettext;

type

  TFWarning = class(TForm)

    BBOk: TBitBtn;

    CBDisplay: TCheckBox;

    REMessage: TRichEdit;

    procedure FormCreate(Sender: TObject);

    procedure FormShow(Sender: TObject);

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

  private

    { D?clarations priv?es }

  public

    { D?clarations publiques }

    Msg: String;

  end;

var

  FWarning: TFWarning;

implementation

uses

  UUtil, UStrings;

{$R *.dfm}

{ TFComment }

procedure TFWarning.FormCreate(Sender: TObject);

begin

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

  then

    Font.Name := 'Arial Unicode MS';

  TranslateComponent(Self);

  Width := 468 + (Width - ClientWidth);

  Height := 248 + (Height - ClientHeight);

end;

procedure TFWarning.FormShow(Sender: TObject);

{

var

  ResName: String;

  Stream: TResourceStream;

}

begin

  {

  ResName := UpperCase(Msg);

  Stream := TResourceStream.Create(ResInstance, ResName, 'TEXT');

  try

    REMessage.Lines.LoadFromStream(Stream);

  finally

    Stream.Free;

  end;

  }

  case AnsiIndexStr(Msg, ['CorrCUD', 'CalcAli', 'GraphAli', 'UnitProfilP', 'PDMoy', 'Precocite', 'Entretien', 'OptInit', 'SimulT', 'Besoin', 'InraAfz']) of

    0: // CorrCUD

      REMessage.Lines.Add(MsgCorrCUD);

    1: // CalcAli

      REMessage.Lines.Add(MsgCalcAli);

    2: // GraphAli

      REMessage.Lines.Add(MsgGraphAli);

    3: // UnitProfilP

      REMessage.Lines.Add(MsgUnitProfilP);

    4: // PDMoy

      REMessage.Lines.Add(MsgPDMoy);

    5: // Precocite

      REMessage.Lines.Add(MsgPrecocite);

    6: // Entretien

      REMessage.Lines.Add(MsgEntretien);

    7: // OptInit

      REMessage.Lines.Add(MsgOptInit);

    8: // SimulT

      REMessage.Lines.Add(MsgSimulT);

    9: // Besoin

      REMessage.Lines.Add(MsgBesoin);

    10: // InraAfz

      REMessage.Lines.Add(MsgInraAfz);

  end;

end;

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

begin

  if CBDisplay.Checked

  then

    BdRWriteBoolean('\Software\InraPorc\Config\Messages', Msg, False);

end;

end.