Révision 10 UnitFeedDetail.pas
| UnitFeedDetail.pas | ||
|---|---|---|
| 654 | 654 |
then |
| 655 | 655 |
(Page.Components[i] as TRaveText).Font.Name := 'Arial Unicode MS'; |
| 656 | 656 |
TranslateComponent(Page.Components[i]); |
| 657 |
if (Page.Components[i] as TRaveText).Name = 'TextdN' |
|
| 658 |
then |
|
| 659 |
(Page.Components[i] as TRaveText).Text := Format('%s (%%)', [(Page.Components[i] as TRaveText).Text]);
|
|
| 660 | 657 |
if (Page.Components[i] as TRaveText).Name = 'TextUnitAATot' |
| 661 | 658 |
then |
| 662 | 659 |
with FormOptions do |
| ... | ... | |
| 694 | 691 |
(Page.Components[i] as TRaveText).Text := Format('(%s)', [ComboBoxMinerals.Items[Minerals]])
|
| 695 | 692 |
else // sur mati?re s?che |
| 696 | 693 |
(Page.Components[i] as TRaveText).Text := Format('(%s %s)', [ComboBoxMinerals.Items[Minerals], _('DM')]);
|
| 694 |
if (Page.Components[i] as TRaveText).Name = 'TextUnitBE' |
|
| 695 |
then |
|
| 696 |
with FormOptions do |
|
| 697 |
if Expression = 0 |
|
| 698 |
then // sur frais |
|
| 699 |
(Page.Components[i] as TRaveText).Text := Format('(%s)', [_('mEq/kg')])
|
|
| 700 |
else // sur mati?re s?che |
|
| 701 |
(Page.Components[i] as TRaveText).Text := Format('(%s %s)', [_('mEq/kg'), _('DM')]);
|
|
| 702 |
if (Page.Components[i] as TRaveText).Name = 'TextdN' |
|
| 703 |
then |
|
| 704 |
(Page.Components[i] as TRaveText).Text := Format('%s (%%)', [(Page.Components[i] as TRaveText).Text]);
|
|
| 697 | 705 |
if (Page.Components[i] as TRaveText).Name = 'TextUnitPd_EN' |
| 698 | 706 |
then |
| 699 | 707 |
if FormOptions.Energy = 0 |
Formats disponibles : Unified diff