EvaPig

unit UnitPredictionCreate;

interface

uses

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

  Dialogs, StdCtrls, DBCtrls, Mask, JvExControls, JvExStdCtrls, JvEdit,

  JvValidateEdit, JvEnterTab, JvExMask, JvSpin, gnugettext, JvButton, JvCtrls,

  ImgList, ActnList, ExtCtrls;

type

  TFormPredictionCreate = class(TForm)

    EnterAsTab: TJvEnterAsTab;

    LabelName: TLabel;

    EditName: TEdit;

    GroupBoxStep2: TGroupBox;

    LabelMM: TLabel;

    ValidateEditMM: TJvValidateEdit;

    ComboBoxMM: TComboBox;

    GroupBoxStep5: TGroupBox;

    LabelMAT: TLabel;

    LabelMG: TLabel;

    ValidateEditMG: TJvValidateEdit;

    ValidateEditEB: TJvValidateEdit;

    ComboBoxMG: TComboBox;

    ComboBoxEB: TComboBox;

    GroupBoxStep4: TGroupBox;

    LabelEB: TLabel;

    LabelNDF: TLabel;

    LabelADF: TLabel;

    LabeldMOv: TLabel;

    ValidateEditCB: TJvValidateEdit;

    ValidateEditNDF: TJvValidateEdit;

    ValidateEditADF: TJvValidateEdit;

    ValidateEditdMOv: TJvValidateEdit;

    ComboBoxFibre: TComboBox;

    GroupBoxStep6: TGroupBox;

    LabelCB: TLabel;

    ValidateEditAmidon: TJvValidateEdit;

    ComboBoxAmidon: TComboBox;

    GroupBoxStep7: TGroupBox;

    LabelAmidon: TLabel;

    ValidateEditSucres: TJvValidateEdit;

    ComboBoxSucres: TComboBox;

    GroupBoxStep3: TGroupBox;

    LabelSucres: TLabel;

    ValidateEditMAT: TJvValidateEdit;

    ComboBoxMAT: TComboBox;

    GroupBoxStep1: TGroupBox;

    LabelMS: TLabel;

    ValidateEditMS: TJvValidateEdit;

    ButtonNext: TButton;

    ComboBoxMS: TComboBox;

    GroupBoxBonus: TGroupBox;

    LabelCrois: TLabel;

    LabelTruie: TLabel;

    SpinEditBonusC: TJvSpinEdit;

    SpinEditBonusT: TJvSpinEdit;

    CheckBoxMM: TCheckBox;

    CheckBoxMG: TCheckBox;

    CheckBoxEB: TCheckBox;

    CheckBoxCB: TCheckBox;

    CheckBoxNDF: TCheckBox;

    CheckBoxADF: TCheckBox;

    CheckBoxdMOv: TCheckBox;

    CheckBoxAmidon: TCheckBox;

    CheckBoxSucres: TCheckBox;

    CheckBoxMAT: TCheckBox;

    ActionListButtons: TActionList;

    ActionView: TAction;

    ActionReset: TAction;

    ActionHelp: TAction;

    ActionClose: TAction;

    ImageListIcons: TImageList;

    JvImgBtnClose: TJvImgBtn;

    JvImgBtnHelp: TJvImgBtn;

    JvImgBtnReset: TJvImgBtn;

    JvImgBtnView: TJvImgBtn;

    PanelButtons: TPanel;

    procedure FormCreate(Sender: TObject);

    procedure ButtonNextClick(Sender: TObject);

    procedure CheckBoxMMClick(Sender: TObject);

    procedure CheckBoxMATClick(Sender: TObject);

    procedure CheckBoxdMOvClick(Sender: TObject);

    procedure CheckBoxMGClick(Sender: TObject);

    procedure CheckBoxEBClick(Sender: TObject);

    procedure CheckBoxAmidonClick(Sender: TObject);

    procedure CheckBoxSucresClick(Sender: TObject);

    procedure CheckBoxCBClick(Sender: TObject);

    procedure CheckBoxNDFClick(Sender: TObject);

    procedure CheckBoxADFClick(Sender: TObject);

    procedure ComboBoxMSChange(Sender: TObject);

    procedure ComboBoxMMChange(Sender: TObject);

    procedure ComboBoxMATChange(Sender: TObject);

    procedure ComboBoxFibreChange(Sender: TObject);

    procedure ComboBoxMGChange(Sender: TObject);

    procedure ComboBoxEBChange(Sender: TObject);

    procedure ComboBoxAmidonChange(Sender: TObject);

    procedure ComboBoxSucresChange(Sender: TObject);

    procedure ActionViewExecute(Sender: TObject);

    procedure ActionResetExecute(Sender: TObject);

    procedure ActionHelpExecute(Sender: TObject);

    procedure ActionCloseExecute(Sender: TObject);

    procedure NumEditKeyDown(Sender: TObject; var Key: Word;

      Shift: TShiftState);

    procedure NumEditKeyPress(Sender: TObject; var Key: Char);

  private

    { D?clarations priv?es }

    procedure EditActivate(Edit: TJvValidateEdit);

    procedure EditEmpty(Edit: TJvValidateEdit);

  public

    { D?clarations publiques }

  end;

var

  FormPredictionCreate: TFormPredictionCreate;

implementation

{$R *.dfm}

uses

  UnitDeclaration, UnitOptions, UnitPredictionDetail;

var

  VK_Separator: boolean;

procedure TFormPredictionCreate.ActionCloseExecute(Sender: TObject);

begin

  ModalResult := mrClose;

end;

procedure TFormPredictionCreate.ActionHelpExecute(Sender: TObject);

begin

  Application.HelpContext(HelpContext);

end;

procedure TFormPredictionCreate.ActionResetExecute(Sender: TObject);

begin

  EditName.Enabled := True;

  ActiveControl := EditName;

  EditName.SelectAll;

  ValidateEditMS.Enabled := True;

  ValidateEditMS.AsFloat := 0;

  ComboBoxMS.Enabled := True;

  ButtonNext.Visible := True;

  CheckBoxMM.Checked := False;

  CheckBoxMM.Enabled := False;

  ComboBoxMM.Enabled := False;

  CheckBoxMAT.Checked := False;

  CheckBoxMAT.Enabled := False;

  ComboBoxMAT.Enabled := False;

  CheckBoxCB.Checked := False;

  CheckBoxCB.Enabled := False;

  CheckBoxNDF.Checked := False;

  CheckBoxNDF.Enabled := False;

  CheckBoxADF.Checked := False;

  CheckBoxADF.Enabled := False;

  ComboBoxFibre.Enabled := False;

  CheckBoxdMOv.Checked := False;

  CheckBoxdMOv.Enabled := True;

  CheckBoxMG.Checked := False;

  CheckBoxMG.Enabled := False;

  ComboBoxMG.Enabled := False;

  CheckBoxEB.Checked := False;

  CheckBoxEB.Enabled := False;

  ComboBoxEB.Enabled := False;

  CheckBoxAmidon.Checked := False;

  CheckBoxAmidon.Enabled := False;

  ComboBoxAmidon.Enabled := False;

  CheckBoxSucres.Checked := False;

  CheckBoxSucres.Enabled := False;

  ComboBoxSucres.Enabled := False;

  SpinEditBonusC.Enabled := False;

  SpinEditBonusT.Enabled := False;

  JvImgBtnView.Enabled := False;

  JvImgBtnReset.Enabled := False;

end;

procedure TFormPredictionCreate.ActionViewExecute(Sender: TObject);

var

  Nb: Integer;

  MM, MAT, MG, Fibre, Amidon, Sucres, CB, NDF, ADF: Double;

begin

{

  if not CheckBoxMM.Checked

  then

  begin

    MessageDlg(_('You must specify an ash value for this diet.'), mtError, [mbOK], 0);

    ActiveControl := CheckBoxMM;

    Exit;

  end;

  if not CheckBoxMAT.Checked

  then

  begin

    MessageDlg(_('You must specify a crude protein value for this diet.'), mtError, [mbOK], 0);

    ActiveControl := CheckBoxMAT;

    Exit;

  end;

  if not CheckBoxCB.Checked and not CheckBoxNDF.Checked and not CheckBoxADF.Checked  and not CheckBoxdMOv.Checked

  then

  begin

    MessageDlg(_('You must specify a fiber value (crude fiber, NDF or ADF) or in vitro digestibility of organic matter for this diet.'), mtError, [mbOK], 0);

    ActiveControl := CheckBoxCB;

    Exit;

  end;

  if not CheckBoxMG.Checked and not CheckBoxEB.Checked

  then

  begin

    MessageDlg(_('You must specify a crude fat value or a gross energy value for this diet.'), mtError, [mbOK], 0);

    ActiveControl := CheckBoxMG;

    Exit;

  end;

}

  if CheckBoxMM.Checked

  then

    with DataModuleDeclaration do

      MM := InputProximal(ValidateEditMM.AsFloat, RapMS, ComboBoxMM.ItemIndex div 2, ComboBoxMM.ItemIndex mod 2)

  else

    MM := 0;

  if CheckBoxMAT.Checked

  then

    with DataModuleDeclaration do

      MAT := InputProximal(ValidateEditMAT.AsFloat, RapMS, ComboBoxMAT.ItemIndex div 2, ComboBoxMAT.ItemIndex mod 2)

  else

    MAT := 0;

  if CheckBoxMG.Checked

  then

    with DataModuleDeclaration do

      MG := InputProximal(ValidateEditMG.AsFloat, RapMS, ComboBoxMG.ItemIndex div 2, ComboBoxMG.ItemIndex mod 2)

  else

    MG := 0;

  Nb := 0;

  if CheckBoxCB.Checked

  then

  begin

    with DataModuleDeclaration do

      CB := InputProximal(ValidateEditCB.AsFloat, RapMS, ComboBoxFibre.ItemIndex div 2, ComboBoxFibre.ItemIndex mod 2);

    Inc(Nb);

  end

  else

    CB := 0;

  if CheckBoxNDF.Checked

  then

  begin

    with DataModuleDeclaration do

      NDF := InputProximal(ValidateEditNDF.AsFloat, RapMS, ComboBoxFibre.ItemIndex div 2, ComboBoxFibre.ItemIndex mod 2);

    Inc(Nb);

  end

  else

    NDF := 0;

  if CheckBoxADF.Checked

  then

  begin

    with DataModuleDeclaration do

      ADF := InputProximal(ValidateEditADF.AsFloat, RapMS, ComboBoxFibre.ItemIndex div 2, ComboBoxFibre.ItemIndex mod 2);

    Inc(Nb);

  end

  else

    ADF := 0;

  if Nb = 0

  then

    Fibre := 0

  else // Moyenne des ?quations significatives

    Fibre := (CB * NDF_CB + NDF + ADF * NDF_ADF) / Nb;

  if CheckBoxAmidon.Checked

  then

    with DataModuleDeclaration do

      Amidon := InputProximal(ValidateEditAmidon.AsFloat, RapMS, ComboBoxAmidon.ItemIndex div 2, ComboBoxAmidon.ItemIndex mod 2)

  else

    Amidon := 0;

  if CheckBoxSucres.Checked

  then

    with DataModuleDeclaration do

      Sucres := InputProximal(ValidateEditSucres.AsFloat, RapMS, ComboBoxSucres.ItemIndex div 2, ComboBoxSucres.ItemIndex mod 2)

  else

    Sucres := 0;

  if MM + MAT + MG + Fibre + Amidon + Sucres > 1.05

  then

    if MessageDlg(_('The sum of nutrients is estimated to more than 100% of the dry matter.' + sLineBreak + 'Are you sure you want to continue?'), mtError, [mbYes, mbNo], 0) <> mrYes

    then

      Exit;

  FormPredictionDetail := TFormPredictionDetail.Create(nil);

  try

    FormPredictionDetail.ShowModal;

  finally

    FormPredictionDetail.Release;

  end;

end;

procedure TFormPredictionCreate.ButtonNextClick(Sender: TObject);

begin

  if Trim(EditName.Text) = ''

  then

  begin

    MessageDlg(_('You must specify a name for this diet.'), mtError, [mbOK], 0);

    ActiveControl := EditName;

    Exit;

  end;

  if ValidateEditMS.AsFloat = 0

  then

  begin

    MessageDlg(_('You must specify a dry matter value for this diet.'), mtError, [mbOK], 0);

    ActiveControl := ValidateEditMS;

    Exit;

  end;

  CheckBoxMM.Enabled := True;

  ActiveControl := CheckBoxMM;

  ComboBoxMM.Enabled := True;

  CheckBoxMAT.Enabled := True;

  ComboBoxMAT.Enabled := True;

  CheckBoxCB.Enabled := True;

  CheckBoxNDF.Enabled := True;

  CheckBoxADF.Enabled := True;

  ComboBoxFibre.Enabled := True;

  CheckBoxdMOv.Enabled := True;

  CheckBoxMG.Enabled := True;

  ComboBoxMG.Enabled := True;

  CheckBoxEB.Enabled := True;

  ComboBoxEB.Enabled := True;

  CheckBoxAmidon.Enabled := True;

  ComboBoxAmidon.Enabled := True;

  CheckBoxSucres.Enabled := True;

  ComboBoxSucres.Enabled := True;

  SpinEditBonusC.Enabled := True;

  SpinEditBonusT.Enabled := True;

  JvImgBtnView.Enabled := True;

  JvImgBtnReset.Enabled := True;

  EditName.Enabled := False;

  ValidateEditMS.Enabled := False;

  ComboBoxMS.Enabled := False;

  ButtonNext.Visible := False;

end;

procedure TFormPredictionCreate.CheckBoxADFClick(Sender: TObject);

begin

  if CheckBoxADF.Checked

  then // Activer la saisie

    EditActivate(ValidateEditADF)

  else // Valeur inconnue

    EditEmpty(ValidateEditADF);

  ComboBoxFibreChange(nil);

end;

procedure TFormPredictionCreate.CheckBoxAmidonClick(Sender: TObject);

begin

  if CheckBoxAmidon.Checked

  then // Activer la saisie

    EditActivate(ValidateEditAmidon)

  else // Valeur inconnue

    EditEmpty(ValidateEditAmidon);

  ComboBoxAmidonChange(nil);

end;

procedure TFormPredictionCreate.CheckBoxCBClick(Sender: TObject);

begin

  if CheckBoxCB.Checked

  then // Activer la saisie

    EditActivate(ValidateEditCB)

  else // Valeur inconnue

    EditEmpty(ValidateEditCB);

  ComboBoxFibreChange(nil);

end;

procedure TFormPredictionCreate.CheckBoxdMOvClick(Sender: TObject);

begin

  if CheckBoxdMOv.Checked

  then // Activer la saisie

    EditActivate(ValidateEditdMOv)

  else // Valeur inconnue

    EditEmpty(ValidateEditdMOv);

  ValidateEditdMOv.DecimalPlaces := 1;

end;

procedure TFormPredictionCreate.CheckBoxEBClick(Sender: TObject);

begin

  if CheckBoxEB.Checked

  then // Activer la saisie

    EditActivate(ValidateEditEB)

  else // Valeur inconnue

    EditEmpty(ValidateEditEB);

  ComboBoxEBChange(nil);

end;

procedure TFormPredictionCreate.CheckBoxMATClick(Sender: TObject);

begin

  if CheckBoxMAT.Checked

  then // Activer la saisie

    EditActivate(ValidateEditMAT)

  else // Valeur inconnue

    EditEmpty(ValidateEditMAT);

  ComboBoxMATChange(nil);

end;

procedure TFormPredictionCreate.CheckBoxMGClick(Sender: TObject);

begin

  if CheckBoxMG.Checked

  then // Activer la saisie

    EditActivate(ValidateEditMG)

  else // Valeur inconnue

    EditEmpty(ValidateEditMG);

  ComboBoxMGChange(nil);

end;

procedure TFormPredictionCreate.CheckBoxMMClick(Sender: TObject);

begin

  if CheckBoxMM.Checked

  then // Activer la saisie

    EditActivate(ValidateEditMM)

  else // Valeur inconnue

    EditEmpty(ValidateEditMM);

  ComboBoxMMChange(nil);

end;

procedure TFormPredictionCreate.CheckBoxNDFClick(Sender: TObject);

begin

  if CheckBoxNDF.Checked

  then // Activer la saisie

    EditActivate(ValidateEditNDF)

  else // Valeur inconnue

    EditEmpty(ValidateEditNDF);

  ComboBoxFibreChange(nil);

end;

procedure TFormPredictionCreate.CheckBoxSucresClick(Sender: TObject);

begin

  if CheckBoxSucres.Checked

  then // Activer la saisie

    EditActivate(ValidateEditSucres)

  else // Valeur inconnue

    EditEmpty(ValidateEditSucres);

  ComboBoxSucresChange(nil);

end;

procedure TFormPredictionCreate.ComboBoxAmidonChange(Sender: TObject);

begin

  if ComboBoxAmidon.ItemIndex mod 2 = 0

  then // %

  begin

    ValidateEditAmidon.DecimalPlaces := 2;

    ValidateEditAmidon.MaxValue := 100;

  end

  else // g/kg

  begin

    ValidateEditAmidon.DecimalPlaces := 1;

    ValidateEditAmidon.MaxValue := 1000;

  end;

end;

procedure TFormPredictionCreate.ComboBoxEBChange(Sender: TObject);

begin

  if ComboBoxEB.ItemIndex mod 2 = 0

  then // MJ/kg

    ValidateEditEB.DecimalPlaces := 2

  else // kcal/kg

    ValidateEditEB.DecimalPlaces := 0;

end;

procedure TFormPredictionCreate.ComboBoxFibreChange(Sender: TObject);

begin

  if ComboBoxFibre.ItemIndex mod 2 = 0

  then // %

  begin

    ValidateEditCB.DecimalPlaces := 2;

    ValidateEditNDF.DecimalPlaces := 2;

    ValidateEditADF.DecimalPlaces := 2;

    ValidateEditCB.MaxValue := 100;

    ValidateEditNDF.MaxValue := 100;

    ValidateEditADF.MaxValue := 100;

  end

  else // g/kg

  begin

    ValidateEditCB.DecimalPlaces := 1;

    ValidateEditNDF.DecimalPlaces := 1;

    ValidateEditADF.DecimalPlaces := 1;

    ValidateEditCB.MaxValue := 1000;

    ValidateEditNDF.MaxValue := 1000;

    ValidateEditADF.MaxValue := 1000;

  end;

end;

procedure TFormPredictionCreate.ComboBoxMATChange(Sender: TObject);

begin

  if ComboBoxMAT.ItemIndex mod 2 = 0

  then // %

  begin

    ValidateEditMAT.DecimalPlaces := 2;

    ValidateEditMAT.MaxValue := 100;

  end

  else // g/kg

  begin

    ValidateEditMAT.DecimalPlaces := 1;

    ValidateEditMAT.MaxValue := 1000;

  end;

end;

procedure TFormPredictionCreate.ComboBoxMGChange(Sender: TObject);

begin

  if ComboBoxMG.ItemIndex mod 2 = 0

  then // %

  begin

    ValidateEditMG.DecimalPlaces := 2;

    ValidateEditMG.MaxValue := 100;

  end

  else // g/kg

  begin

    ValidateEditMG.DecimalPlaces := 1;

    ValidateEditMG.MaxValue := 1000;

  end;

end;

procedure TFormPredictionCreate.ComboBoxMMChange(Sender: TObject);

begin

  if ComboBoxMM.ItemIndex mod 2 = 0

  then // %

  begin

    ValidateEditMM.DecimalPlaces := 2;

    ValidateEditMM.MaxValue := 100;

  end

  else // g/kg

  begin

    ValidateEditMM.DecimalPlaces := 1;

    ValidateEditMM.MaxValue := 1000;

  end;

end;

procedure TFormPredictionCreate.ComboBoxMSChange(Sender: TObject);

begin

  if ComboBoxMS.ItemIndex = 0

  then // %

  begin

    ValidateEditMS.DecimalPlaces := 2;

    ValidateEditMS.MaxValue := 100;

  end

  else // g/kg

  begin

    ValidateEditMS.DecimalPlaces := 1;

    ValidateEditMS.MaxValue := 1000;

  end;

end;

procedure TFormPredictionCreate.ComboBoxSucresChange(Sender: TObject);

begin

  if ComboBoxSucres.ItemIndex mod 2 = 0

  then // %

  begin

    ValidateEditSucres.DecimalPlaces := 2;

    ValidateEditSucres.MaxValue := 100;

  end

  else // g/kg

  begin

    ValidateEditSucres.DecimalPlaces := 1;

    ValidateEditSucres.MaxValue := 1000;

  end;

end;

procedure TFormPredictionCreate.EditActivate(Edit: TJvValidateEdit);

begin

  Edit.DisplayFormat := dfFloat;

  Edit.Enabled := True;

  ActiveControl := Edit;

end;

procedure TFormPredictionCreate.EditEmpty(Edit: TJvValidateEdit);

begin

  Edit.DisplayFormat := dfNone;

  Edit.Value := '';

  Edit.Enabled := False;

end;

procedure TFormPredictionCreate.FormCreate(Sender: TObject);

var

  i: Integer;

begin

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

  then

    Font.Name := 'Arial Unicode MS';

//  PanelButtons.Font.Size := PanelButtons.Font.Size + 2;

  PanelButtons.Font.Style := [fsBold];

  LabelName.Font.Style := [fsBold];

  EditName.Font.Style := [fsBold];

  TranslateComponent(Self);

  ComboBoxMS.ItemIndex := FormOptions.Proximal;

  ComboBoxMSChange(nil);

  for i := 0 to FormOptions.ComboBoxProximal.Items.Count - 1 do

    ComboBoxMM.Items.Add(Format('%s %s', [FormOptions.ComboBoxProximal.Items[i], _('DM')]));

  ComboBoxMM.ItemIndex := FormOptions.Proximal + 2 * FormOptions.Expression;

  ComboBoxMMChange(nil);

  for i := 0 to FormOptions.ComboBoxProximal.Items.Count - 1 do

    ComboBoxMAT.Items.Add(Format('%s %s', [FormOptions.ComboBoxProximal.Items[i], _('DM')]));

  ComboBoxMAT.ItemIndex := FormOptions.Proximal + 2 * FormOptions.Expression;

  ComboBoxMATChange(nil);

  for i := 0 to FormOptions.ComboBoxProximal.Items.Count - 1 do

    ComboBoxFibre.Items.Add(Format('%s %s', [FormOptions.ComboBoxProximal.Items[i], _('DM')]));

  ComboBoxFibre.ItemIndex := FormOptions.Proximal + 2 * FormOptions.Expression;

  ComboBoxFibreChange(nil);

  LabeldMOv.Caption := LabeldMOv.Caption + ' (%)';

  for i := 0 to FormOptions.ComboBoxProximal.Items.Count - 1 do

    ComboBoxMG.Items.Add(Format('%s %s', [FormOptions.ComboBoxProximal.Items[i], _('DM')]));

  ComboBoxMG.ItemIndex := FormOptions.Proximal + 2 * FormOptions.Expression;

  ComboBoxMGChange(nil);

  for i := 0 to FormOptions.ComboBoxEnergy.Items.Count - 1 do

    ComboBoxEB.Items.Add(Format('%s %s', [FormOptions.ComboBoxEnergy.Items[i], _('DM')]));

  ComboBoxEB.ItemIndex := FormOptions.Energy + 2 * FormOptions.Expression;

  ComboBoxEBChange(nil);

  for i := 0 to FormOptions.ComboBoxProximal.Items.Count - 1 do

    ComboBoxAmidon.Items.Add(Format('%s %s', [FormOptions.ComboBoxProximal.Items[i], _('DM')]));

  ComboBoxAmidon.ItemIndex := FormOptions.Proximal + 2 * FormOptions.Expression;

  ComboBoxAmidonChange(nil);

  for i := 0 to FormOptions.ComboBoxProximal.Items.Count - 1 do

    ComboBoxSucres.Items.Add(Format('%s %s', [FormOptions.ComboBoxProximal.Items[i], _('DM')]));

  ComboBoxSucres.ItemIndex := FormOptions.Proximal + 2 * FormOptions.Expression;

  ComboBoxSucresChange(nil);

  GroupBoxBonus.Caption := GroupBoxBonus.Caption + ' (%)';

end;

procedure TFormPredictionCreate.NumEditKeyDown(Sender: TObject;

  var Key: Word; Shift: TShiftState);

begin

  // D?tection de l'appui sur le s?parateur d?cimal du pav? num?rique

  VK_Separator := (Key = VK_DECIMAL);

end;

procedure TFormPredictionCreate.NumEditKeyPress(Sender: TObject;

  var Key: Char);

begin

  if VK_Separator then

    // Renvoyer le s?parateur d?cimal des options r?gionales et linguistiques

    Key := DecimalSeparator;

end;

end.