Révision 3 UnitFeedDetail.pas

Voir les différences:

UnitFeedDetail.pas
185 185 
    LabelPd: TLabel;
186 186 
    LabelCa_Pd: TLabel;
187 187 
    LabelPd_EN: TLabel;
188 
    LabelCrois3: TLabel;
189 
    LabelTruie3: TLabel;
190 188 
    LabelMAT: TLabel;
191 189 
    LabelCB: TLabel;
192 190 
    LabelMG: TLabel;
......
205 203 
    JvImgBtnModify: TJvImgBtn;
206 204 
    JvImgBtnGraphs: TJvImgBtn;
207 205 
    PanelHead: TPanel;
206 
    LabelNa: TLabel;
207 
    LabelK: TLabel;
208 
    LabelCl: TLabel;
209 
    LabelBE: TLabel;
210 
    DBEditNa: TDBEdit;
211 
    DBEditK: TDBEdit;
212 
    DBEditCl: TDBEdit;
213 
    DBEditBE: TDBEdit;
208 214 
    procedure FormCreate(Sender: TObject);
209 215 
    procedure FormShow(Sender: TObject);
210 216 
    procedure ActionModifyExecute(Sender: TObject);
......
766 772 
  GroupBoxEnergy.Caption := Format('%s (%s)', [GroupBoxEnergy.Caption, EnergyUnit]);
767 773 
  LabelRatio.Caption := Format('%s (%%)', [LabelRatio.Caption]);
768 774 
  GroupBoxEnergyUtilization.Caption := Format('%s (%%)', [GroupBoxEnergyUtilization.Caption]);
775 
  GroupBoxMinerals.Caption := Format('%s (%s)', [GroupBoxMinerals.Caption, MineralsUnit]);
776 
//  LabelCa_Pd.Caption := Format('%s (%%)', [LabelCa_Pd.Caption]);
777 
  if FormOptions.Expression = 0
778 
  then // sur frais
779 
    LabelBE.Caption := Format('%s (%s)', [LabelBE.Caption, _('mEq/kg')])
780 
  else // sur mati?re s?che
781 
    LabelBE.Caption := Format('%s (%s %s)', [LabelBE.Caption, _('mEq/kg'), _('DM')]);
769 782 
//  GroupBoxAzote.Caption := Format('%s (%%)', [GroupBoxAzote.Caption]);
770 783 
  LabeldN.Caption := Format('%s (%%)', [LabeldN.Caption]);
771 784 
  if FormOptions.Energy = 0
......
773 786 
    LabelLysd_EN.Caption := Format('%s (%s)', [LabelLysd_EN.Caption, _('g/MJ')])
774 787 
  else // kcal
775 788 
    LabelLysd_EN.Caption := Format('%s (%s)', [LabelLysd_EN.Caption, _('g/1000kcal')]);
776 
  GroupBoxAA.Caption := Format('%s (%s)', [GroupBoxAA.Caption, AAUnit]);
777 
  LabelIdealProtein.Caption := Format('%s (%%)', [LabelIdealProtein.Caption]);
778 
  GroupBoxMinerals.Caption := Format('%s (%s)', [GroupBoxMinerals.Caption, MineralsUnit]);
779 
//  LabelCa_Pd.Caption := Format('%s (%%)', [LabelCa_Pd.Caption]);
780 789 
  if FormOptions.Energy = 0
781 790 
  then // MJ
782 791 
    LabelPd_EN.Caption := Format('%s (%s)', [LabelPd_EN.Caption, _('g/MJ')])
783 792 
  else // kcal
784 793 
    LabelPd_EN.Caption := Format('%s (%s)', [LabelPd_EN.Caption, _('g/1000kcal')]);
794 
  GroupBoxAA.Caption := Format('%s (%s)', [GroupBoxAA.Caption, AAUnit]);
795 
  LabelIdealProtein.Caption := Format('%s (%%)', [LabelIdealProtein.Caption]);
785 796 
end;
786 797 

  		




  787
  798
  
    
procedure TFormFeedDetail.FormShow(Sender: TObject);


  		












Formats disponibles :  Unified diff