EvaPig

unit UnitMain;

interface

uses

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

  ShellAPI, Dialogs, XPMan, StdCtrls, ComCtrls, ExtCtrls, Buttons, DB,

  pngimage, JvExExtCtrls, JvBevel, gnugettext;

type

  TFormMain = class(TForm)

    LabelVersion: TLabel;

    LabelMain: TLabel;

    ComboBoxLanguage: TComboBox;

    BitBtnOptions: TBitBtn;

    BitBtnIngredients: TBitBtn;

    BitBtnFeeds: TBitBtn;

    BitBtnQuit: TBitBtn;

    BitBtnHelp: TBitBtn;

    BitBtnWeb: TBitBtn;

    BitBtnUpdate: TBitBtn;

    BitBtnLegal: TBitBtn;

    BitBtnCredits: TBitBtn;

    BitBtnTutorial: TBitBtn;

    ImageWallpaper: TImage;

    XPManifestStyle: TXPManifest;

    JvBevelINRA: TJvBevel;

    JvBevelAFZ: TJvBevel;

    JvBevelAEL: TJvBevel;

    procedure FormCreate(Sender: TObject);

    procedure ComboBoxLanguageDrawItem(Control: TWinControl; Index: Integer;

      Rect: TRect; State: TOwnerDrawState);

    procedure ComboBoxLanguageChange(Sender: TObject);

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

    procedure BitBtnOptionsClick(Sender: TObject);

    procedure BitBtnQuitClick(Sender: TObject);

    procedure BitBtnIngredientsClick(Sender: TObject);

    procedure BitBtnFeedsClick(Sender: TObject);

    procedure BitBtnHelpClick(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure BitBtnWebClick(Sender: TObject);

    procedure BitBtnUpdateClick(Sender: TObject);

    procedure BitBtnCreditsClick(Sender: TObject);

    procedure BitBtnLegalClick(Sender: TObject);

    procedure JvBevelINRAClick(Sender: TObject);

    procedure JvBevelINRAMouseEnter(Sender: TObject);

    procedure JvBevelINRAMouseDown(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

    procedure JvBevelINRAMouseLeave(Sender: TObject);

    procedure JvBevelINRAMouseUp(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

    procedure JvBevelAFZClick(Sender: TObject);

    procedure JvBevelAFZMouseDown(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

    procedure JvBevelAFZMouseEnter(Sender: TObject);

    procedure JvBevelAFZMouseLeave(Sender: TObject);

    procedure JvBevelAFZMouseUp(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

    procedure JvBevelAELClick(Sender: TObject);

    procedure JvBevelAELMouseDown(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

    procedure JvBevelAELMouseEnter(Sender: TObject);

    procedure JvBevelAELMouseLeave(Sender: TObject);

    procedure JvBevelAELMouseUp(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

    procedure BitBtnTutorialClick(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

  private

    { D?clarations priv?es }

  public

    { D?clarations publiques }

    procedure LoadIngredients;

    procedure LoadComposition;

    procedure LoadFeeds;

  end;

var

  FormMain: TFormMain;

implementation

{$R *.dfm}

uses

  UnitOptions, UnitDeclaration, UnitIngredientsList, UnitFeedsList;

const

  EVAPIG = 'https://evapig.com';

  INRA = 'https://www.inrae.fr';

  AFZ = 'https://www.zootechnie.fr';

  AEL = 'https://fr.metex-noovistago.com';

  HELP_DISCLAIMER = 5000;

  HELP_CREDITS = 6000;

var

  OldWndProc: Pointer;

  WndMsg: DWORD;

function NewWndProc(WindowHandle: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT stdcall;

begin

  if Msg = WndMsg

  then // Appel par une autre instance : restauration

  begin

    Result := SendMessage(Application.Handle, WM_SYSCOMMAND, SC_RESTORE, 0);

    SetForegroundWindow(Application.Handle);

  end

  else

    Result := CallWindowProc(OldWndProc, WindowHandle, Msg, WParam, LParam);

end;

procedure TFormMain.BitBtnCreditsClick(Sender: TObject);

begin

  Application.HelpContext(HELP_CREDITS);

end;

procedure TFormMain.BitBtnFeedsClick(Sender: TObject);

begin

  LoadFeeds;

  try

    FormFeedsList := TFormFeedsList.Create(nil);

    try

      FormFeedsList.ShowModal;

    finally

      FormFeedsList.Release;

    end;

  finally

    with DataModuleDeclaration do

    begin

      ClientDataSetFeeds.Close;

      ClientDataSetFeeds.FieldDefs.Clear; // Bugs 5483 & 38984

    end;

  end;

end;

procedure TFormMain.BitBtnHelpClick(Sender: TObject);

begin

  Application.HelpShowTableOfContents;

end;

procedure TFormMain.BitBtnIngredientsClick(Sender: TObject);

begin

  FormIngredientsList := TFormIngredientsList.Create(nil);

  try

    FormIngredientsList.ShowModal;

  finally

    FormIngredientsList.Release;

  end;

end;

procedure TFormMain.BitBtnLegalClick(Sender: TObject);

begin

  Application.HelpContext(HELP_DISCLAIMER);

end;

procedure TFormMain.BitBtnOptionsClick(Sender: TObject);

begin

  FormOptions.ShowModal;

  if FormOptions.OptionChanged

  then // Recharger les mati?res premi?res en m?moire

    with DataModuleDeclaration do

    begin

      ClientDataSetIngredients.Close;

      ClientDataSetComposition.Close;

      LoadIngredients;

      LoadComposition;

      FormOptions.OptionChanged := False;

    end;

end;

procedure TFormMain.BitBtnQuitClick(Sender: TObject);

begin

  Close;

end;

procedure TFormMain.BitBtnTutorialClick(Sender: TObject);

var

  TutoFile: string;

begin

  TutoFile := ExtractFilePath(Application.ExeName) + 'EvaPigTutorial_2020.ppsx';

  if not FileExists(TutoFile)

  then

    MessageDlg(Format(_('%s: file not found') + sLineBreak

      + _('You can download this tutorial from the website'), [TutoFile]), mtError, [mbOK], 0)

  else

    if ShellExecute(Handle, 'open', PChar(TutoFile), nil, nil, SW_SHOWNORMAL) <= 32

    then

      MessageDlg(Format(_('PPS file type is not supported') + sLineBreak

        + _('You can download for free the PowerPoint viewer from Microsoft web site'), [TutoFile]), mtError, [mbOK], 0);

end;

procedure TFormMain.BitBtnUpdateClick(Sender: TObject);

begin

  ShellExecute(Handle, 'open', PChar(Format('%s/update?version=%d.%d.%d.%d', [EVAPIG, MajorVersion, MinorVersion, ReleaseVersion, BuildVersion])), nil, nil, SW_SHOWNORMAL);

end;

procedure TFormMain.BitBtnWebClick(Sender: TObject);

begin

  ShellExecute(Handle, 'open', EVAPIG, nil, nil, SW_SHOWNORMAL);

end;

procedure TFormMain.ComboBoxLanguageChange(Sender: TObject);

begin

  if ComboBoxLanguage.Items[ComboBoxLanguage.ItemIndex] <> FormOptions.CurrentLanguage

  then // Changement de langue

  begin

    FormOptions.CurrentLanguage := ComboBoxLanguage.Items[ComboBoxLanguage.ItemIndex];

    Screen.Cursor := crHourGlass;

    try

      UseLanguage(FormOptions.CurrentLanguage);

      RetranslateComponent(Self);

//      ComboBoxLanguage.Repaint;

      LabelVersion.Caption := Format('%s %d.%d.%d.%d', [LabelVersion.Caption, MajorVersion, MinorVersion, ReleaseVersion, BuildVersion]);

      BitBtnHelp.Caption := Format('%s (F1)', [BitBtnHelp.Caption]);

      BitBtnWeb.Hint := EVAPIG;

      JvBevelINRA.Hint := INRA;

      JvBevelAFZ.Hint := AFZ;

      JvBevelAEL.Hint := AEL;

      RetranslateComponent(FormOptions);

      with DataModuleDeclaration do

      begin

        // Traduire les classes de mati?res premi?res

        ClientDataSetClasses.First;

        while not ClientDataSetClasses.Eof do

        begin

          ClientDataSetClasses.Edit;

          ClientDataSetClassesName.Value := dgettext('InraAfz', ClassList[ClientDataSetClassesId.Value - 1]);

          ClientDataSetClasses.Post;

          ClientDataSetClasses.Next;

        end;

        // Traduire les mati?res premi?res

        ClientDataSetIngredients.IndexFieldNames := '';

        ClientDataSetIngredients.First;

        while not ClientDataSetIngredients.Eof do

        begin

          ClientDataSetIngredients.Edit;

          if ClientDataSetIngredientsUser.Value

          then

          begin

            if ClientDataSetIngredientsModel.IsNull

            then

              ClientDataSetIngredientsSource.Value := _('Original item')

            else

            begin

              ClientDataSetInraAfz.Locate('Id', ClientDataSetIngredientsModel.Value, []);

              ClientDataSetIngredientsSource.Value := Format(_('Copy of "%s"'), [dgettext('InraAfz', WideString(ClientDataSetInraAfzName.Value))]);

            end;

          end

          else

          begin

            ClientDataSetInraAfz.Locate('Id', ClientDataSetIngredientsId.Value, []);

            ClientDataSetIngredientsName.Value := dgettext('InraAfz', WideString(ClientDataSetInraAfzName.Value));

            if not ClientDataSetInraAfzComment.IsNull

            then

              ClientDataSetIngredientsDefinition.Value := dgettext('InraAfz', WideString(ClientDataSetInraAfzComment.Value));

            ClientDataSetIngredientsSource.Value := Format('%s (?%s)', [_('Reference tables'), ClientDataSetInraAfzSource.Value]);

          end;

          ClientDataSetIngredients.Post;

          ClientDataSetIngredients.Next;

        end;

        ClientDataSetIngredients.IndexFieldNames := 'Name';

        // Traduire la composition des aliments

        ClientDataSetComposition.First;

        while not ClientDataSetComposition.Eof do

        begin

          if not ClientDataSetCompositionUser.Value

          then // Mati?re premi?re de r?f?rence (traduire)

          begin

            ClientDataSetInraAfz.Locate('Id', ClientDataSetCompositionIngredient.Value, []);

            ClientDataSetComposition.Edit;

            ClientDataSetCompositionIngredientName.Value := dgettext('InraAfz', WideString(ClientDataSetInraAfzName.Value));

            ClientDataSetComposition.Post;

          end;

          ClientDataSetComposition.Next;

        end;

      end;

      // Enregistrer la configuration

      with FormOptions do

      begin

        Reg.Access := KEY_WRITE;

        if Reg.OpenKey('\Software\EvaPig2020', True)

        then

        begin

          Reg.WriteString('Language', CurrentLanguage);

          Reg.CloseKey;

        end;

      end;

    finally

      Screen.Cursor := crDefault;

    end;

  end;

end;

procedure TFormMain.ComboBoxLanguageDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);

var

  LanguageName: String;

begin

  with Control as TComboBox do

  begin

    // Conversion du code ISO en nom (d?j? traduit)

    LanguageName := dgettext('languagecodes', Items[Index]);

    // Cadre

    Canvas.FillRect(Rect);

    // Texte

    Canvas.TextOut(Rect.Left + 2, Rect.Top, LanguageName);

  end;

end;

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

begin

  Screen.Cursor := crHourGlass;

  Application.ProcessMessages;

  with DataModuleDeclaration do

  begin

    ClientDataSetIngredients.Close;

    ClientDataSetComposition.Close;

  end;

end;

procedure TFormMain.FormCreate(Sender: TObject);

var

  Buffer: Pointer;

  Version: PVSFixedFileInfo;

  BufferSize, VersionSize: DWORD;

begin

  WndMsg := RegisterWindowMessage(PChar(Application.Title));

  OldWndProc := Pointer(SetWindowLong(FormMain.Handle, GWL_WNDPROC, Longint(@NewWndProc)));

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

  then

    Font.Name := 'Arial Unicode MS';

  LabelVersion.Font.Style := [fsBold];

  LabelMain.Font.Style := [fsBold];

  BitBtnIngredients.Font.Style := [fsBold];

  BitBtnFeeds.Font.Style := [fsBold];

  BitBtnOptions.Font.Style := [fsBold];

  BitBtnTutorial.Font.Style := [fsBold];

  BitBtnHelp.Font.Style := [fsBold];

  BitBtnWeb.Font.Style := [fsBold];

  BitBtnQuit.Font.Style := [fsBold];

  TranslateComponent(Self);

  // Version du programme

  BufferSize := GetFileVersionInfoSize(PChar(Application.ExeName), BufferSize);

  if BufferSize > 0

  then

  begin

    GetMem(Buffer, BufferSize);

    if GetFileVersionInfo(PChar(Application.ExeName), 0, BufferSize, Buffer)

    then

    begin

      VerQueryValue(Buffer, '\', Pointer(Version), VersionSize);

      MajorVersion := Version.dwFileVersionMS shr 16;

      MinorVersion := Version.dwFileVersionMS and $FFFF;

      ReleaseVersion := Version.dwFileVersionLS shr 16;

      BuildVersion := Version.dwFileVersionLS and $FFFF;

    end;

    FreeMem(Buffer, BufferSize);

  end;

  // R?cup?ration de la liste de langues disponibles

  DefaultInstance.GetListOfLanguages('default', ComboBoxLanguage.Items);

  ComboBoxLanguage.Items.Insert(0, 'en'); // Langue par d?faut

  // Initialisation de FormOptions (lecture de la base de registre)

  FormOptions := TFormOptions.Create(nil);

  {

  SetBounds(FormOptions.MainLeft, FormOptions.MainTop, FormOptions.MainWidth, FormOptions.MainHeight);

  }

  if (ComboBoxLanguage.Items.IndexOf(FormOptions.CurrentLanguage) = -1) and (Length(FormOptions.CurrentLanguage) = 5)

  then // Passage ? la langue g?n?rique

    FormOptions.CurrentLanguage := Copy(FormOptions.CurrentLanguage, 1, 2);

  if ComboBoxLanguage.Items.IndexOf(FormOptions.CurrentLanguage) = -1

  then // Utilisation de la langue par d?faut

    FormOptions.CurrentLanguage := 'en';

  if FormOptions.CurrentLanguage <> DefaultInstance.GetCurrentLanguage

  then // Traduire

  begin

    UseLanguage(FormOptions.CurrentLanguage);

    RetranslateComponent(Self);

    RetranslateComponent(FormOptions);

    // Traduire les classes de mati?res premi?res

    with DataModuleDeclaration do

    begin

      ClientDataSetClasses.First;

      while not ClientDataSetClasses.Eof do

      begin

        ClientDataSetClasses.Edit;

        ClientDataSetClassesName.Value := dgettext('InraAfz', ClassList[ClientDataSetClassesId.Value - 1]);

        ClientDataSetClasses.Post;

        ClientDataSetClasses.Next;

      end;

    end;

  end;

  // S?lection de la langue courante

  ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOf(FormOptions.CurrentLanguage);

end;

procedure TFormMain.FormDestroy(Sender: TObject);

begin

  {

  // M?moriser la taille et la position

  if (Left <> FormOptions.MainLeft)

  or (Top <> FormOptions.MainTop)

  or (Width <> FormOptions.MainWidth)

  or (Height <> FormOptions.MainHeight)

  then

  begin

    FormOptions.Reg.Access := KEY_WRITE;

    if FormOptions.Reg.OpenKey('\Software\EvaPig2020', True)

    then

    begin

      FormOptions.Reg.WriteInteger('Left', Left);

      FormOptions.Reg.WriteInteger('Top', Top);

      FormOptions.Reg.WriteInteger('Width', Width);

      FormOptions.Reg.WriteInteger('Height', Height);

      FormOptions.Reg.CloseKey;

    end;

  end;

  }

  FormOptions.Release;

  SetWindowLong(FormMain.Handle, GWL_WNDPROC, Longint(OldWndProc));

  Application.ProcessMessages;

  Screen.Cursor := crDefault;

  Application.ProcessMessages;

end;

procedure TFormMain.FormShow(Sender: TObject);

begin

  {

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

  then // Police absente

    MessageDlg(_('The font ''Arial Unicode MS'' is not installed in your system.') + sLineBreak

      + _('You may then have some difficulties to display languages other than yours.'), mtWarning, [mbOK], 0);

  }

  LabelVersion.Font.Color := TColor($B0A4FF);

  LabelVersion.Caption := Format('%s %d.%d.%d.%d', [LabelVersion.Caption, MajorVersion, MinorVersion, ReleaseVersion, BuildVersion]);

  BitBtnHelp.Caption := Format('%s (F1)', [BitBtnHelp.Caption]);

  BitBtnWeb.Hint := EVAPIG;

  JvBevelINRA.Hint := INRA;

  JvBevelAFZ.Hint := AFZ;

  JvBevelAEL.Hint := AEL;

  // Chargement des donn?es

  LoadIngredients;

  LoadComposition;

end;

procedure TFormMain.JvBevelAELClick(Sender: TObject);

begin

  ShellExecute(Handle, 'open', AEL, nil, nil, SW_SHOWNORMAL);

end;

procedure TFormMain.JvBevelAELMouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  JvBevelAEL.Outer := bvLowered;

end;

procedure TFormMain.JvBevelAELMouseEnter(Sender: TObject);

begin

  Screen.Cursor := crHandPoint;

  JvBevelAEL.Outer := bvRaised;

end;

procedure TFormMain.JvBevelAELMouseLeave(Sender: TObject);

begin

  Screen.Cursor := crDefault;

  JvBevelAEL.Outer := bvSpace;

end;

procedure TFormMain.JvBevelAELMouseUp(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  JvBevelAEL.Outer := bvRaised;

end;

procedure TFormMain.JvBevelAFZClick(Sender: TObject);

begin

  ShellExecute(Handle, 'open', AFZ, nil, nil, SW_SHOWNORMAL);

end;

procedure TFormMain.JvBevelAFZMouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  JvBevelAFZ.Outer := bvLowered;

end;

procedure TFormMain.JvBevelAFZMouseEnter(Sender: TObject);

begin

  Screen.Cursor := crHandPoint;

  JvBevelAFZ.Outer := bvRaised;

end;

procedure TFormMain.JvBevelAFZMouseLeave(Sender: TObject);

begin

  Screen.Cursor := crDefault;

  JvBevelAFZ.Outer := bvSpace;

end;

procedure TFormMain.JvBevelAFZMouseUp(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  JvBevelAFZ.Outer := bvRaised;

end;

procedure TFormMain.JvBevelINRAClick(Sender: TObject);

begin

  ShellExecute(Handle, 'open', INRA, nil, nil, SW_SHOWNORMAL);

end;

procedure TFormMain.JvBevelINRAMouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  JvBevelINRA.Outer := bvLowered;

end;

procedure TFormMain.JvBevelINRAMouseEnter(Sender: TObject);

begin

  Screen.Cursor := crHandPoint;

  JvBevelINRA.Outer := bvRaised;

end;

procedure TFormMain.JvBevelINRAMouseLeave(Sender: TObject);

begin

  Screen.Cursor := crDefault;

  JvBevelINRA.Outer := bvSpace;

end;

procedure TFormMain.JvBevelINRAMouseUp(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  JvBevelINRA.Outer := bvRaised;

end;

procedure TFormMain.LoadIngredients;

begin

  Screen.Cursor := crHourGlass;

  Application.ProcessMessages;

  try

    with DataModuleDeclaration do

    begin

      with FormOptions do

      begin

        ClientDataSetIngredientsMS.DisplayFormat := ProximalFormat;

        ClientDataSetIngredientsMS2.DisplayFormat := ProximalFormat;

        ClientDataSetIngredientsMM.DisplayFormat := ProximalFormat;

        ClientDataSetIngredientsMAT.DisplayFormat := ProximalFormat;

        ClientDataSetIngredientsMG.DisplayFormat := ProximalFormat;

        ClientDataSetIngredientsCB.DisplayFormat := ProximalFormat;

        ClientDataSetIngredientsAmidon.DisplayFormat := ProximalFormat;

        ClientDataSetIngredientsSucres.DisplayFormat := ProximalFormat;

        ClientDataSetIngredientsNDF.DisplayFormat := ProximalFormat;

        ClientDataSetIngredientsADF.DisplayFormat := ProximalFormat;

        ClientDataSetIngredientsADL.DisplayFormat := ProximalFormat;

        ClientDataSetIngredientsEB.DisplayFormat := EnergyFormat;

        ClientDataSetIngredientsBonus.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsEDc.DisplayFormat := EnergyFormat;

        ClientDataSetIngredientsEDt.DisplayFormat := EnergyFormat;

        ClientDataSetIngredientsEDt_EDc.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsEMc.DisplayFormat := EnergyFormat;

        ClientDataSetIngredientsEMt.DisplayFormat := EnergyFormat;

        ClientDataSetIngredientsEMt_EMc.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsENc.DisplayFormat := EnergyFormat;

        ClientDataSetIngredientsENt.DisplayFormat := EnergyFormat;

        ClientDataSetIngredientsENt_ENc.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsdEc.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsdEt.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsEMc_EDc.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsEMt_EDt.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsENc_EMc.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsENt_EMt.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsdNc.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsdNt.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsLys.DisplayFormat := AAFormat;

        ClientDataSetIngredientsThr.DisplayFormat := AAFormat;

        ClientDataSetIngredientsMet.DisplayFormat := AAFormat;

        ClientDataSetIngredientsCys.DisplayFormat := AAFormat;

        ClientDataSetIngredientsMetCys.DisplayFormat := AAFormat;

        ClientDataSetIngredientsTrp.DisplayFormat := AAFormat;

        ClientDataSetIngredientsIle.DisplayFormat := AAFormat;

        ClientDataSetIngredientsVal.DisplayFormat := AAFormat;

        ClientDataSetIngredientsLeu.DisplayFormat := AAFormat;

        ClientDataSetIngredientsPhe.DisplayFormat := AAFormat;

        ClientDataSetIngredientsTyr.DisplayFormat := AAFormat;

        ClientDataSetIngredientsPheTyr.DisplayFormat := AAFormat;

        ClientDataSetIngredientsHis.DisplayFormat := AAFormat;

        ClientDataSetIngredientsArg.DisplayFormat := AAFormat;

        ClientDataSetIngredientsAla.DisplayFormat := AAFormat;

        ClientDataSetIngredientsAsp.DisplayFormat := AAFormat;

        ClientDataSetIngredientsGlu.DisplayFormat := AAFormat;

        ClientDataSetIngredientsGly.DisplayFormat := AAFormat;

        ClientDataSetIngredientsSer.DisplayFormat := AAFormat;

        ClientDataSetIngredientsPro.DisplayFormat := AAFormat;

        ClientDataSetIngredientsdLys.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsdThr.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsdMet.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsdCys.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsdMetCys.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsdTrp.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsdIle.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsdVal.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsdLeu.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsdPhe.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsdTyr.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsdPheTyr.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsdHis.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsdArg.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsdAla.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsdAsp.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsdGlu.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsdGly.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsdSer.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsdPro.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsLys_MAT.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsThr_MAT.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsMet_MAT.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsCys_MAT.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsMetCys_MAT.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsTrp_MAT.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsIle_MAT.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsVal_MAT.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsLeu_MAT.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsPhe_MAT.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsTyr_MAT.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsPheTyr_MAT.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsHis_MAT.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsArg_MAT.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsAla_MAT.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsAsp_MAT.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsGlu_MAT.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsGly_MAT.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsSer_MAT.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsPro_MAT.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsLysd.DisplayFormat := AAFormat;

        ClientDataSetIngredientsThrd.DisplayFormat := AAFormat;

        ClientDataSetIngredientsMetd.DisplayFormat := AAFormat;

        ClientDataSetIngredientsCysd.DisplayFormat := AAFormat;

        ClientDataSetIngredientsMetCysd.DisplayFormat := AAFormat;

        ClientDataSetIngredientsTrpd.DisplayFormat := AAFormat;

        ClientDataSetIngredientsIled.DisplayFormat := AAFormat;

        ClientDataSetIngredientsVald.DisplayFormat := AAFormat;

        ClientDataSetIngredientsLeud.DisplayFormat := AAFormat;

        ClientDataSetIngredientsPhed.DisplayFormat := AAFormat;

        ClientDataSetIngredientsTyrd.DisplayFormat := AAFormat;

        ClientDataSetIngredientsPheTyrd.DisplayFormat := AAFormat;

        ClientDataSetIngredientsHisd.DisplayFormat := AAFormat;

        ClientDataSetIngredientsArgd.DisplayFormat := AAFormat;

        ClientDataSetIngredientsAlad.DisplayFormat := AAFormat;

        ClientDataSetIngredientsAspd.DisplayFormat := AAFormat;

        ClientDataSetIngredientsGlud.DisplayFormat := AAFormat;

        ClientDataSetIngredientsGlyd.DisplayFormat := AAFormat;

        ClientDataSetIngredientsSerd.DisplayFormat := AAFormat;

        ClientDataSetIngredientsProd.DisplayFormat := AAFormat;

        ClientDataSetIngredientsLysd_ENc.DisplayFormat := DecimalFormat(2);

        ClientDataSetIngredientsLysd_ENt.DisplayFormat := DecimalFormat(2);

        ClientDataSetIngredientsCa.DisplayFormat := MineralsFormat;

        ClientDataSetIngredientsP.DisplayFormat := MineralsFormat;

        ClientDataSetIngredientsNa.DisplayFormat := MineralsFormat;

        ClientDataSetIngredientsK.DisplayFormat := MineralsFormat;

        ClientDataSetIngredientsCl.DisplayFormat := MineralsFormat;

        ClientDataSetIngredientsBE.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsdP.DisplayFormat := DecimalFormat(1);

        ClientDataSetIngredientsdPphy.DisplayFormat := DecimalFormat(1);

      end;

      // Chargement des mati?res premi?res en m?moire

      ClientDataSetIngredients.IndexFieldNames := '';

      ClientDataSetIngredients.CreateDataSet;

      // Mati?res premi?res de r?f?rence

      ClientDataSetInraAfz.First;

      while not ClientDataSetInraAfz.Eof do

      begin

        ClientDataSetIngredients.Append;

        try

          ClientDataSetIngredientsId.Value := ClientDataSetInraAfzId.Value;

          ClientDataSetIngredientsName.Value := dgettext('InraAfz', WideString(ClientDataSetInraAfzName.Value));

          if not ClientDataSetInraAfzComment.IsNull

          then

            ClientDataSetIngredientsDefinition.Value := dgettext('InraAfz', WideString(ClientDataSetInraAfzComment.Value));

          ClientDataSetIngredientsClass.Value := ClientDataSetInraAfzClass.Value;

          ClientDataSetIngredientsUser.Value := False;

          ClientDataSetIngredientsModel.Clear;

          ClientDataSetIngredientsSource.Value := Format('%s (?%s)', [_('Reference tables'), ClientDataSetInraAfzSource.Value]);

          CalcInraAfz;

          ClientDataSetIngredients.Post;

        except

          ClientDataSetIngredients.Cancel;

        end;

        Application.ProcessMessages;

        ClientDataSetInraAfz.Next;

      end;

      // Mati?res premi?res utilisateur

      TableIngredients := DBUser.GetTable('SELECT * FROM Ingredients');

      with TableIngredients do

        try

          while not Eof do

          begin

            ClientDataSetIngredients.Append;

            try

              ClientDataSetIngredientsId.Value := FieldAsInteger(FieldIndex['Id']);

//              ClientDataSetIngredientsName.Value := UTF8ToString(RawByteString(FieldAsString(FieldIndex['Name'])));

              ClientDataSetIngredientsName.Value := FieldAsString(FieldIndex['Name']);

//              ClientDataSetIngredientsDefinition.Value := UTF8ToString(RawByteString(FieldAsString(FieldIndex['Definition'])));

              ClientDataSetIngredientsDefinition.Value := FieldAsString(FieldIndex['Definition']);

              ClientDataSetIngredientsClass.Value := FieldAsInteger(FieldIndex['Class']);

              ClientDataSetIngredientsUser.Value := True;

              if FieldIsNull(FieldIndex['Model'])

              then // Cr?ation originale

              begin

                ClientDataSetIngredientsSource.Value := _('Original item');

                CalcOriginal;

              end

              else // Copie bas?e sur un mod?le

              begin

                ClientDataSetIngredientsModel.Value := FieldAsInteger(FieldIndex['Model']);

                ClientDataSetInraAfz.Locate('Id', ClientDataSetIngredientsModel.Value, []);

                ClientDataSetIngredientsSource.Value := Format(_('Copy of "%s"'), [dgettext('InraAfz', WideString(ClientDataSetInraAfzName.Value))]);

                CalcCopy;

              end;

              ClientDataSetIngredients.Post;

            except

              ClientDataSetIngredients.Cancel;

              MessageDlg(Format(_('Unknown error: %s %s %s'), ['UnitMain', 'LoadIngredients', 'ClientDataSetIngredients']), mtError, [mbOK], 0);

              Exit;

            end;

            Application.ProcessMessages;

            Next;

          end;

        finally

          Free;

        end;

      ClientDataSetIngredients.IndexFieldNames := 'Name';

    end;

  finally

    Screen.Cursor := crDefault;

    Application.ProcessMessages;

  end;

end;

procedure TFormMain.LoadComposition;

begin

  Screen.Cursor := crHourGlass;

  Application.ProcessMessages;

  try

    with DataModuleDeclaration do

    begin

      ClientDataSetComposition.CreateDataSet;

      with FormOptions do

      begin

        ClientDataSetCompositionMS.DisplayFormat := ProximalFormat;

        ClientDataSetCompositionLevel.DisplayFormat := IncorporationFormat;

        if Proximal = 0

        then // %

          ClientDataSetCompositionMS.MaxValue := 100

        else // g/kg

          ClientDataSetCompositionMS.MaxValue := 1000;

        if Incorporation = 0

        then // %

          ClientDataSetCompositionLevel.MaxValue := 100

        else // g/kg

          ClientDataSetCompositionLevel.MaxValue := 1000;

      end;

      // Chargement de la composition des aliments en m?moire

      TableComposition := DBUser.GetTable('SELECT * FROM Composition');

      with TableComposition do

        try

          while not Eof do

          begin

            ClientDataSetComposition.Append;

            try

              ClientDataSetCompositionFeed.Value := FieldAsInteger(FieldIndex['Feed']);

              ClientDataSetCompositionIngredient.Value := FieldAsInteger(FieldIndex['Ingredient']);

              ClientDataSetCompositionUser.Value := (FieldByName['User'] = DefaultTrueBoolStr);

              if ClientDataSetCompositionUser.Value

              then

                ClientDataSetIngredients.Filter := Format('Id = %d and User', [ClientDataSetCompositionIngredient.Value])

              else

                ClientDataSetIngredients.Filter := Format('Id = %d and not User', [ClientDataSetCompositionIngredient.Value]);

              ClientDataSetIngredients.Filtered := True;

              ClientDataSetCompositionIngredientName.Value := ClientDataSetIngredientsName.Value;

              ClientDataSetIngredients.Filtered := False;

              ClientDataSetIngredients.Filter := '';

              ClientDataSetCompositionRank.Value := FieldAsInteger(FieldIndex['Rank']);

              ClientDataSetCompositionMS.Value := OutputProximal(FieldAsDouble(FieldIndex['MS']), 1, 0, FormOptions.Proximal);

              ClientDataSetCompositionLevel.Value := OutputIncorporation(FieldAsDouble(FieldIndex['Level']), FormOptions.Incorporation);

              ClientDataSetComposition.Post;

            except

              ClientDataSetComposition.Cancel;

              MessageDlg(Format(_('Unknown error: %s %s %s'), ['UnitMain', 'LoadComposition', 'ClientDataSetComposition']), mtError, [mbOK], 0);

              Exit;

            end;

            Application.ProcessMessages;

            Next;

          end;

        finally

          Free;

        end;

    end;

  finally

    Screen.Cursor := crDefault;

    Application.ProcessMessages;

  end;

end;

procedure TFormMain.LoadFeeds;

begin

  Screen.Cursor := crHourGlass;

  Application.ProcessMessages;

  try

    with DataModuleDeclaration do

    begin

      ClientDataSetFeeds.CreateDataSet;

      with FormOptions do

      begin

        ClientDataSetFeedsBonusC.DisplayFormat := DecimalFormat(1);

        ClientDataSetFeedsBonusT.DisplayFormat := DecimalFormat(1);

        ClientDataSetFeedsMS.DisplayFormat := ProximalFormat;

        ClientDataSetFeedsMS2.DisplayFormat := ProximalFormat;

        ClientDataSetFeedsMM.DisplayFormat := ProximalFormat;

        ClientDataSetFeedsMAT.DisplayFormat := ProximalFormat;

        ClientDataSetFeedsMG.DisplayFormat := ProximalFormat;

        ClientDataSetFeedsCB.DisplayFormat := ProximalFormat;

        ClientDataSetFeedsAmidon.DisplayFormat := ProximalFormat;

        ClientDataSetFeedsSucres.DisplayFormat := ProximalFormat;

        ClientDataSetFeedsNDF.DisplayFormat := ProximalFormat;

        ClientDataSetFeedsADF.DisplayFormat := ProximalFormat;

        ClientDataSetFeedsADL.DisplayFormat := ProximalFormat;

        ClientDataSetFeedsEB.DisplayFormat := EnergyFormat;

        ClientDataSetFeedsEDc.DisplayFormat := EnergyFormat;

        ClientDataSetFeedsEDt.DisplayFormat := EnergyFormat;

        ClientDataSetFeedsEDt_EDc.DisplayFormat := DecimalFormat(1);

        ClientDataSetFeedsEMc.DisplayFormat := EnergyFormat;

        ClientDataSetFeedsEMt.DisplayFormat := EnergyFormat;

        ClientDataSetFeedsEMt_EMc.DisplayFormat := DecimalFormat(1);

        ClientDataSetFeedsENc.DisplayFormat := EnergyFormat;

        ClientDataSetFeedsENt.DisplayFormat := EnergyFormat;

        ClientDataSetFeedsENt_ENc.DisplayFormat := DecimalFormat(1);

        ClientDataSetFeedsdEc.DisplayFormat := DecimalFormat(1);

        ClientDataSetFeedsdEt.DisplayFormat := DecimalFormat(1);

        ClientDataSetFeedsEMc_EDc.DisplayFormat := DecimalFormat(1);

        ClientDataSetFeedsEMt_EDt.DisplayFormat := DecimalFormat(1);

        ClientDataSetFeedsENc_EMc.DisplayFormat := DecimalFormat(1);

        ClientDataSetFeedsENt_EMt.DisplayFormat := DecimalFormat(1);

        ClientDataSetFeedsdNc.DisplayFormat := DecimalFormat(1);

        ClientDataSetFeedsdNt.DisplayFormat := DecimalFormat(1);

        ClientDataSetFeedsLys.DisplayFormat := AAFormat;

        ClientDataSetFeedsThr.DisplayFormat := AAFormat;

        ClientDataSetFeedsMet.DisplayFormat := AAFormat;

        ClientDataSetFeedsCys.DisplayFormat := AAFormat;

        ClientDataSetFeedsMetCys.DisplayFormat := AAFormat;

        ClientDataSetFeedsTrp.DisplayFormat := AAFormat;

        ClientDataSetFeedsIle.DisplayFormat := AAFormat;

        ClientDataSetFeedsVal.DisplayFormat := AAFormat;

        ClientDataSetFeedsLeu.DisplayFormat := AAFormat;

        ClientDataSetFeedsPhe.DisplayFormat := AAFormat;

        ClientDataSetFeedsTyr.DisplayFormat := AAFormat;

        ClientDataSetFeedsPheTyr.DisplayFormat := AAFormat;

        ClientDataSetFeedsHis.DisplayFormat := AAFormat;

        ClientDataSetFeedsArg.DisplayFormat := AAFormat;

        ClientDataSetFeedsAla.DisplayFormat := AAFormat;

        ClientDataSetFeedsAsp.DisplayFormat := AAFormat;

        ClientDataSetFeedsGlu.DisplayFormat := AAFormat;

        ClientDataSetFeedsGly.DisplayFormat := AAFormat;

        ClientDataSetFeedsSer.DisplayFormat := AAFormat;

        ClientDataSetFeedsPro.DisplayFormat := AAFormat;

        ClientDataSetFeedsLysd.DisplayFormat := AAFormat;

        ClientDataSetFeedsThrd.DisplayFormat := AAFormat;

        ClientDataSetFeedsMetd.DisplayFormat := AAFormat;

        ClientDataSetFeedsCysd.DisplayFormat := AAFormat;

        ClientDataSetFeedsMetCysd.DisplayFormat := AAFormat;

        ClientDataSetFeedsTrpd.DisplayFormat := AAFormat;

        ClientDataSetFeedsIled.DisplayFormat := AAFormat;

        ClientDataSetFeedsVald.DisplayFormat := AAFormat;

        ClientDataSetFeedsLeud.DisplayFormat := AAFormat;

        ClientDataSetFeedsPhed.DisplayFormat := AAFormat;

        ClientDataSetFeedsTyrd.DisplayFormat := AAFormat;

        ClientDataSetFeedsPheTyrd.DisplayFormat := AAFormat;

        ClientDataSetFeedsHisd.DisplayFormat := AAFormat;

        ClientDataSetFeedsArgd.DisplayFormat := AAFormat;

        ClientDataSetFeedsAlad.DisplayFormat := AAFormat;

        ClientDataSetFeedsAspd.DisplayFormat := AAFormat;

        ClientDataSetFeedsGlud.DisplayFormat := AAFormat;

        ClientDataSetFeedsGlyd.DisplayFormat := AAFormat;

        ClientDataSetFeedsSerd.DisplayFormat := AAFormat;

        ClientDataSetFeedsProd.DisplayFormat := AAFormat;

        ClientDataSetFeedsLysd_ENc.DisplayFormat := DecimalFormat(2);

        ClientDataSetFeedsLysd_ENt.DisplayFormat := DecimalFormat(2);

        ClientDataSetFeedsThrd_Lysd.DisplayFormat := DecimalFormat(0);

        ClientDataSetFeedsMetd_Lysd.DisplayFormat := DecimalFormat(0);

        ClientDataSetFeedsCysd_Lysd.DisplayFormat := DecimalFormat(0);

        ClientDataSetFeedsMetCysd_Lysd.DisplayFormat := DecimalFormat(0);

        ClientDataSetFeedsTrpd_Lysd.DisplayFormat := DecimalFormat(0);

        ClientDataSetFeedsIled_Lysd.DisplayFormat := DecimalFormat(0);

        ClientDataSetFeedsVald_Lysd.DisplayFormat := DecimalFormat(0);

        ClientDataSetFeedsLeud_Lysd.DisplayFormat := DecimalFormat(0);

        ClientDataSetFeedsPhed_Lysd.DisplayFormat := DecimalFormat(0);

        ClientDataSetFeedsTyrd_Lysd.DisplayFormat := DecimalFormat(0);

        ClientDataSetFeedsPheTyrd_Lysd.DisplayFormat := DecimalFormat(0);

        ClientDataSetFeedsHisd_Lysd.DisplayFormat := DecimalFormat(0);

        ClientDataSetFeedsArgd_Lysd.DisplayFormat := DecimalFormat(0);

        ClientDataSetFeedsAlad_Lysd.DisplayFormat := DecimalFormat(0);

        ClientDataSetFeedsAspd_Lysd.DisplayFormat := DecimalFormat(0);

        ClientDataSetFeedsGlud_Lysd.DisplayFormat := DecimalFormat(0);

        ClientDataSetFeedsGlyd_Lysd.DisplayFormat := DecimalFormat(0);

        ClientDataSetFeedsSerd_Lysd.DisplayFormat := DecimalFormat(0);

        ClientDataSetFeedsProd_Lysd.DisplayFormat := DecimalFormat(0);

        ClientDataSetFeedsCa.DisplayFormat := MineralsFormat;

        ClientDataSetFeedsP.DisplayFormat := MineralsFormat;

        ClientDataSetFeedsNa.DisplayFormat := MineralsFormat;

        ClientDataSetFeedsK.DisplayFormat := MineralsFormat;

        ClientDataSetFeedsCl.DisplayFormat := MineralsFormat;

        ClientDataSetFeedsBE.DisplayFormat := DecimalFormat(1);

        ClientDataSetFeedsPd.DisplayFormat := MineralsFormat;

        ClientDataSetFeedsCa_Pd.DisplayFormat := DecimalFormat(2);

        ClientDataSetFeedsPd_ENc.DisplayFormat := DecimalFormat(2);

        ClientDataSetFeedsPd_ENt.DisplayFormat := DecimalFormat(2);

        ClientDataSetFeedsPhytaseConcentration.DisplayFormat := DecimalFormat(0);

        ClientDataSetFeedsPhytaseIncorporation.DisplayFormat := DecimalFormat(0);

        ClientDataSetFeedsPhytaseLevel.DisplayFormat := IncorporationFormat;

        ClientDataSetFeedsTotal.DisplayFormat := IncorporationFormat;

        ClientDataSetFeedsRemain.DisplayFormat := IncorporationFormat;

      end;

      // Chargement des aliments en m?moire

      TableFeeds := DBUser.GetTable('SELECT * FROM Feeds');

      with TableFeeds do

        try

          while not Eof do

          begin

            ClientDataSetFeeds.Append;

            try

              ClientDataSetFeedsId.Value := FieldAsInteger(FieldIndex['Id']);

//              ClientDataSetFeedsName.Value := UTF8ToString(RawByteString(FieldAsString(FieldIndex['Name'])));

              ClientDataSetFeedsName.Value := FieldAsString(FieldIndex['Name']);

//              ClientDataSetFeedsDescription.Value := UTF8ToString(RawByteString(FieldAsString(FieldIndex['Description'])));

              ClientDataSetFeedsDescription.Value := FieldAsString(FieldIndex['Description']);

              ClientDataSetFeedsPresentation.Value := FieldAsInteger(FieldIndex['Presentation']);

              ClientDataSetFeedsBonusC.Value := FieldAsDouble(FieldIndex['BonusC']) * 100;

              ClientDataSetFeedsBonusT.Value := FieldAsDouble(FieldIndex['BonusT']) * 100;

              if not TableFeeds.FieldIsNull(FieldIndex['Phytase'])

              then

                ClientDataSetFeedsPhytaseId.Value := FieldAsInteger(FieldIndex['Phytase']);

              if not TableFeeds.FieldIsNull(FieldIndex['Concentration'])

              then

                ClientDataSetFeedsPhytaseConcentration.Value := FieldAsDouble(FieldIndex['Concentration']);

              if not TableFeeds.FieldIsNull(FieldIndex['Incorporation'])

              then

                ClientDataSetFeedsPhytaseIncorporation.Value := FieldAsDouble(FieldIndex['Incorporation']);

              ClientDataSetComposition.Filter := Format('Feed = %d', [ClientDataSetFeedsId.Value]);

              ClientDataSetComposition.Filtered := True;

              CalcFeed;

              ClientDataSetComposition.Filtered := False;

              ClientDataSetComposition.Filter := '';

              ClientDataSetFeeds.Post;

            except

              ClientDataSetFeeds.Cancel;

              MessageDlg(Format(_('Unknown error: %s %s %s'), ['UnitMain', 'LoadFeeds', 'ClientDataSetFeeds']), mtError, [mbOK], 0);

              Exit;

            end;

            Application.ProcessMessages;

            Next;

          end;

        finally

          Free;

        end;

    end;

  finally

    Screen.Cursor := crDefault;

    Application.ProcessMessages;

  end;

end;

end.