Révision 10 UnitIngredientDetail.pas

Voir les différences:

UnitIngredientDetail.pas
676 676 
      if Screen.Fonts.IndexOf('Arial Unicode MS') <> -1
677 677 
      then
678 678 
        (Page.Components[i] as TRaveText).Font.Name := 'Arial Unicode MS';
679 
      TranslateComponent(Page.Components[i]);
680 
      if (Page.Components[i] as TRaveText).Name = 'TextdN'
681 
      then
682 
        (Page.Components[i] as TRaveText).Text := Format('%s (%%)', [(Page.Components[i] as TRaveText).Text]);
683 679 
      if (Page.Components[i] as TRaveText).Name = 'TextUnitAATot'
684 680 
      then
685 681 
        with FormOptions do
......
696 692 
            (Page.Components[i] as TRaveText).Text := Format('(%s)', [ComboBoxAA.Items[AA]])
697 693 
          else // sur mati?re s?che
698 694 
            (Page.Components[i] as TRaveText).Text := Format('(%s %s)', [ComboBoxAA.Items[AA], _('DM')]);
699 
      if (Page.Components[i] as TRaveText).Name = 'TextUnitLysd_EN'
700 
      then
701 
        if FormOptions.Energy = 0
702 
        then // MJ
703 
          (Page.Components[i] as TRaveText).Text := Format('%s (%s)', [(Page.Components[i] as TRaveText).Text, _('g/MJ')])
704 
        else // kcal
705 
          (Page.Components[i] as TRaveText).Text := Format('%s (%s)', [(Page.Components[i] as TRaveText).Text, _('g/1000kcal')]);
706 695 
      if (Page.Components[i] as TRaveText).Name = 'TextUnitMinerals'
707 696 
      then
708 697 
        with FormOptions do
......
711 700 
            (Page.Components[i] as TRaveText).Text := Format('(%s)', [ComboBoxMinerals.Items[Minerals]])
712 701 
          else // sur mati?re s?che
713 702 
            (Page.Components[i] as TRaveText).Text := Format('(%s %s)', [ComboBoxMinerals.Items[Minerals], _('DM')]);
714 
      if (Page.Components[i] as TRaveText).Name = 'TextdP'
703 
      if (Page.Components[i] as TRaveText).Name = 'TextUnitBE'
715 704 
      then
705 
        with FormOptions do
706 
          if Expression = 0
707 
          then // sur frais
708 
            (Page.Components[i] as TRaveText).Text := Format('(%s)', [_('mEq/kg')])
709 
          else // sur mati?re s?che
710 
            (Page.Components[i] as TRaveText).Text := Format('(%s %s)', [_('mEq/kg'), _('DM')]);
711 
      if (Page.Components[i] as TRaveText).Name = 'TextDigP'
712 
      then
716 713 
        (Page.Components[i] as TRaveText).Text := Format('%s (%%)', [(Page.Components[i] as TRaveText).Text]);
714 
      TranslateComponent(Page.Components[i]);
715 
      if (Page.Components[i] as TRaveText).Name = 'TextUnitdN'
716 
      then
717 
        (Page.Components[i] as TRaveText).Text := Format('%s (%%)', [(Page.Components[i] as TRaveText).Text]);
718 
      if (Page.Components[i] as TRaveText).Name = 'TextUnitLysd_EN'
719 
      then
720 
        if FormOptions.Energy = 0
721 
        then // MJ
722 
          (Page.Components[i] as TRaveText).Text := Format('%s (%s)', [(Page.Components[i] as TRaveText).Text, _('g/MJ')])
723 
        else // kcal
724 
          (Page.Components[i] as TRaveText).Text := Format('%s (%s)', [(Page.Components[i] as TRaveText).Text, _('g/1000kcal')]);
717 725 
    end;
718 726 
    if Page.Components[i].ClassNameIs('TRaveDataText')
719 727 
    then
......
741 749 
            (Page.Components[i] as TRaveDataText).Font.Style := (Page.Components[i] as TRaveDataText).Font.Style + [fsItalic];
742 750 
            (Page.Components[i] as TRaveDataText).Font.Color := clGray;
743 751 
          end;
744 
(*
745 752 
      if (Page.Components[i] as TRaveDataText).Name = 'DataTextNa'
746 753 
      then
747 754 
        with DataModuleDeclaration do
......
772 779 
            (Page.Components[i] as TRaveDataText).Font.Style := (Page.Components[i] as TRaveDataText).Font.Style + [fsItalic];
773 780 
            (Page.Components[i] as TRaveDataText).Font.Color := clGray;
774 781 
          end;
775 
*)
776 782 
      if (Page.Components[i] as TRaveDataText).Name = 'DataTextdP'
777 783 
      then
778 784 
        with DataModuleDeclaration do

Formats disponibles : Unified diff