InraPorc

unit UFUserEquation;

interface

uses

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

  Dialogs, StdCtrls, Buttons, PBNumEdit, JvExStdCtrls, JvEdit, JvValidateEdit,

  gnugettext;

type

  TFUserEquation = class(TForm)

    BBOk: TBitBtn;

    BBCancel: TBitBtn;

    LLongName: TLabel;

    LShortName: TLabel;

    LEquation: TLabel;

    LA: TLabel;

    LB: TLabel;

    LC: TLabel;

    RBMass: TRadioButton;

    RBRatioPVV: TRadioButton;

    ELongName: TEdit;

    VEA: TJvValidateEdit;

    VEB: TJvValidateEdit;

    VEC: TJvValidateEdit;

    EShortName: TEdit;

    procedure FormCreate(Sender: TObject);

  private

    { D?clarations priv?es }

  public

    { D?clarations publiques }

  end;

var

  FUserEquation: TFUserEquation;

implementation

{$R *.dfm}

{ TFCommentAli }

procedure TFUserEquation.FormCreate(Sender: TObject);

begin

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

  then

    Font.Name := 'Arial Unicode MS';

  TranslateComponent(Self);

end;

end.