InraPorc

unit UFConfig;

interface

uses

  Windows, Forms, Classes, Controls, Messages, Dialogs, ComCtrls, StdCtrls,

  Buttons, ExtCtrls, ExtDlgs, PBNumEdit, PBEdit, PBSuperSpin;

type

  TFConfig = class(TForm)

    PC: TPageControl;

    TSAliment: TTabSheet;

    PBoutons: TPanel;

    BBOk: TBitBtn;

    BBCancel: TBitBtn;

    GBFolder: TGroupBox;

    TSGeneral: TTabSheet;

    LGal: TLabel;

    GBTeneur: TGroupBox;

    GBDigest: TGroupBox;

    CBRap: TComboBox;

    CBTCompo: TComboBox;

    CBTAA: TComboBox;

    CBTAG: TComboBox;

    CBTMacro: TComboBox;

    CBTOligo: TComboBox;

    CBTFibres: TComboBox;

    CBDig: TComboBox;

    CBdCompo: TComboBox;

    CBdAA: TComboBox;

    CBAffMP: TCheckBox;

    LCompo: TLabel;

    LAA: TLabel;

    LAG: TLabel;

    LMacro: TLabel;

    LOligo: TLabel;

    LFibres: TLabel;

    GBExpr: TGroupBox;

    GBWindow: TGroupBox;

    PBHeight: TPBNumEdit;

    LWidth: TLabel;

    SBWindow: TSpeedButton;

    PBWidth: TPBNumEdit;

    LHeight: TLabel;

    PBTop: TPBNumEdit;

    LTop: TLabel;

    PBLeft: TPBNumEdit;

    LLeft: TLabel;

    TSTruie: TTabSheet;

    GBAliGest: TGroupBox;

    LAliDuree: TLabel;

    LAliQuantite: TLabel;

    GBAli1: TGroupBox;

    PBDuree1: TPBSuperSpin;

    PBQuantite1: TPBSuperSpin;

    GBAli3: TGroupBox;

    PBDuree3: TPBSuperSpin;

    PBQuantite3: TPBSuperSpin;

    CBTypeAliGest: TComboBox;

    PBAugment: TPBSuperSpin;

    LAugment: TLabel;

    GBAli2: TGroupBox;

    PBDuree2: TPBNumEdit;

    PBQuantite2: TPBSuperSpin;

    TSMessages: TTabSheet;

    CBAffCorrCUD: TCheckBox;

    TSPorc: TTabSheet;

    GBXCrois: TGroupBox;

    GBCarcasse: TGroupBox;

    GBXTruie: TGroupBox;

    CBXCrois: TComboBox;

    LXCrois: TLabel;

    CBXTruie: TComboBox;

    LXTruie: TLabel;

    CBTete: TCheckBox;

    CBLangue: TCheckBox;

    CBPieds: TCheckBox;

    CBQueue: TCheckBox;

    CBHampe: TCheckBox;

    CBPanne: TCheckBox;

    CBAffUnitProfilP: TCheckBox;

    CBAffPDMoy: TCheckBox;

    CBAffPrecocite: TCheckBox;

    CBAffEntretien: TCheckBox;

    GBProfilP: TGroupBox;

    GBAliMat: TGroupBox;

    CBAffCalcAli: TCheckBox;

    CBAffGraphAli: TCheckBox;

    GBLocal: TGroupBox;

    LLanguage: TLabel;

    LMonnaie: TLabel;

    PBMonnaie: TPBEdit;

    EFolder: TEdit;

    SBFolder: TSpeedButton;

    GBSimulT: TGroupBox;

    CBAffOptInit: TCheckBox;

    CBAffSimulT: TCheckBox;

    GBLogo: TGroupBox;

    SBLogo: TSpeedButton;

    ELogo: TEdit;

    OPDLogo: TOpenPictureDialog;

    GBExcelFile: TGroupBox;

    SBExcelFile: TSpeedButton;

    EExcelFile: TEdit;

    ODExcelFile: TOpenDialog;

    GBWarning: TGroupBox;

    SBWarning: TSpeedButton;

    CBLanguage: TComboBox;

    GBIntake: TGroupBox;

    GBFat: TGroupBox;

    GBLean: TGroupBox;

    RBIC: TRadioButton;

    RBEA: TRadioButton;

    RBP2: TRadioButton;

    RBUserFat: TRadioButton;

    RBTMP: TRadioButton;

    RBUserLean: TRadioButton;

    SBUserFat: TSpeedButton;

    SBUserLean: TSpeedButton;

    CheckBoxUpdates: TCheckBox;

    procedure FormShow(Sender: TObject);

    procedure CBLanguageChange(Sender: TObject);

    procedure CBRapChange(Sender: TObject);

    procedure CBDigChange(Sender: TObject);

    procedure CBTCompoChange(Sender: TObject);

    procedure CBTAAChange(Sender: TObject);

    procedure CBTAGChange(Sender: TObject);

    procedure CBTMacroChange(Sender: TObject);

    procedure CBTOligoChange(Sender: TObject);

    procedure CBTFibresChange(Sender: TObject);

    procedure CBdCompoChange(Sender: TObject);

    procedure CBdAAChange(Sender: TObject);

    procedure CBAffMPClick(Sender: TObject);

    procedure PBMonnaieChange(Sender: TObject);

    procedure SBWindowClick(Sender: TObject);

    procedure CBTypeAliGestChange(Sender: TObject);

    procedure PBDuree1Change(Sender: TObject);

    procedure PBDuree3Change(Sender: TObject);

    procedure PBQuantite1Change(Sender: TObject);

    procedure PBQuantite2Change(Sender: TObject);

    procedure PBQuantite3Change(Sender: TObject);

    procedure PBAugmentChange(Sender: TObject);

    procedure CBXTruieChange(Sender: TObject);

    procedure CBXCroisChange(Sender: TObject);

    procedure CBTeteClick(Sender: TObject);

    procedure CBLangueClick(Sender: TObject);

    procedure CBPiedsClick(Sender: TObject);

    procedure CBQueueClick(Sender: TObject);

    procedure CBHampeClick(Sender: TObject);

    procedure CBPanneClick(Sender: TObject);

    procedure SBFolderClick(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure CBLanguageDrawItem(Control: TWinControl; Index: Integer;

      Rect: TRect; State: TOwnerDrawState);

    procedure SBLogoClick(Sender: TObject);

    procedure EFolderChange(Sender: TObject);

    procedure ELogoChange(Sender: TObject);

    procedure SBExcelFileClick(Sender: TObject);

    procedure EExcelFileChange(Sender: TObject);

    procedure SBWarningClick(Sender: TObject);

    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;

    procedure RBFeedInfoClick(Sender: TObject);

    procedure RBFatInfoClick(Sender: TObject);

    procedure RBLeanInfoClick(Sender: TObject);

    procedure SBUserFatClick(Sender: TObject);

    procedure SBUserLeanClick(Sender: TObject);

    procedure CheckBoxUpdatesClick(Sender: TObject);

  private

    { D?clarations priv?es }

    Update: boolean;

    function StrEquation(Name: String; PVV: Boolean; a, b, c: Double): String;

  public

    { D?clarations publiques }

  end;

var

  FConfig: TFConfig;

implementation

uses

  FileCtrl, Graphics, SysUtils, gnugettext, UVariables, UStrings, UUtil,

  UFUserEquation, UFMenu;

{$R *.dfm}

{ TFConfig }

procedure TFConfig.FormCreate(Sender: TObject);

var

  BorderSize: Integer;

begin

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

  then

    Font.Name := 'Arial Unicode MS';

  TranslateComponent(Self);

  Constraints.MinWidth := 480 + (Width - ClientWidth);

  Width := Constraints.MinWidth;

  Constraints.MinHeight := 436 + (Height - ClientHeight);

  Height := Constraints.MinHeight;

  // Initialisation

  BorderSize := (FMenu.Width - FMenu.ClientWidth) div 2;

  PBWidth.MaxValue := Screen.WorkAreaWidth + BorderSize * 2;

  PBWidth.MinValue := FMenu.Constraints.MinWidth;

  PBHeight.MaxValue := Screen.WorkAreaHeight + BorderSize * 2;

  PBHeight.MinValue := FMenu.Constraints.MinHeight;

  PBLeft.MaxValue := PBWidth.MaxValue - PBWidth.MinValue;

  PBLeft.MinValue := - BorderSize;

  PBTop.MaxValue := PBHeight.MaxValue - PBHeight.MinValue;

  PBTop.MinValue := - BorderSize;

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

  CBLanguage.Items.Add('en_US');

  RBIC.Caption := Format('%s = %s / %s', [_('F:G'), _('Feed usage'), _('Body weight gain')]);

  RBEA.Caption := Format('%s = %s / %s', [_('G:F'), _('Body weight gain'), _('Feed usage')]);

  RBP2.Caption := StrEquation(StrP2, False, 6.96, 0, 0.375);

  if Length(UserFatShortName) = 0

  then

    RBUserFat.Caption := StrEquation(_('UserP2'), UserFatPVV, UserFatA, UserFatB, UserFatC)

  else

    RBUserFat.Caption := StrEquation(UserFatShortName, UserFatPVV, UserFatA, UserFatB, UserFatC);

  if Length(UserFatLongName) = 0

  then

    RBUserFat.Hint := _('User backfat thickness')

  else

    RBUserFat.Hint := UserFatLongName;

  RBTMP.Caption := StrEquation(StrTMP, True, 57.43, 95.68, -62.68);

  if Length(UserLeanShortName) = 0

  then

    RBUserLean.Caption := StrEquation(_('UserLean'), UserLeanPVV, UserLeanA, UserLeanB, UserLeanC)

  else

    RBUserLean.Caption := StrEquation(UserLeanShortName, UserLeanPVV, UserLeanA, UserLeanB, UserLeanC);

  if Length(UserLeanLongName) = 0

  then

    RBUserLean.Hint := _('User lean')

  else

    RBUserLean.Hint := UserLeanLongName;

  PC.ActivePageIndex := 0;

end;

procedure TFConfig.FormShow(Sender: TObject);

begin

  NewFolder := Folder;

  NewLogo := Logo;

  NewLanguageCode := LanguageCode;

  Update := TRUE;

  // G?n?ral

  EFolder.Text := Folder;

  EExcelFile.Text := ExcelFile;

  PBWidth.AsInteger := FMenu.Width;

  PBHeight.AsInteger := FMenu.Height;

  PBLeft.AsInteger := FMenu.Left;

  PBTop.AsInteger := FMenu.Top;

  ELogo.Text := Logo;

  CBLanguage.ItemIndex := CBLanguage.Items.IndexOf(LanguageCode);

  PBMonnaie.Text := CurrencySign;

  CheckBoxUpdates.Checked := CheckForUpdates;

  // Mati?res premi?res et aliments

  CBRap.ItemIndex := ConfRap;

  CBDig.ItemIndex := ConfDig;

  CBDigChange(nil);

  CBTCompo.ItemIndex := ConfTCompo;

  CBTAA.ItemIndex := ConfTAA;

  CBTAG.ItemIndex := ConfTAG;

  CBTMacro.ItemIndex := ConfTMacro;

  CBTOligo.ItemIndex := ConfTOligo;

  CBTFibres.ItemIndex := ConfTFibres;

  CBdCompo.ItemIndex := ConfdCompo;

  CBdAA.ItemIndex := ConfdAA;

  CBAffMP.Checked := ConfAffMP;

  // Truie

  CBXTruie.ItemIndex := XTruie;

  CBTypeAliGest.ItemIndex := TypeAliGest;

  CBTypeAliGestChange(nil);

  // Porc croissance

  CBXCrois.ItemIndex := XCrois;

  CBTete.Checked := CarTete;

  CBTeteClick(nil);

  CBLangue.Checked := CarLangue;

  CBPieds.Checked := CarPieds;

  CBQueue.Checked := CarQueue;

  CBHampe.Checked := CarHampe;

  CBPanne.Checked := CarPanne;

  if FeedInfo = 0

  then // Indice de consommation

    RBIC.Checked := True

  else // Efficacit? alimentaire

    RBEA.Checked := True;

  if FatInfo = 0

  then // P2

    RBP2.Checked := True

  else // User defined

    RBUserFat.Checked := True;

  if LeanInfo = 0

  then // TMP

    RBTMP.Checked := True

  else // User defined

    RBUserLean.Checked := True;

  Update := False;

  PC.ActivePageIndex := 0;

end ;

procedure TFConfig.WMSysCommand(var Message: TWMSysCommand);

begin

  if Message.CmdType = SC_MINIMIZE

  then

    Application.Minimize

  else

    inherited;

end;

// G?n?ral

procedure TFConfig.SBFolderClick(Sender: TObject);

var

  NewDir: String;

begin

  NewDir := NewFolder;

  if SelectDirectory(StrSelectDir, '', NewDir)

  and DirectoryExists(NewDir)

  and (NewDir <> NewFolder)

  then

    EFolder.Text := NewDir;

end;

procedure TFConfig.EFolderChange(Sender: TObject);

begin

  ConfigChanged := TRUE;

  NewFolder := EFolder.Text;

end;

procedure TFConfig.SBExcelFileClick(Sender: TObject);

begin

  ODExcelFile.FileName := ExcelFile;

  if ODExcelFile.Execute and (ODExcelFile.FileName <> ExcelFile)

  then

    EExcelFile.Text := ODExcelFile.FileName;

end;

procedure TFConfig.EExcelFileChange(Sender: TObject);

begin

  ConfigChanged := TRUE;

  ExcelFile := EExcelFile.Text;

end;

procedure TFConfig.SBWindowClick(Sender: TObject);

begin

  ConfigChanged := TRUE;

  MainLeft := PBLeft.AsInteger;

  MainTop := PBTop.AsInteger;

  MainWidth := PBWidth.AsInteger;

  MainHeight := PBHeight.AsInteger;

  with FMenu do

  if (PBWidth.AsInteger <> Width)

  or (PBHeight.AsInteger <> Height)

  or (PBLeft.AsInteger <> Left)

  or (PBTop.AsInteger <> Top)

  then // Taille et position de la fen?tre principale

  begin

    SetBounds(MainLeft, MainTop, MainWidth, MainHeight);

    FormResize(nil);

  end;

end;

procedure TFConfig.SBLogoClick(Sender: TObject);

begin

  OPDLogo.FileName := NewLogo;

  if OPDLogo.Execute and (OPDLogo.FileName <> NewLogo)

  then

    ELogo.Text := OPDLogo.FileName;

end;

procedure TFConfig.ELogoChange(Sender: TObject);

begin

  ConfigChanged := TRUE;

  NewLogo := ELogo.Text;

end;

procedure TFConfig.CBLanguageDrawItem(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 TFConfig.CBLanguageChange(Sender: TObject);

begin

  if not Update

  then

  begin

    NewLanguageCode := CBLanguage.Items[CBLanguage.ItemIndex];

    ConfigChanged := TRUE;

  end;

end;

procedure TFConfig.PBMonnaieChange(Sender: TObject);

begin

  if not Update

  then

  begin

    CurrencySign := PBMonnaie.Text;

    ConfigChanged := TRUE;

  end;

end;

procedure TFConfig.SBWarningClick(Sender: TObject);

begin

  // R?activation pour la session courante

  AffCorrCUD := True;

  AffCalcAli := True;

  AffGraphAli := True;

  AffUnitProfilP := True;

  AffPDMoy := True;

  AffPrecocite := True;

  AffEntretien := True;

  AffOptInit := True;

  AffSimulT := True;

  AffBesoin := True;

  // R?activation globale

  BdRWriteBoolean('\Software\InraPorc\Config\Messages', 'CorrCUD', True);

  BdRWriteBoolean('\Software\InraPorc\Config\Messages', 'CalcAli', True);

  BdRWriteBoolean('\Software\InraPorc\Config\Messages', 'GraphAli', True);

  BdRWriteBoolean('\Software\InraPorc\Config\Messages', 'UnitProfilP', True);

  BdRWriteBoolean('\Software\InraPorc\Config\Messages', 'PDMoy', True);

  BdRWriteBoolean('\Software\InraPorc\Config\Messages', 'Precocite', True);

  BdRWriteBoolean('\Software\InraPorc\Config\Messages', 'Entretien', True);

  BdRWriteBoolean('\Software\InraPorc\Config\Messages', 'OptInit', True);

  BdRWriteBoolean('\Software\InraPorc\Config\Messages', 'SimulT', True);

  BdRWriteBoolean('\Software\InraPorc\Config\Messages', 'Besoin', True);

end;

// Mati?res premi?res et aliments

procedure TFConfig.CBRapChange (Sender : TObject) ;

begin

  if not Update

  then

  begin

    ConfRap := CBRap.ItemIndex ;

    ConfigChanged := TRUE ;

  end ;

end ;

procedure TFConfig.CBDigChange (Sender : TObject) ;

begin

  if CBDig.ItemIndex = 0

  then // CUD

  begin

    CBDCompo.Enabled := FALSE ;

    CBDAA.Enabled := FALSE ;

  end

  else // Teneur digestible

  begin

    CBDCompo.Enabled := TRUE ;

    CBDAA.Enabled := TRUE ;

  end ;

  if not Update

  then

  begin

    ConfDig := CBDig.ItemIndex ;

    if CBDig.ItemIndex = 0

    then // CUD

    begin

      Update := TRUE ;

      CBdCompo.ItemIndex := 1; // %

      CBdAA.ItemIndex := 1; // %

      Update := FALSE ;

    end ;

    ConfDCompo := CBDCompo.ItemIndex ;

    ConfDAA := CBDAA.ItemIndex ;

    ConfigChanged := TRUE ;

  end ;

end ;

procedure TFConfig.CBTCompoChange (Sender : TObject) ;

begin

  if not Update

  then

  begin

    ConfTCompo := CBTCompo.ItemIndex ;

    ConfigChanged := TRUE ;

  end ;

end ;

procedure TFConfig.CBTAAChange (Sender : TObject) ;

begin

  if not Update

  then

  begin

    ConfTAA := CBTAA.ItemIndex ;

    ConfigChanged := TRUE ;

  end ;

end ;

procedure TFConfig.CBTAGChange (Sender : TObject) ;

begin

  if not Update

  then

  begin

    ConfTAG := CBTAG.ItemIndex ;

    ConfigChanged := TRUE ;

  end ;

end ;

procedure TFConfig.CBTMacroChange (Sender : TObject) ;

begin

  if not Update

  then

  begin

    ConfTMacro := CBTMacro.ItemIndex ;

    ConfigChanged := TRUE ;

  end ;

end ;

procedure TFConfig.CBTOligoChange (Sender : TObject) ;

begin

  if not Update

  then

  begin

    ConfTOligo := CBTOligo.ItemIndex ;

    ConfigChanged := TRUE ;

  end ;

end ;

procedure TFConfig.CBTFibresChange (Sender : TObject) ;

begin

  if not Update

  then

  begin

    ConfTFibres := CBTFibres.ItemIndex ;

    ConfigChanged := TRUE ;

  end ;

end ;

procedure TFConfig.CBdCompoChange (Sender : TObject) ;

begin

  if not Update

  then

  begin

    ConfdCompo := CBdCompo.ItemIndex ;

    ConfigChanged := TRUE ;

  end ;

end ;

procedure TFConfig.CBdAAChange (Sender : TObject) ;

begin

  if not Update

  then

  begin

    ConfdAA := CBdAA.ItemIndex ;

    ConfigChanged := TRUE ;

  end ;

end ;

procedure TFConfig.CBAffMPClick (Sender : TObject) ;

begin

  if not Update

  then

  begin

    ConfAffMP := CBAffMP.Checked ;

    ConfigChanged := TRUE ;

  end ;

end ;

// Truie

procedure TFConfig.CBXTruieChange(Sender: TObject);

begin

  if not Update

  then

  begin

    XTruie := CBXTruie.ItemIndex ;

    ConfigChanged := TRUE ;

  end ;

end;

procedure TFConfig.CheckBoxUpdatesClick(Sender: TObject);

begin

  if not Update

  then

  begin

    CheckForUpdates := CheckBoxUpdates.Checked;

    ConfigChanged := TRUE;

  end;

end;

procedure TFConfig.CBTypeAliGestChange(Sender: TObject);

var

  etat : boolean ;

begin

  etat := Update ;

  Update := TRUE ;

  case CBTypeAliGest.ItemIndex of

    0 : // Une p?riode - Quantit? constante

    begin

      PBDuree1.Visible := FALSE ;

      PBDuree3.Visible := FALSE ;

      PBQuantite1.Visible := FALSE ;

      PBQuantite2.Visible := FALSE ;

      PBQuantite3.Visible := FALSE ;

      PBAugment.Visible := FALSE ;

      PBDuree2.AsInteger := DureeGest ;

    end ;

    1 : // Deux p?riodes - Quantit? finale fix?e

    begin

      PBDuree1.Visible := FALSE ;

      PBDuree3.Visible := TRUE ;

      PBQuantite1.Visible := FALSE ;

      PBQuantite2.Visible := FALSE ;

      PBQuantite3.Visible := TRUE ;

      PBAugment.Visible := FALSE ;

      PBDuree2.AsInteger := DureeGest - Duree3 ;

      if ActiveControl <> PBDuree3

      then

        PBDuree3.AsInteger := Duree3 ;

      if ActiveControl <> PBQuantite3

      then

        PBQuantite3.AsFloat := Quantite3 ;

    end ;

    2 : // Deux p?riodes - Augmentation fix?e

    begin

      PBDuree1.Visible := FALSE ;

      PBDuree3.Visible := TRUE ;

      PBQuantite1.Visible := FALSE ;

      PBQuantite2.Visible := FALSE ;

      PBQuantite3.Visible := FALSE ;

      PBAugment.Visible := TRUE ;

      PBDuree2.AsInteger := DureeGest - Duree3 ;

      if ActiveControl <> PBDuree3

      then

        PBDuree3.AsInteger := Duree3 ;

      if ActiveControl <> PBAugment

      then

        PBAugment.AsFloat := Augment ;

    end ;

    3 : // Trois p?riodes - Augmentation et quantit? finale fix?es

    begin

      PBDuree1.Visible := TRUE ;

      PBDuree3.Visible := TRUE ;

      PBQuantite1.Visible := FALSE ;

      PBQuantite2.Visible := FALSE ;

      PBQuantite3.Visible := TRUE ;

      PBAugment.Visible := TRUE ;

      if ActiveControl <> PBDuree1

      then

        PBDuree1.AsInteger := Duree1 ;

      PBDuree2.AsInteger := DureeGest - Duree1 - Duree3 ;

      if ActiveControl <> PBDuree3

      then

        PBDuree3.AsInteger := Duree3 ;

      if ActiveControl <> PBAugment

      then

        PBAugment.AsFloat := Augment ;

      if ActiveControl <> PBQuantite3

      then

        PBQuantite3.AsFloat := Quantite3 ;

    end ;

    4 : // Trois p?riodes - Quantit?s des p?riodes 2 et 3 fix?es

    begin

      PBDuree1.Visible := TRUE ;

      PBDuree3.Visible := TRUE ;

      PBQuantite1.Visible := FALSE ;

      PBQuantite2.Visible := TRUE ;

      PBQuantite3.Visible := TRUE ;

      PBAugment.Visible := FALSE ;

      if ActiveControl <> PBDuree1

      then

        PBDuree1.AsInteger := Duree1 ;

      PBDuree2.AsInteger := DureeGest - Duree1 - Duree3 ;

      if ActiveControl <> PBDuree3

      then

        PBDuree3.AsInteger := Duree3 ;

      if ActiveControl <> PBQuantite2

      then

        PBQuantite2.AsFloat := Quantite2 ;

      if ActiveControl <> PBQuantite3

      then

        PBQuantite3.AsFloat := Quantite3 ;

    end ;

    5 : // Trois p?riodes - Augmentation et quantit? initiale fix?es

    begin

      PBDuree1.Visible := TRUE ;

      PBDuree3.Visible := TRUE ;

      PBQuantite1.Visible := TRUE ;

      PBQuantite2.Visible := FALSE ;

      PBQuantite3.Visible := FALSE ;

      PBAugment.Visible := TRUE ;

      if ActiveControl <> PBDuree1

      then

        PBDuree1.AsInteger := Duree1 ;

      PBDuree2.AsInteger := DureeGest - Duree1 - Duree3 ;

      if ActiveControl <> PBDuree3

      then

        PBDuree3.AsInteger := Duree3 ;

      if ActiveControl <> PBAugment

      then

        PBAugment.AsFloat := Augment ;

      if ActiveControl <> PBQuantite1

      then

        PBQuantite1.AsFloat := Quantite1 ;

    end ;

  end ;

  Update := etat ;

  if not Update

  then

  begin

    TypeAliGest := CBTypeAliGest.ItemIndex ;

    ConfigChanged := TRUE ;

  end ;

end;

procedure TFConfig.PBDuree1Change(Sender: TObject);

begin

  if not Update

  then

  begin

    Duree1 := PBDuree1.AsInteger ;

    CBTypeALiGestChange (nil) ;

    ConfigChanged := TRUE ;

  end ;

end;

procedure TFConfig.PBDuree3Change(Sender: TObject);

begin

  if not Update

  then

  begin

    Duree3 := PBDuree3.AsInteger ;

    CBTypeALiGestChange (nil) ;

    ConfigChanged := TRUE ;

  end ;

end;

procedure TFConfig.PBQuantite1Change(Sender: TObject);

begin

  if not Update

  then

  begin

    Quantite1 := PBQuantite1.AsFloat ;

    CBTypeALiGestChange (nil) ;

    ConfigChanged := TRUE ;

  end ;

end;

procedure TFConfig.PBQuantite2Change(Sender: TObject);

begin

  if not Update

  then

  begin

    Quantite2 := PBQuantite2.AsFloat ;

    CBTypeALiGestChange (nil) ;

    ConfigChanged := TRUE ;

  end ;

end;

procedure TFConfig.PBQuantite3Change(Sender: TObject);

begin

  if not Update

  then

  begin

    Quantite3 := PBQuantite3.AsFloat ;

    CBTypeALiGestChange (nil) ;

    ConfigChanged := TRUE ;

  end ;

end;

procedure TFConfig.PBAugmentChange(Sender: TObject);

begin

  if not Update

  then

  begin

    Augment := PBAugment.AsFloat ;

    CBTypeAliGestChange (nil) ;

    ConfigChanged := TRUE ;

  end ;

end;

// Porc croissance

procedure TFConfig.CBXCroisChange(Sender: TObject);

begin

  if not Update

  then

  begin

    XCrois := CBXCrois.ItemIndex ;

    ConfigChanged := TRUE ;

  end ;

end;

procedure TFConfig.CBTeteClick(Sender: TObject);

begin

  if CBTete.Checked

  then

    CBLangue.Enabled := TRUE

  else

  begin

    CarLangue := FALSE ;

    CBLangue.Checked := FALSE ;

    CBLangue.Enabled := FALSE ;

  end ;

  if not Update

  then

  begin

    CarTete := CBTete.Checked ;

    ConfigChanged := TRUE ;

  end ;

end;

procedure TFConfig.CBLangueClick(Sender: TObject);

begin

  if not Update

  then

  begin

    CarLangue := CBLangue.Checked ;

    ConfigChanged := TRUE ;

  end ;

end;

procedure TFConfig.CBPiedsClick(Sender: TObject);

begin

  if not Update

  then

  begin

    CarPieds := CBPieds.Checked ;

    ConfigChanged := TRUE ;

  end ;

end;

procedure TFConfig.CBQueueClick(Sender: TObject);

begin

  if not Update

  then

  begin

    CarQueue := CBQueue.Checked ;

    ConfigChanged := TRUE ;

  end ;

end;

procedure TFConfig.CBHampeClick(Sender: TObject);

begin

  if not Update

  then

  begin

    CarHampe := CBHampe.Checked ;

    ConfigChanged := TRUE ;

  end ;

end;

procedure TFConfig.CBPanneClick(Sender: TObject);

begin

  if not Update

  then

  begin

    CarPanne := CBPanne.Checked ;

    ConfigChanged := TRUE ;

  end ;

end;

procedure TFConfig.RBFeedInfoClick(Sender: TObject);

begin

  if not Update

  then

  begin

    ConfigChanged := True;

    if RBIC.Checked

    then // Indice de consommation

      FeedInfo := 0

    else // Efficacit? alimentaire

      FeedInfo := 1;

  end;

end;

procedure TFConfig.RBFatInfoClick(Sender: TObject);

begin

  if not Update

  then

  begin

    ConfigChanged := True;

    if RBP2.Checked

    then // P2

      FatInfo := 0

    else // User defined

      FatInfo := -1;

  end;

end;

procedure TFConfig.SBUserFatClick(Sender: TObject);

begin

  FUserEquation := TFUserEquation.Create(Self);

  with FUserEquation do

  begin

    EShortName.Text := UserFatShortName;

    ELongName.Text := UserFatLongName;

    if UserFatPVV then RBRatioPVV.Checked := True;

    VEA.AsFloat := UserFatA;

    VEB.AsFloat := UserFatB;

    VEC.AsFloat := UserFatC;

    if ShowModal = mrOk

    then

    begin

      ConfigChanged := True;

      UserFatShortName := Trim(EShortName.Text);

      UserFatLongName := Trim(ELongName.Text);

      UserFatPVV := RBRatioPVV.Checked;

      UserFatA := VEA.AsFloat;

      UserFatB := VEB.AsFloat;

      UserFatC := VEC.AsFloat;

      if Length(UserFatShortName) = 0

      then

        RBUserFat.Caption := StrEquation(_('UserP2'), UserFatPVV, UserFatA, UserFatB, UserFatC)

      else

        RBUserFat.Caption := StrEquation(UserFatShortName, UserFatPVV, UserFatA, UserFatB, UserFatC);

      if Length(UserFatLongName) = 0

      then

        RBUserFat.Hint := _('User backfat thickness')

      else

        RBUserFat.Hint := UserFatLongName;

    end;

    Release;

  end;

end;

procedure TFConfig.RBLeanInfoClick(Sender: TObject);

begin

  if not Update

  then

  begin

    ConfigChanged := True;

    if RBTMP.Checked

    then // TMP

      LeanInfo := 0

    else // User defined

      LeanInfo := -1;

  end;

end;

procedure TFConfig.SBUserLeanClick(Sender: TObject);

begin

  FUserEquation := TFUserEquation.Create(Self);

  with FUserEquation do

  begin

    EShortName.Text := UserLeanShortName;

    ELongName.Text := UserLeanLongName;

    if UserLeanPVV then RBRatioPVV.Checked := True;

    VEA.AsFloat := UserLeanA;

    VEB.AsFloat := UserLeanB;

    VEC.AsFloat := UserLeanC;

    if ShowModal = mrOk

    then

    begin

      ConfigChanged := True;

      UserLeanShortName := Trim(EShortName.Text);

      UserLeanLongName := Trim(ELongName.Text);

      UserLeanPVV := RBRatioPVV.Checked;

      UserLeanA := VEA.AsFloat;

      UserLeanB := VEB.AsFloat;

      UserLeanC := VEC.AsFloat;

      if Length(UserLeanShortName) = 0

      then

        RBUserLean.Caption := StrEquation(_('UserLean'), UserLeanPVV, UserLeanA, UserLeanB, UserLeanC)

      else

        RBUserLean.Caption := StrEquation(UserLeanShortName, UserLeanPVV, UserLeanA, UserLeanB, UserLeanC);

      if Length(UserLeanLongName) = 0

      then

        RBUserLean.Hint := _('User lean')

      else

        RBUserLean.Hint := UserLeanLongName;

    end;

    Release;

  end;

end;

function TFConfig.StrEquation(Name: String; PVV: Boolean; a, b, c: Double): String;

var

  BUnit, CUnit: String;

begin

  if PVV

  then

    BUnit := Format('%s/%s', [StrP, StrPVV])

  else

    BUnit := StrP;

  if PVV

  then

    CUnit := Format('%s/%s', [StrL, StrPVV])

  else

    CUnit := StrL;

  if c = 0

  then

    if b = 0

    then

      Result := Format('%s = %s', [Name, DblToStr(a, 5)])

    else

      if a = 0

      then

        Result := Format('%s = %s %s', [Name, DblToStr(b, 5), BUnit])

      else

        if b < 0

        then

          Result := Format('%s = %s - %s %s', [Name, DblToStr(a, 5), DblToStr(Abs(b), 5), BUnit])

        else

          Result := Format('%s = %s + %s %s', [Name, DblToStr(a, 5), DblToStr(b, 5), BUnit])

  else

    if b = 0

    then

      if a = 0

      then

        Result := Format('%s = %s %s', [Name, DblToStr(c, 5), CUnit])

      else

        if c < 0

        then

          Result := Format('%s = %s - %s %s', [Name, DblToStr(a, 5), DblToStr(Abs(c), 5), CUnit])

        else

          Result := Format('%s = %s + %s %s', [Name, DblToStr(a, 5), DblToStr(c, 5), CUnit])

    else

      if a = 0

      then

        if c < 0

        then

          Result := Format('%s = %s %s - %s %s', [Name, DblToStr(b, 5), BUnit, DblToStr(Abs(c), 5), CUnit])

        else

          Result := Format('%s = %s %s + %s %s', [Name, DblToStr(b, 5), BUnit, DblToStr(c, 5), CUnit])

      else

        if c < 0

        then

          if b < 0

          then

            Result := Format('%s = %s - %s %s - %s %s', [Name, DblToStr(a, 5), DblToStr(Abs(b), 5), BUnit, DblToStr(Abs(c), 5), CUnit])

          else

            Result := Format('%s = %s + %s %s - %s %s', [Name, DblToStr(a, 5), DblToStr(b, 5), BUnit, DblToStr(Abs(c), 5), CUnit])

        else

          if b < 0

          then

            Result := Format('%s = %s - %s %s + %s %s', [Name, DblToStr(a, 5), DblToStr(Abs(b), 5), BUnit, DblToStr(c, 5), CUnit])

          else

            Result := Format('%s = %s + %s %s + %s %s', [Name, DblToStr(a, 5), DblToStr(b, 5), BUnit, DblToStr(c, 5), CUnit]);

end;

end.