Révision 6 UnitIngredientsList.pas

Voir les différences:

UnitIngredientsList.pas
56 56 
    JvImgBtnCreate: TJvImgBtn;
57 57 
    JvImgBtnHelp: TJvImgBtn;
58 58 
    JvImgBtnClose: TJvImgBtn;
59 
    TabSheetBE: TTabSheet;
60 
    DBGridBE: TDBGrid;
59 61 
    procedure FormCreate(Sender: TObject);
60 62 
    procedure ComboBoxClassChange(Sender: TObject);
61 63 
    procedure DBGridTitleClick(Column: TColumn);
......
569 571 
  TabSheetAADig.Caption := Format('%s (%s)', [TabSheetAADig.Caption, AAUnit]);
570 572 
  TabSheetMinerals.Caption := Format('%s (%s)', [TabSheetMinerals.Caption, MineralsUnit]);
571 573 
  TabSheetdP.Caption := Format('%s (%%)', [TabSheetdP.Caption]);
574 
  if FormOptions.Expression = 0
575 
  then // sur frais
576 
    TabSheetBE.Caption := Format('%s (%s)', [TabSheetBE.Caption, _('mEq/kg')])
577 
  else // sur mati?re s?che
578 
    TabSheetBE.Caption := Format('%s (%s %s)', [TabSheetBE.Caption, _('mEq/kg'), _('DM')]);
572 579 
  with DataModuleDeclaration do
573 580 
  begin
574 581 
    // Classes

Formats disponibles : Unified diff