Révision 5 UnitFeedsList.pas

Voir les différences:

UnitFeedsList.pas
42 42 
    JvImgBtnView: TJvImgBtn;
43 43 
    JvImgBtnEval: TJvImgBtn;
44 44 
    JvImgBtnGraphs: TJvImgBtn;
45 
    TabSheetBE: TTabSheet;
46 
    DBGridBE: TDBGrid;
45 47 
    procedure FormCreate(Sender: TObject);
46 48 
    procedure DBGridFeedsDrawColumnCell(Sender: TObject; const Rect: TRect;
47 49 
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
......
367 369 
      MineralsUnit := Format('%s %s', [ComboBoxMinerals.Items[Minerals], _('DM')]);
368 370 
    end;
369 371 
  with FormOptions do
370 
    TabSheetMS.Caption := TabSheetMS.Caption + Format(' (%s)', [ComboBoxProximal.Items[Proximal]]);
371 
  TabSheetProximal.Caption := TabSheetProximal.Caption + Format(' (%s)', [ProximalUnit]);
372 
  TabSheetEnergy.Caption := TabSheetEnergy.Caption + Format(' (%s)', [EnergyUnit]);
373 
  TabSheetEnergyUtilization.Caption := TabSheetEnergyUtilization.Caption + ' (%)';
374 
  TabSheetAATot.Caption := TabSheetAATot.Caption + Format(' (%s)', [AAUnit]);
375 
  TabSheetAADig.Caption := TabSheetAADig.Caption + Format(' (%s)', [AAUnit]);
376 
  TabSheetMinerals.Caption := TabSheetMinerals.Caption + Format(' (%s)', [MineralsUnit]);
372 
    TabSheetMS.Caption := Format('%s (%s)', [TabSheetMS.Caption, ComboBoxProximal.Items[Proximal]]);
373 
  TabSheetProximal.Caption := Format('%s (%s)', [TabSheetProximal.Caption, ProximalUnit]);
374 
  TabSheetEnergy.Caption := Format('%s (%s)', [TabSheetEnergy.Caption, EnergyUnit]);
375 
  TabSheetEnergyUtilization.Caption := Format('%s (%%)', [TabSheetEnergyUtilization.Caption]);
376 
  TabSheetAATot.Caption := Format('%s (%s)', [TabSheetAATot.Caption, AAUnit]);
377 
  TabSheetAADig.Caption := Format('%s (%s)', [TabSheetAADig.Caption, AAUnit]);
378 
  TabSheetMinerals.Caption := Format('%s (%s)', [TabSheetMinerals.Caption, MineralsUnit]);
379 
  if FormOptions.Expression = 0
380 
  then // sur frais
381 
    TabSheetBE.Caption := Format('%s (%s)', [TabSheetBE.Caption, _('mEq/kg')])
382 
  else // sur mati?re s?che
383 
    TabSheetBE.Caption := Format('%s (%s %s)', [TabSheetBE.Caption, _('mEq/kg'), _('DM')]);
377 384 
  // Sauvegarder la WndProc actuelle du DBGrid
378 385 
  DBGridNameOldWindowProc := DBGridName.WindowProc;
379 386 
  DBGridMSOldWindowProc := DBGridMS.WindowProc;

Formats disponibles : Unified diff