Révision 3 UnitIngredientDetail.pas

Voir les différences:

UnitIngredientDetail.pas
728 728 
            (Page.Components[i] as TRaveDataText).Font.Style := (Page.Components[i] as TRaveDataText).Font.Style + [fsItalic];
729 729 
            (Page.Components[i] as TRaveDataText).Font.Color := clGray;
730 730 
          end;
731 
(*
732 
      if (Page.Components[i] as TRaveDataText).Name = 'DataTextNa'
733 
      then
734 
        with DataModuleDeclaration do
735 
          if ClientDataSetIngredientsUser.Value
736 
          and TableIngredients.FieldIsNull(TableIngredients.FieldIndex['Na'])
737 
          then // Valeur h?rit?e du mod?le
738 
          begin
739 
            (Page.Components[i] as TRaveDataText).Font.Style := (Page.Components[i] as TRaveDataText).Font.Style + [fsItalic];
740 
            (Page.Components[i] as TRaveDataText).Font.Color := clGray;
741 
          end;
742 
      if (Page.Components[i] as TRaveDataText).Name = 'DataTextK'
743 
      then
744 
        with DataModuleDeclaration do
745 
          if ClientDataSetIngredientsUser.Value
746 
          and TableIngredients.FieldIsNull(TableIngredients.FieldIndex['K'])
747 
          then // Valeur h?rit?e du mod?le
748 
          begin
749 
            (Page.Components[i] as TRaveDataText).Font.Style := (Page.Components[i] as TRaveDataText).Font.Style + [fsItalic];
750 
            (Page.Components[i] as TRaveDataText).Font.Color := clGray;
751 
          end;
752 
      if (Page.Components[i] as TRaveDataText).Name = 'DataTextCl'
753 
      then
754 
        with DataModuleDeclaration do
755 
          if ClientDataSetIngredientsUser.Value
756 
          and TableIngredients.FieldIsNull(TableIngredients.FieldIndex['Cl'])
757 
          then // Valeur h?rit?e du mod?le
758 
          begin
759 
            (Page.Components[i] as TRaveDataText).Font.Style := (Page.Components[i] as TRaveDataText).Font.Style + [fsItalic];
760 
            (Page.Components[i] as TRaveDataText).Font.Color := clGray;
761 
          end;
762 
*)
731 763 
      if (Page.Components[i] as TRaveDataText).Name = 'DataTextdP'
732 764 
      then
733 765 
        with DataModuleDeclaration do
......
795 827 
      MineralsUnit := Format('%s %s', [ComboBoxMinerals.Items[Minerals], _('DM')]);
796 828 
    end;
797 829 
  GroupBoxProximal.Caption := Format('%s (%s)', [GroupBoxProximal.Caption, ProximalUnit]);
830 
  GroupBoxMinerals.Caption := Format('%s (%s)', [GroupBoxMinerals.Caption, MineralsUnit]);
831 
  if FormOptions.Expression = 0
832 
  then // sur frais
833 
    LabelBE.Caption := Format('%s (%s)', [LabelBE.Caption, _('mEq/kg')])
834 
  else // sur mati?re s?che
835 
    LabelBE.Caption := Format('%s (%s %s)', [LabelBE.Caption, _('mEq/kg'), _('DM')]);
836 
  LabelDigP.Caption := Format('%s (%%)', [LabelDigP.Caption]);
798 837 
  GroupBoxEnergy.Caption := Format('%s (%s)', [GroupBoxEnergy.Caption, EnergyUnit]);
799 838 
  LabelRatio.Caption := Format('%s (%%)', [LabelRatio.Caption]);
800 839 
  GroupBoxEnergyUtilization.Caption := Format('%s (%%)', [GroupBoxEnergyUtilization.Caption]);
......
807 846 
    LabelLysd_EN.Caption := Format('%s (%s)', [LabelLysd_EN.Caption, _('g/1000kcal')]);
808 847 
  GroupBoxAA.Caption := Format('%s (%s)', [GroupBoxAA.Caption, AAUnit]);
809 848 
  LabeldAA.Caption := Format('%s (%%)', [LabeldAA.Caption]);
810 
  GroupBoxMinerals.Caption := Format('%s (%s)', [GroupBoxMinerals.Caption, MineralsUnit]);
811 
  if FormOptions.Expression = 0
812 
  then // sur frais
813 
    LabelBE.Caption := Format('%s (%s)', [LabelBE.Caption, _('mEq/kg')])
814 
  else // sur mati?re s?che
815 
    LabelBE.Caption := Format('%s (%s %s)', [LabelBE.Caption, _('mEq/kg'), _('DM')]);
816 
  LabelDigP.Caption := Format('%s (%%)', [LabelDigP.Caption]);
817 849 
end;
818 850 

  		




  819
  851
  
    
procedure TFormIngredientDetail.FormShow(Sender: TObject);


  		




  ......




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


  		




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


  		




  865
  897
  
    
        EditShadow(DBEditP);


  		




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


  		




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


  		




  
  900
  
    
        EditShadow(DBEditNa);


  		




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


  		




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


  		




  
  903
  
    
        EditShadow(DBEditK);


  		




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


  		




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


  		




  
  906
  
    
        EditShadow(DBEditCl);


  		




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


  		




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


  		




  868
  909
  
    
        EditShadow(DBEditdPphy);


  		












Formats disponibles :  Unified diff