EvaPig

unit UnitIngredientDetail;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses

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

  Dialogs, gnugettext, StdCtrls, ComCtrls, ExtCtrls, Mask, DB, DBCtrls,

  ActnList, ImgList, ToolWin, JvExStdCtrls, JvEdit, JvValidateEdit, RpBase,

  RpSystem, RpRender, RpRenderPDF, RpRave, RpDefine, RpCon, RpConDS, JvCsvData,

  RvClass, RvCsStd, RvCsData, JvButton, JvCtrls, XMLIntf, XMLDoc, RpDevice;

type

  TFormIngredientDetail = class(TForm)

    RvDataSetConnectionIngredients: TRvDataSetConnection;

    RvProjectReport: TRvProject;

    RvSystemReport: TRvSystem;

    SaveDialogExport: TSaveDialog;

    ActionListButtons: TActionList;

    ActionHelp: TAction;

    ActionClose: TAction;

    ImageListIcons: TImageList;

    ActionModify: TAction;

    ActionDelete: TAction;

    ActionPrint: TAction;

    ActionXML: TAction;

    PanelButtons: TPanel;

    PanelMain: TPanel;

    LabelClass: TLabel;

    LabelDefinition: TLabel;

    LabelMS: TLabel;

    LabelName: TLabel;

    LabelSource: TLabel;

    DBEditClass: TDBEdit;

    DBEditMS: TDBEdit;

    DBEditName: TDBEdit;

    DBEditSource: TDBEdit;

    DBMemoDefinition: TDBMemo;

    GroupBoxAA: TGroupBox;

    LabelAADig: TLabel;

    LabelAATot: TLabel;

    LabelLys: TLabel;

    LabelTyr: TLabel;

    LabelThr: TLabel;

    LabelPheTyr: TLabel;

    LabelMet: TLabel;

    LabelHis: TLabel;

    LabelCys: TLabel;

    LabelArg: TLabel;

    LabelMetCys: TLabel;

    LabelAla: TLabel;

    LabelTrp: TLabel;

    LabelAsp: TLabel;

    LabelIle: TLabel;

    LabelGlu: TLabel;

    LabelVal: TLabel;

    LabelGly: TLabel;

    LabelLeu: TLabel;

    LabelSer: TLabel;

    LabelPhe: TLabel;

    LabelPro: TLabel;

    LabeldAA: TLabel;

    DBEditLys: TDBEdit;

    DBEditLysd: TDBEdit;

    DBEditTyr: TDBEdit;

    DBEditTyrd: TDBEdit;

    DBEditThr: TDBEdit;

    DBEditThrd: TDBEdit;

    DBEditPheTyr: TDBEdit;

    DBEditPheTyrd: TDBEdit;

    DBEditMet: TDBEdit;

    DBEditMetd: TDBEdit;

    DBEditHis: TDBEdit;

    DBEditHisd: TDBEdit;

    DBEditCys: TDBEdit;

    DBEditCysd: TDBEdit;

    DBEditArg: TDBEdit;

    DBEditArgd: TDBEdit;

    DBEditMetCys: TDBEdit;

    DBEditMetCysd: TDBEdit;

    DBEditAla: TDBEdit;

    DBEditAlad: TDBEdit;

    DBEditTrp: TDBEdit;

    DBEditTrpd: TDBEdit;

    DBEditAsp: TDBEdit;

    DBEditAspd: TDBEdit;

    DBEditIle: TDBEdit;

    DBEditIled: TDBEdit;

    DBEditGlu: TDBEdit;

    DBEditGlud: TDBEdit;

    DBEditVal: TDBEdit;

    DBEditVald: TDBEdit;

    DBEditGly: TDBEdit;

    DBEditGlyd: TDBEdit;

    DBEditLeu: TDBEdit;

    DBEditLeud: TDBEdit;

    DBEditSer: TDBEdit;

    DBEditSerd: TDBEdit;

    DBEditPhe: TDBEdit;

    DBEditPhed: TDBEdit;

    DBEditPro: TDBEdit;

    DBEditProd: TDBEdit;

    DEditdLys: TDBEdit;

    DBEditdTyr: TDBEdit;

    DBEditdThr: TDBEdit;

    DBEditdPheTyr: TDBEdit;

    DBEditdMet: TDBEdit;

    DBEditdHis: TDBEdit;

    DBEditdCys: TDBEdit;

    DBEditdArg: TDBEdit;

    DBEditdMetCys: TDBEdit;

    DBEditdAla: TDBEdit;

    DBEditdTrp: TDBEdit;

    DBEditdAsp: TDBEdit;

    DBEditdIle: TDBEdit;

    DBEditdGlu: TDBEdit;

    DBEditdVal: TDBEdit;

    DBEditdGly: TDBEdit;

    DBEditdLeu: TDBEdit;

    DBEditdSer: TDBEdit;

    DBEditdPhe: TDBEdit;

    DBEditdPro: TDBEdit;

    GroupBoxAzote: TGroupBox;

    LabelCrois3: TLabel;

    LabelTruie3: TLabel;

    LabeldN: TLabel;

    DBEditdNc: TDBEdit;

    DBEditdNt: TDBEdit;

    GroupBoxEnergy: TGroupBox;

    LabelEB: TLabel;

    LabelED: TLabel;

    LabelEM: TLabel;

    LabelEN: TLabel;

    LabelCrois1: TLabel;

    LabelTruie1: TLabel;

    LabelRatio: TLabel;

    DBEditEBc: TDBEdit;

    DBEditEBt: TDBEdit;

    DBEditEDc: TDBEdit;

    DBEditEDt: TDBEdit;

    DBEditEMc: TDBEdit;

    DBEditEMt: TDBEdit;

    DBEditENc: TDBEdit;

    DBEditENt: TDBEdit;

    DBEditEDt_EDc: TDBEdit;

    DBEditEMt_EMc: TDBEdit;

    DBEditENt_ENc: TDBEdit;

    ValidateEditEBt_EBc: TJvValidateEdit;

    GroupBoxEnergyUtilization: TGroupBox;

    LabeldE: TLabel;

    LabelEM_ED: TLabel;

    LabelEN_EM: TLabel;

    LabelCrois2: TLabel;

    LabelTruie2: TLabel;

    LabelBonus: TLabel;

    LabelLysd_EN: TLabel;

    DBEditdEc: TDBEdit;

    DBEditdEt: TDBEdit;

    DBEditEMc_EDc: TDBEdit;

    DBEditEMt_EDt: TDBEdit;

    DBEditENc_EMc: TDBEdit;

    DBEditENt_EMt: TDBEdit;

    DBEditBonus: TDBEdit;

    DBEditLysd_ENc: TDBEdit;

    DBEditLysd_ENt: TDBEdit;

    GroupBoxMinerals: TGroupBox;

    LabelCa: TLabel;

    LabelP: TLabel;

    LabelDigP: TLabel;

    LabelFarine: TLabel;

    LabelGranule: TLabel;

    LabeldP: TLabel;

    DBEditCa: TDBEdit;

    DBEditP: TDBEdit;

    DBEditdPphy: TDBEdit;

    DBEditdP: TDBEdit;

    GroupBoxProximal: TGroupBox;

    LabelMAT: TLabel;

    LabelCB: TLabel;

    LabelMG: TLabel;

    LabelMM: TLabel;

    LabelNDF: TLabel;

    LabelADF: TLabel;

    LabelADL: TLabel;

    LabelAmidon: TLabel;

    LabelSucres: TLabel;

    DBEditMAT: TDBEdit;

    DBEditCB: TDBEdit;

    DBEditMG: TDBEdit;

    DBEditMM: TDBEdit;

    DBEditNDF: TDBEdit;

    DBEditADF: TDBEdit;

    DBEditADL: TDBEdit;

    DBEditAmidon: TDBEdit;

    DBEditSucres: TDBEdit;

    JvImgBtnModify: TJvImgBtn;

    JvImgBtnDelete: TJvImgBtn;

    JvImgBtnPrint: TJvImgBtn;

    JvImgBtnXML: TJvImgBtn;

    JvImgBtnHelp: TJvImgBtn;

    JvImgBtnClose: TJvImgBtn;

    PanelHead: TPanel;

    DBEditNa: TDBEdit;

    LabelNa: TLabel;

    DBEditK: TDBEdit;

    LabelK: TLabel;

    DBEditCl: TDBEdit;

    LabelCl: TLabel;

    DBEditBE: TDBEdit;

    LabelBE: TLabel;

    procedure FormCreate(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure ActionModifyExecute(Sender: TObject);

    procedure ActionDeleteExecute(Sender: TObject);

    procedure ActionPrintExecute(Sender: TObject);

    procedure ActionXMLExecute(Sender: TObject);

    procedure ActionHelpExecute(Sender: TObject);

    procedure ActionCloseExecute(Sender: TObject);

  private

    { D?clarations priv?es }

    procedure BuildReport;

    procedure EditEmpty(Edit: TJvValidateEdit);

    procedure EditShadow(Edit: TDBEdit);

  public

    { D?clarations publiques }

  end;

var

  FormIngredientDetail: TFormIngredientDetail;

implementation

{$R *.dfm}

uses

  UnitDeclaration, UnitOptions, UnitIngredientEditionCopy, UnitIngredientEditionOriginal;

procedure TFormIngredientDetail.ActionCloseExecute(Sender: TObject);

begin

  ModalResult := mrClose;

end;

procedure TFormIngredientDetail.ActionXMLExecute(Sender: TObject);

var

  i: Integer;

  USFormatSettings: TFormatSettings;

  XMLDoc: IXMLDocument;

  Workbook, Worksheet, Table, Row: IXMLNode;

  procedure CellData(Row: IXMLNode; Value, Format: string);

  var

    Cell, Data: IXMLNode;

  begin

    Cell := Row.AddChild('Cell');

    Data := Cell.AddChild('Data');

    Data.Attributes['ss:Type'] := Format;

    Data.Text := Value;

  end;

begin

  if SaveDialogExport.Execute

  then

  begin

    GetLocaleFormatSettings(1033, USFormatSettings);

    XMLDoc := TXMLDocument.Create(nil);

    try

      XMLDoc.XML.Clear;

      XMLDoc.XML.Add('<?xml version="1.0" encoding="UTF-8"?>');

      XMLDoc.XML.Add('<?mso-application progid="Excel.Sheet"?>');

      XMLDoc.XML.Add('<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet">');

      XMLDoc.XML.Add('</Workbook>');

      XMLDoc.Active := True;

      Workbook := XMLDoc.DocumentElement;

      Workbook.DeclareNamespace('o', 'urn:schemas-microsoft-com:office:office');

      Workbook.DeclareNamespace('x', 'urn:schemas-microsoft-com:office:excel');

      Workbook.DeclareNamespace('ss', 'urn:schemas-microsoft-com:office:spreadsheet');

      Workbook.DeclareNamespace('html', 'http://www.w3.org/TR/REC-html40');

      Worksheet := Workbook.AddChild('Worksheet');

      Worksheet.SetAttributeNS('ss:Name', Workbook.FindNamespaceURI('ss'), Caption);

      Table := Worksheet.AddChild('Table');

      // Titre

      Row := Table.AddChild('Row');

      CellData(Row, _('Label'), 'String');

      CellData(Row, _('Value'), 'String');

      CellData(Row, _('Unit'), 'String');

      // Donn?es

      with DataModuleDeclaration do

        for i := 0 to ClientDataSetIngredients.FieldCount - 1 do

          if not (i in [0, 2, 3, 5, 6, 9, 58..77, 78..97])

          then // Champs export?s

          begin

            Row := Table.AddChild('Row');

            // Label

            CellData(Row, _(ClientDataSetIngredients.Fields[i].DisplayLabel), 'String');

            // Value

            case i of

              1, 4, 7:

                CellData(Row, ClientDataSetIngredients.Fields[i].AsWideString, 'String');

              8, 10..18:

                if not ClientDataSetIngredients.Fields[i].IsNull

                then

                  CellData(Row, FloatToStrF(ClientDataSetIngredients.Fields[i].AsFloat, ffFixed, 15, FormOptions.ProximalDecimals, USFormatSettings), 'Number')

                else

                  CellData(Row, '', 'String');

              19, 22, 24, 26, 28, 30, 32:

                if not ClientDataSetIngredients.Fields[i].IsNull

                then

                  CellData(Row, FloatToStrF(ClientDataSetIngredients.Fields[i].AsFloat, ffFixed, 15, FormOptions.EnergyDecimals, USFormatSettings), 'Number')

                else

                  CellData(Row, '', 'String');

              20, 21, 23, 25, 27, 29, 31, 33..37, 122..123:

                if not ClientDataSetIngredients.Fields[i].IsNull

                then

                  CellData(Row, FloatToStrF(ClientDataSetIngredients.Fields[i].AsFloat, ffFixed, 15, 1, USFormatSettings), 'Number')

                else

                  CellData(Row, '', 'String');

              38..57, 98..117:

                if not ClientDataSetIngredients.Fields[i].IsNull

                then

                  CellData(Row, FloatToStrF(ClientDataSetIngredients.Fields[i].AsFloat, ffFixed, 15, FormOptions.AADecimals, USFormatSettings), 'Number')

                else

                  CellData(Row, '', 'String');

              118..119:

                if not ClientDataSetIngredients.Fields[i].IsNull

                then

                  CellData(Row, FloatToStrF(ClientDataSetIngredients.Fields[i].AsFloat, ffFixed, 15, 2, USFormatSettings), 'Number')

                else

                  CellData(Row, '', 'String');

              120..121:

                if not ClientDataSetIngredients.Fields[i].IsNull

                then

                  CellData(Row, FloatToStrF(ClientDataSetIngredients.Fields[i].AsFloat, ffFixed, 15, FormOptions.MineralsDecimals, USFormatSettings), 'Number')

                else

                  CellData(Row, '', 'String');

            end;

            // Unit

            case i of

              8: // MS

                CellData(Row, FormOptions.ComboBoxProximal.Items[FormOptions.Proximal], 'String');

              10..18: // Analyse proximale

                if FormOptions.Expression = 0

                then // sur frais

                  CellData(Row, FormOptions.ComboBoxProximal.Items[FormOptions.Proximal], 'String')

                else // sur mati?re s?che

                  CellData(Row, Format('%s %s', [FormOptions.ComboBoxProximal.Items[FormOptions.Proximal], _('DM')]), 'String');

              19, 22, 24, 26, 28, 30, 32: // Energie

                if FormOptions.Expression = 0

                then // sur frais

                  CellData(Row, FormOptions.ComboBoxEnergy.Items[FormOptions.Energy], 'String')

                else // sur mati?re s?che

                  CellData(Row, Format('%s %s', [FormOptions.ComboBoxEnergy.Items[FormOptions.Energy], _('DM')]), 'String');

              20, 21, 23, 25, 27, 29, 31, 33..37, 122..123: // %

                CellData(Row, '%', 'String');

              38..57, 98..117: // AA

                if FormOptions.Expression = 0

                then // sur frais

                  CellData(Row, FormOptions.ComboBoxAA.Items[FormOptions.AA], 'String')

                else // sur mati?re s?che

                  CellData(Row, Format('%s %s', [FormOptions.ComboBoxAA.Items[FormOptions.AA], _('DM')]), 'String');

              118..119: // Lysd/EN

                if FormOptions.Energy = 0

                then // MJ

                  CellData(Row, _('g/MJ'), 'String')

                else // kcal

                  CellData(Row, _('g/1000kcal'), 'String');

              120..121: // Min?raux

                if FormOptions.Expression = 0

                then // sur frais

                  CellData(Row, FormOptions.ComboBoxMinerals.Items[FormOptions.Minerals], 'String')

                else // sur mati?re s?che

                  CellData(Row, Format('%s %s', [FormOptions.ComboBoxMinerals.Items[FormOptions.Minerals], _('DM')]), 'String');

            end;

          end;

      XMLDoc.SaveToFile(SaveDialogExport.FileName);

      XmlDoc.Active := False;

    finally

      XMLDoc := nil;

    end;

  end;

end;

procedure TFormIngredientDetail.ActionDeleteExecute(Sender: TObject);

var

  UserName: String;

begin

  with DataModuleDeclaration do

  begin

    ClientDataSetComposition.Filter := Format('Ingredient = %d and User', [ClientDataSetIngredientsId.Value]);

    ClientDataSetComposition.Filtered := True;

    try

      if ClientDataSetComposition.RecordCount > 0

      then

        MessageDlg(_('This ingredient is used in a diet.') + sLineBreak + _('You cannot delete it.'), mtError, [mbOK], 0)

      else

        if MessageDlg(_('Are sure you want to delete this record?') + sLineBreak + _('This action could not be canceled.'), mtConfirmation, [mbYes, mbNo], 0) = mrYes

        then

        begin

          ClientDataSetIngredients.DisableControls;

          try

            UserName := ClientDataSetIngredientsName.Value;

            // Suprimer la mati?re premi?re

            DBUser.BeginTransaction;

            try

              DBUser.ExecSQL('DELETE FROM Ingredients '

                + Format('WHERE Id = %d', [ClientDataSetIngredientsId.Value]));

              DBUser.Commit;

            except

              DBUser.RollBack;

              MessageDlg(Format(_('Unknown error: %s %s %s'), ['UnitIngredientDetail', 'ActionDeleteExecute', 'DBUser (DELETE FROM Ingredients)']), mtError, [mbOK], 0);

              Exit;

            end;

            // Suprimer de ClientDataSetIngredients

            ClientDataSetIngredients.Delete;

            // Suprimer le nom de la liste des mati?res premi?res utilisateur

            UserList.Delete(UserList.IndexOf(UserName));

            // Fermer la fen?tre

            Close;

          finally

            ClientDataSetIngredients.EnableControls;

          end;

        end;

    finally

      ClientDataSetComposition.Filtered := False;

      ClientDataSetComposition.Filter := '';

    end;

  end;

end;

procedure TFormIngredientDetail.ActionHelpExecute(Sender: TObject);

begin

  Application.HelpContext(HelpContext);

end;

procedure TFormIngredientDetail.ActionModifyExecute(Sender: TObject);

begin

  if DataModuleDeclaration.ClientDataSetIngredientsModel.IsNull

  then // Cr?ation originale

  begin

    FormIngredientEditionOriginal := TFormIngredientEditionOriginal.Create(nil);

    try

      FormIngredientEditionOriginal.ShowModal;

    finally

      FormIngredientEditionOriginal.Release;

    end;

  end

  else // Copie des tables de r?f?rence

  begin

    FormIngredientEditionCopy := TFormIngredientEditionCopy.Create(nil);

    try

      FormIngredientEditionCopy.ShowModal;

    finally

      FormIngredientEditionCopy.Release;

    end;

  end;

//  with DataModuleDeclaration do

//    Hint := ClientDataSetIngredientsDefinition.Value;

end;

procedure TFormIngredientDetail.ActionPrintExecute(Sender: TObject);

begin

  if RpDev.PrinterSetupDialog

  then

  begin

    RvSystemReport.DoNativeOutput := False;

    RvSystemReport.DefaultDest := rdPrinter;

    RvSystemReport.RenderObject := nil;

    RvSystemReport.OutputFileName := '';

    RvProjectReport.Open;

    BuildReport;

    with DataModuleDeclaration do

      if ClientDataSetIngredientsUser.Value

      then // User

        TableIngredients.Free;

    RvProjectReport.Execute;

    Application.ProcessMessages;

    RvProjectReport.Close;

  end;

end;

procedure TFormIngredientDetail.BuildReport;

var

  i: Integer;

  Page: TRavePage;

begin

  with DataModuleDeclaration do

    if ClientDataSetIngredientsUser.Value

    then // User

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

        + Format('WHERE Id = %d', [ClientDataSetIngredientsId.Value]));

  with DataModuleDeclaration do

    if ClientDataSetIngredients.Eof

    then // Bug : seconde page blanche

      if ClientDataSetIngredients.RecordCount > 1

      then

      begin

        ClientDataSetIngredients.Prior;

        ClientDataSetIngredients.Next;

      end

      else

        ClientDataSetIngredients.First;

  Page := RvProjectReport.ProjMan.FindRaveComponent('ReportIngredient.PageIngredient1', nil) as TRavePage;

  for i := 0 to Page.ComponentCount - 1 do

  begin

    if Page.Components[i].ClassNameIs('TRaveText')

    then // Traduire

    begin

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

      then

        (Page.Components[i] as TRaveText).Font.Name := 'Arial Unicode MS';

      TranslateComponent(Page.Components[i]);

      if (Page.Components[i] as TRaveText).Name = 'TextMS'

      then

        with FormOptions do

          (Page.Components[i] as TRaveText).Text := Format('%s (%s)', [(Page.Components[i] as TRaveText).Text, ComboBoxProximal.Items[Proximal]]);

      if (Page.Components[i] as TRaveText).Name = 'TextUnitProximal'

      then

        with FormOptions do

          if Expression = 0

          then // sur frais

            (Page.Components[i] as TRaveText).Text := Format('(%s)', [ComboBoxProximal.Items[Proximal]])

          else // sur mati?re s?che

            (Page.Components[i] as TRaveText).Text := Format('(%s %s)', [ComboBoxProximal.Items[Proximal], _('DM')]);

      if (Page.Components[i] as TRaveText).Name = 'TextUnitEnergyC'

      then

        with FormOptions do

          if Expression = 0

          then // sur frais

            (Page.Components[i] as TRaveText).Text := Format('(%s)', [ComboBoxEnergy.Items[Energy]])

          else // sur mati?re s?che

            (Page.Components[i] as TRaveText).Text := Format('(%s %s)', [ComboBoxEnergy.Items[Energy], _('DM')]);

      if (Page.Components[i] as TRaveText).Name = 'TextUnitEnergyT'

      then

        with FormOptions do

          if Expression = 0

          then // sur frais

            (Page.Components[i] as TRaveText).Text := Format('(%s)', [ComboBoxEnergy.Items[Energy]])

          else // sur mati?re s?che

            (Page.Components[i] as TRaveText).Text := Format('(%s %s)', [ComboBoxEnergy.Items[Energy], _('DM')]);

      if (Page.Components[i] as TRaveText).Name = 'TextUnitEnergyRatio'

      then

        (Page.Components[i] as TRaveText).Text := '(%)';

      if (Page.Components[i] as TRaveText).Name = 'TextEBt_EBc'

      then

        (Page.Components[i] as TRaveText).Text := ValidateEditEBt_EBc.Text;

      if (Page.Components[i] as TRaveText).Name = 'TextdE'

      then

        (Page.Components[i] as TRaveText).Text := Format('%s (%%)', [(Page.Components[i] as TRaveText).Text]);

      if (Page.Components[i] as TRaveText).Name = 'TextME_DE'

      then

        (Page.Components[i] as TRaveText).Text := Format('%s (%%)', [(Page.Components[i] as TRaveText).Text]);

      if (Page.Components[i] as TRaveText).Name = 'TextNE_ME'

      then

        (Page.Components[i] as TRaveText).Text := Format('%s (%%)', [(Page.Components[i] as TRaveText).Text]);

    end;

    if Page.Components[i].ClassNameIs('TRaveDataMemo') and (Screen.Fonts.IndexOf('Arial Unicode MS') <> -1)

    then

      (Page.Components[i] as TRaveDataMemo).Font.Name := 'Arial Unicode MS';

    if Page.Components[i].ClassNameIs('TRaveDataText')

    then

    begin

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

      then

        (Page.Components[i] as TRaveDataText).Font.Name := 'Arial Unicode MS';

      if (Page.Components[i] as TRaveDataText).Name = 'DataTextMM'

      then

        with DataModuleDeclaration do

          if ClientDataSetIngredientsUser.Value

          and TableIngredients.FieldIsNull(TableIngredients.FieldIndex['MM'])

          then // Valeur h?rit?e du mod?le

          begin

            (Page.Components[i] as TRaveDataText).Font.Style := (Page.Components[i] as TRaveDataText).Font.Style + [fsItalic];

            (Page.Components[i] as TRaveDataText).Font.Color := clGray;

          end;

      if (Page.Components[i] as TRaveDataText).Name = 'DataTextMAT'

      then

        with DataModuleDeclaration do

          if ClientDataSetIngredientsUser.Value

          and TableIngredients.FieldIsNull(TableIngredients.FieldIndex['MAT'])

          then // Valeur h?rit?e du mod?le

          begin

            (Page.Components[i] as TRaveDataText).Font.Style := (Page.Components[i] as TRaveDataText).Font.Style + [fsItalic];

            (Page.Components[i] as TRaveDataText).Font.Color := clGray;

          end;

      if (Page.Components[i] as TRaveDataText).Name = 'DataTextMG'

      then

        with DataModuleDeclaration do

          if ClientDataSetIngredientsUser.Value

          and TableIngredients.FieldIsNull(TableIngredients.FieldIndex['MG'])

          then // Valeur h?rit?e du mod?le

          begin

            (Page.Components[i] as TRaveDataText).Font.Style := (Page.Components[i] as TRaveDataText).Font.Style + [fsItalic];

            (Page.Components[i] as TRaveDataText).Font.Color := clGray;

          end;

      if (Page.Components[i] as TRaveDataText).Name = 'DataTextCB'

      then

        with DataModuleDeclaration do

          if ClientDataSetIngredientsUser.Value

          and TableIngredients.FieldIsNull(TableIngredients.FieldIndex['CB'])

          then // Valeur h?rit?e du mod?le

          begin

            (Page.Components[i] as TRaveDataText).Font.Style := (Page.Components[i] as TRaveDataText).Font.Style + [fsItalic];

            (Page.Components[i] as TRaveDataText).Font.Color := clGray;

          end;

      if (Page.Components[i] as TRaveDataText).Name = 'DataTextNDF'

      then

        with DataModuleDeclaration do

          if ClientDataSetIngredientsUser.Value

          and TableIngredients.FieldIsNull(TableIngredients.FieldIndex['NDF'])

          then // Valeur h?rit?e du mod?le

          begin

            (Page.Components[i] as TRaveDataText).Font.Style := (Page.Components[i] as TRaveDataText).Font.Style + [fsItalic];

            (Page.Components[i] as TRaveDataText).Font.Color := clGray;

          end;

      if (Page.Components[i] as TRaveDataText).Name = 'DataTextADF'

      then

        with DataModuleDeclaration do

          if ClientDataSetIngredientsUser.Value

          and TableIngredients.FieldIsNull(TableIngredients.FieldIndex['ADF'])

          then // Valeur h?rit?e du mod?le

          begin

            (Page.Components[i] as TRaveDataText).Font.Style := (Page.Components[i] as TRaveDataText).Font.Style + [fsItalic];

            (Page.Components[i] as TRaveDataText).Font.Color := clGray;

          end;

      if (Page.Components[i] as TRaveDataText).Name = 'DataTextADL'

      then

        with DataModuleDeclaration do

          if ClientDataSetIngredientsUser.Value

          and TableIngredients.FieldIsNull(TableIngredients.FieldIndex['ADL'])

          then // Valeur h?rit?e du mod?le

          begin

            (Page.Components[i] as TRaveDataText).Font.Style := (Page.Components[i] as TRaveDataText).Font.Style + [fsItalic];

            (Page.Components[i] as TRaveDataText).Font.Color := clGray;

          end;

      if (Page.Components[i] as TRaveDataText).Name = 'DataTextAmidon'

      then

        with DataModuleDeclaration do

          if ClientDataSetIngredientsUser.Value

          and TableIngredients.FieldIsNull(TableIngredients.FieldIndex['Amidon'])

          then // Valeur h?rit?e du mod?le

          begin

            (Page.Components[i] as TRaveDataText).Font.Style := (Page.Components[i] as TRaveDataText).Font.Style + [fsItalic];

            (Page.Components[i] as TRaveDataText).Font.Color := clGray;

          end;

      if (Page.Components[i] as TRaveDataText).Name = 'DataTextSucres'

      then

        with DataModuleDeclaration do

          if ClientDataSetIngredientsUser.Value

          and TableIngredients.FieldIsNull(TableIngredients.FieldIndex['Sucres'])

          then // Valeur h?rit?e du mod?le

          begin

            (Page.Components[i] as TRaveDataText).Font.Style := (Page.Components[i] as TRaveDataText).Font.Style + [fsItalic];

            (Page.Components[i] as TRaveDataText).Font.Color := clGray;

          end;

    end;

  end;

  Page := RvProjectReport.ProjMan.FindRaveComponent('ReportIngredient.PageIngredient2', nil) as TRavePage;

  for i := 0 to Page.ComponentCount - 1 do

  begin

    if Page.Components[i].ClassNameIs('TRaveText')

    then // Traduire

    begin

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

      then

        (Page.Components[i] as TRaveText).Font.Name := 'Arial Unicode MS';

      TranslateComponent(Page.Components[i]);

      if (Page.Components[i] as TRaveText).Name = 'TextdN'

      then

        (Page.Components[i] as TRaveText).Text := Format('%s (%%)', [(Page.Components[i] as TRaveText).Text]);

      if (Page.Components[i] as TRaveText).Name = 'TextUnitAATot'

      then

        with FormOptions do

          if Expression = 0

          then // sur frais

            (Page.Components[i] as TRaveText).Text := Format('(%s)', [ComboBoxAA.Items[AA]])

          else // sur mati?re s?che

            (Page.Components[i] as TRaveText).Text := Format('(%s %s)', [ComboBoxAA.Items[AA], _('DM')]);

      if (Page.Components[i] as TRaveText).Name = 'TextUnitAADig'

      then

        with FormOptions do

          if Expression = 0

          then // sur frais

            (Page.Components[i] as TRaveText).Text := Format('(%s)', [ComboBoxAA.Items[AA]])

          else // sur mati?re s?che

            (Page.Components[i] as TRaveText).Text := Format('(%s %s)', [ComboBoxAA.Items[AA], _('DM')]);

      if (Page.Components[i] as TRaveText).Name = 'TextUnitLysd_EN'

      then

        if FormOptions.Energy = 0

        then // MJ

          (Page.Components[i] as TRaveText).Text := Format('%s (%s)', [(Page.Components[i] as TRaveText).Text, _('g/MJ')])

        else // kcal

          (Page.Components[i] as TRaveText).Text := Format('%s (%s)', [(Page.Components[i] as TRaveText).Text, _('g/1000kcal')]);

      if (Page.Components[i] as TRaveText).Name = 'TextUnitMinerals'

      then

        with FormOptions do

          if Expression = 0

          then // sur frais

            (Page.Components[i] as TRaveText).Text := Format('(%s)', [ComboBoxMinerals.Items[Minerals]])

          else // sur mati?re s?che

            (Page.Components[i] as TRaveText).Text := Format('(%s %s)', [ComboBoxMinerals.Items[Minerals], _('DM')]);

      if (Page.Components[i] as TRaveText).Name = 'TextdP'

      then

        (Page.Components[i] as TRaveText).Text := Format('%s (%%)', [(Page.Components[i] as TRaveText).Text]);

    end;

    if Page.Components[i].ClassNameIs('TRaveDataText')

    then

    begin

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

      then

        (Page.Components[i] as TRaveDataText).Font.Name := 'Arial Unicode MS';

      if (Page.Components[i] as TRaveDataText).Name = 'DataTextCa'

      then

        with DataModuleDeclaration do

          if ClientDataSetIngredientsUser.Value

          and TableIngredients.FieldIsNull(TableIngredients.FieldIndex['Ca'])

          then // Valeur h?rit?e du mod?le

          begin

            (Page.Components[i] as TRaveDataText).Font.Style := (Page.Components[i] as TRaveDataText).Font.Style + [fsItalic];

            (Page.Components[i] as TRaveDataText).Font.Color := clGray;

          end;

      if (Page.Components[i] as TRaveDataText).Name = 'DataTextP'

      then

        with DataModuleDeclaration do

          if ClientDataSetIngredientsUser.Value

          and TableIngredients.FieldIsNull(TableIngredients.FieldIndex['P'])

          then // Valeur h?rit?e du mod?le

          begin

            (Page.Components[i] as TRaveDataText).Font.Style := (Page.Components[i] as TRaveDataText).Font.Style + [fsItalic];

            (Page.Components[i] as TRaveDataText).Font.Color := clGray;

          end;

(*

      if (Page.Components[i] as TRaveDataText).Name = 'DataTextNa'

      then

        with DataModuleDeclaration do

          if ClientDataSetIngredientsUser.Value

          and TableIngredients.FieldIsNull(TableIngredients.FieldIndex['Na'])

          then // Valeur h?rit?e du mod?le

          begin

            (Page.Components[i] as TRaveDataText).Font.Style := (Page.Components[i] as TRaveDataText).Font.Style + [fsItalic];

            (Page.Components[i] as TRaveDataText).Font.Color := clGray;

          end;

      if (Page.Components[i] as TRaveDataText).Name = 'DataTextK'

      then

        with DataModuleDeclaration do

          if ClientDataSetIngredientsUser.Value

          and TableIngredients.FieldIsNull(TableIngredients.FieldIndex['K'])

          then // Valeur h?rit?e du mod?le

          begin

            (Page.Components[i] as TRaveDataText).Font.Style := (Page.Components[i] as TRaveDataText).Font.Style + [fsItalic];

            (Page.Components[i] as TRaveDataText).Font.Color := clGray;

          end;

      if (Page.Components[i] as TRaveDataText).Name = 'DataTextCl'

      then

        with DataModuleDeclaration do

          if ClientDataSetIngredientsUser.Value

          and TableIngredients.FieldIsNull(TableIngredients.FieldIndex['Cl'])

          then // Valeur h?rit?e du mod?le

          begin

            (Page.Components[i] as TRaveDataText).Font.Style := (Page.Components[i] as TRaveDataText).Font.Style + [fsItalic];

            (Page.Components[i] as TRaveDataText).Font.Color := clGray;

          end;

*)

      if (Page.Components[i] as TRaveDataText).Name = 'DataTextdP'

      then

        with DataModuleDeclaration do

          if ClientDataSetIngredientsUser.Value

          and TableIngredients.FieldIsNull(TableIngredients.FieldIndex['dP'])

          then // Valeur h?rit?e du mod?le

          begin

            (Page.Components[i] as TRaveDataText).Font.Style := (Page.Components[i] as TRaveDataText).Font.Style + [fsItalic];

            (Page.Components[i] as TRaveDataText).Font.Color := clGray;

          end;

      if (Page.Components[i] as TRaveDataText).Name = 'DataTextdPphy'

      then

        with DataModuleDeclaration do

          if ClientDataSetIngredientsUser.Value

          and TableIngredients.FieldIsNull(TableIngredients.FieldIndex['dPphy'])

          then // Valeur h?rit?e du mod?le

          begin

            (Page.Components[i] as TRaveDataText).Font.Style := (Page.Components[i] as TRaveDataText).Font.Style + [fsItalic];

            (Page.Components[i] as TRaveDataText).Font.Color := clGray;

          end;

    end;

  end;

end;

procedure TFormIngredientDetail.EditEmpty(Edit: TJvValidateEdit);

begin

  Edit.DisplayFormat := dfNone;

  Edit.Value := '';

end;

procedure TFormIngredientDetail.EditShadow(Edit: TDBEdit);

begin

  Edit.Font.Style := Edit.Font.Style + [fsItalic];

  Edit.Font.Color := cl3DDkShadow;

end;

procedure TFormIngredientDetail.FormCreate(Sender: TObject);

var

  ProximalUnit, EnergyUnit, AAUnit, MineralsUnit: String;

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];

  DBEditName.Font.Style := [fsBold];

  TranslateComponent(Self);

  with FormOptions do

    LabelMS.Caption := Format('%s (%s)', [LabelMS.Caption, ComboBoxProximal.Items[Proximal]]);

  with FormOptions do

    if Expression = 0

    then // sur frais

    begin

      ProximalUnit := ComboBoxProximal.Items[Proximal];

      EnergyUnit := ComboBoxEnergy.Items[Energy];

      AAUnit := ComboBoxAA.Items[AA];

      MineralsUnit := ComboBoxMinerals.Items[Minerals];

    end

    else // sur mati?re s?che

    begin

      ProximalUnit := Format('%s %s', [ComboBoxProximal.Items[Proximal], _('DM')]);

      EnergyUnit := Format('%s %s', [ComboBoxEnergy.Items[Energy], _('DM')]);

      AAUnit := Format('%s %s', [ComboBoxAA.Items[AA], _('DM')]);

      MineralsUnit := Format('%s %s', [ComboBoxMinerals.Items[Minerals], _('DM')]);

    end;

  GroupBoxProximal.Caption := Format('%s (%s)', [GroupBoxProximal.Caption, ProximalUnit]);

  GroupBoxMinerals.Caption := Format('%s (%s)', [GroupBoxMinerals.Caption, MineralsUnit]);

  if FormOptions.Expression = 0

  then // sur frais

    LabelBE.Caption := Format('%s (%s)', [LabelBE.Caption, _('mEq/kg')])

  else // sur mati?re s?che

    LabelBE.Caption := Format('%s (%s %s)', [LabelBE.Caption, _('mEq/kg'), _('DM')]);

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

  GroupBoxEnergy.Caption := Format('%s (%s)', [GroupBoxEnergy.Caption, EnergyUnit]);

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

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

//  GroupBoxAzote.Caption := Format('%s (%%)', [GroupBoxAzote.Caption]);

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

  if FormOptions.Energy = 0

  then // MJ

    LabelLysd_EN.Caption := Format('%s (%s)', [LabelLysd_EN.Caption, _('g/MJ')])

  else // kcal

    LabelLysd_EN.Caption := Format('%s (%s)', [LabelLysd_EN.Caption, _('g/1000kcal')]);

  GroupBoxAA.Caption := Format('%s (%s)', [GroupBoxAA.Caption, AAUnit]);

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

end;

procedure TFormIngredientDetail.FormShow(Sender: TObject);

begin

  with DataModuleDeclaration do

  begin

    if ClientDataSetIngredientsEB.IsNull

    then

      EditEmpty(ValidateEditEBt_EBc)

    else

      ValidateEditEBt_EBc.Value := 100;

    if ClientDataSetIngredientsUser.Value

    then // Mati?re premi?re utilisateur

    begin

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

        + Format('WHERE Id = %d', [ClientDataSetIngredientsId.Value]));

      if TableIngredients.FieldIsNull(TableIngredients.FieldIndex['MM'])

      then // Valeur h?rit?e du mod?le

        EditShadow(DBEditMM);

      if TableIngredients.FieldIsNull(TableIngredients.FieldIndex['MAT'])

      then // Valeur h?rit?e du mod?le

        EditShadow(DBEditMAT);

      if TableIngredients.FieldIsNull(TableIngredients.FieldIndex['MG'])

      then // Valeur h?rit?e du mod?le

        EditShadow(DBEditMG);

      if TableIngredients.FieldIsNull(TableIngredients.FieldIndex['CB'])

      then // Valeur h?rit?e du mod?le

        EditShadow(DBEditCB);

      if TableIngredients.FieldIsNull(TableIngredients.FieldIndex['NDF'])

      then // Valeur h?rit?e du mod?le

        EditShadow(DBEditNDF);

      if TableIngredients.FieldIsNull(TableIngredients.FieldIndex['ADF'])

      then // Valeur h?rit?e du mod?le

        EditShadow(DBEditADF);

      if TableIngredients.FieldIsNull(TableIngredients.FieldIndex['ADL'])

      then // Valeur h?rit?e du mod?le

        EditShadow(DBEditADL);

      if TableIngredients.FieldIsNull(TableIngredients.FieldIndex['Amidon'])

      then // Valeur h?rit?e du mod?le

        EditShadow(DBEditAmidon);

      if TableIngredients.FieldIsNull(TableIngredients.FieldIndex['Sucres'])

      then // Valeur h?rit?e du mod?le

        EditShadow(DBEditSucres);

      if TableIngredients.FieldIsNull(TableIngredients.FieldIndex['Ca'])

      then // Valeur h?rit?e du mod?le

        EditShadow(DBEditCa);

      if TableIngredients.FieldIsNull(TableIngredients.FieldIndex['P'])

      then // Valeur h?rit?e du mod?le

        EditShadow(DBEditP);

      if TableIngredients.FieldIsNull(TableIngredients.FieldIndex['Na'])

      then // Valeur h?rit?e du mod?le

        EditShadow(DBEditNa);

      if TableIngredients.FieldIsNull(TableIngredients.FieldIndex['K'])

      then // Valeur h?rit?e du mod?le

        EditShadow(DBEditK);

      if TableIngredients.FieldIsNull(TableIngredients.FieldIndex['Cl'])

      then // Valeur h?rit?e du mod?le

        EditShadow(DBEditCl);

      if TableIngredients.FieldIsNull(TableIngredients.FieldIndex['dPphy'])

      then // Valeur h?rit?e du mod?le

        EditShadow(DBEditdPphy);

      if TableIngredients.FieldIsNull(TableIngredients.FieldIndex['dP'])

      then // Valeur h?rit?e du mod?le

        EditShadow(DBEditdP);

      TableIngredients.Free;

    end

    else // Mati?re premi?re de r?f?rence

    begin

      JvImgBtnModify.Enabled := False;

      JvImgBtnDelete.Enabled := False;

    end;

  end;

end;

end.