EvaPig

unit UnitIngredientsList;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ComCtrls, ExtCtrls, DB, DBGrids, Grids, ActnList, ImgList,

  ToolWin, Buttons, JvDBUltimGrid, JvExDBGrids, JvDBGrid, gnugettext,

  JvExStdCtrls, JvButton, JvCtrls;

type

  TFormIngredientsList = class(TForm)

    PageControlLists: TPageControl;

    TabSheetProximal: TTabSheet;

    TabSheetEnergy: TTabSheet;

    TabSheetAATot: TTabSheet;

    TabSheetAADig: TTabSheet;

    DBGridProximal: TDBGrid;

    DBGridEnergy: TDBGrid;

    DBGridAATot: TDBGrid;

    DBGridAADig: TDBGrid;

    TabSheetEnergyUtilization: TTabSheet;

    DBGridRatios: TDBGrid;

    TabSheetMinerals: TTabSheet;

    DBGridMinerals: TDBGrid;

    TabSheetAA_MAT: TTabSheet;

    TabSheetdAA: TTabSheet;

    DBGridAA_MAT: TDBGrid;

    DBGriddAA: TDBGrid;

    TabSheetMS: TTabSheet;

    DBGridMS: TDBGrid;

    TabSheetdP: TTabSheet;

    DBGriddP: TDBGrid;

    SplitterList: TSplitter;

    ImageListIcons: TImageList;

    ActionListButtons: TActionList;

    ActionView: TAction;

    ActionCreate: TAction;

    ActionHelp: TAction;

    ActionClose: TAction;

    LabelWarning: TLabel;

    GroupBoxFilters: TGroupBox;

    LabelFilteredClass: TLabel;

    LabelFilteredDatabase: TLabel;

    LabelFilteredName: TLabel;

    ComboBoxClass: TComboBox;

    ComboBoxDatabase: TComboBox;

    EditName: TEdit;

    CheckBoxClass: TCheckBox;

    CheckBoxDatabase: TCheckBox;

    CheckBoxName: TCheckBox;

    PanelButtons: TPanel;

    PanelName: TPanel;

    DBGridName: TDBGrid;

    JvImgBtnView: TJvImgBtn;

    JvImgBtnCreate: TJvImgBtn;

    JvImgBtnHelp: TJvImgBtn;

    JvImgBtnClose: TJvImgBtn;

    TabSheetBE: TTabSheet;

    DBGridBE: TDBGrid;

    procedure FormCreate(Sender: TObject);

    procedure ComboBoxClassChange(Sender: TObject);

    procedure DBGridTitleClick(Column: TColumn);

    procedure DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;

      DataCol: Integer; Column: TColumn; State: TGridDrawState);

    procedure EditNameChange(Sender: TObject);

    procedure CheckBoxFilterClick(Sender: TObject);

    procedure PageControlListsChange(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

    procedure DBGridDblClick(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure ComboBoxDatabaseChange(Sender: TObject);

    procedure SplitterListMoved(Sender: TObject);

    procedure FormResize(Sender: TObject);

    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;

    procedure ActionViewExecute(Sender: TObject);

    procedure ActionCreateExecute(Sender: TObject);

    procedure ActionHelpExecute(Sender: TObject);

    procedure ActionCloseExecute(Sender: TObject);

  private

    { D?clarations priv?es }

    DBGridNameOldWindowProc: TWndMethod;

    DBGridMSOldWindowProc: TWndMethod;

    DBGridProximalOldWindowProc: TWndMethod;

    DBGridRatiosOldWindowProc: TWndMethod;

    DBGridEnergyOldWindowProc: TWndMethod;

    DBGridAATotOldWindowProc: TWndMethod;

    DBGridAA_MATOldWindowProc: TWndMethod;

    DBGriddAAOldWindowProc: TWndMethod;

    DBGridAADigOldWindowProc: TWndMethod;

    DBGridMineralsOldWindowProc: TWndMethod;

    DBGriddPOldWindowProc: TWndMethod;

    Procedure DBGridNameNewWindowProc(var Msg: TMessage);

    Procedure DBGridMSNewWindowProc(var Msg: TMessage);

    Procedure DBGridProximalNewWindowProc(var Msg: TMessage);

    Procedure DBGridRatiosNewWindowProc(var Msg: TMessage);

    Procedure DBGridEnergyNewWindowProc(var Msg: TMessage);

    Procedure DBGridAATotNewWindowProc(var Msg: TMessage);

    Procedure DBGridAA_MATNewWindowProc(var Msg: TMessage);

    Procedure DBGriddAANewWindowProc(var Msg: TMessage);

    Procedure DBGridAADigNewWindowProc(var Msg: TMessage);

    Procedure DBGridMineralsNewWindowProc(var Msg: TMessage);

    Procedure DBGriddPNewWindowProc(var Msg: TMessage);

  public

    { D?clarations publiques }

  end;

var

  FormIngredientsList: TFormIngredientsList;

implementation

{$R *.dfm}

uses

  UnitDeclaration, UnitOptions, UnitIngredientCreation, UnitIngredientDetail;

procedure TFormIngredientsList.ActionCloseExecute(Sender: TObject);

begin

  ModalResult := mrClose;

end;

procedure TFormIngredientsList.ActionCreateExecute(Sender: TObject);

begin

  FormIngredientCreation := TFormIngredientCreation.Create(nil);

  try

    // D?sactiver les filtres

    CheckBoxClass.Checked := False;

    CheckBoxDatabase.Checked := False;

    CheckBoxName.Checked := False;

    if FormIngredientCreation.ShowModal = mrOk

    then

    begin

      FormIngredientDetail := TFormIngredientDetail.Create(nil);

      try

        // Modifier le nouvel enregistrement

        FormIngredientDetail.ActionModifyExecute(Sender);

        FormIngredientDetail.ShowModal;

      finally

        FormIngredientDetail.Release;

      end;

    end;

  finally

    FormIngredientCreation.Release;

  end;

end;

procedure TFormIngredientsList.ActionHelpExecute(Sender: TObject);

begin

  Application.HelpContext(HelpContext);

end;

procedure TFormIngredientsList.ActionViewExecute(Sender: TObject);

begin

  if DataModuleDeclaration.ClientDataSetIngredients.RecordCount = 0

  then // Aucun enregistrement affich? (filtres)

    Exit;

  FormIngredientDetail := TFormIngredientDetail.Create(nil);

  try

    FormIngredientDetail.ShowModal;

  finally

    FormIngredientDetail.Release;

  end;

end;

procedure TFormIngredientsList.CheckBoxFilterClick(Sender: TObject);

var

  Id, User: Integer;

begin

  if CheckBoxClass.Checked

  then

  begin

    LabelFilteredClass.Caption := _('Enabled');

    LabelFilteredClass.Font.Color := clGreen;

  end

  else

  begin

    LabelFilteredClass.Caption := _('Disabled');

    LabelFilteredClass.Font.Color := clRed;

  end;

  ComboBoxClass.Enabled := CheckBoxClass.Checked;

  if CheckBoxDatabase.Checked

  then

  begin

    LabelFilteredDatabase.Caption := _('Enabled');

    LabelFilteredDatabase.Font.Color := clGreen;

  end

  else

  begin

    LabelFilteredDatabase.Caption := _('Disabled');

    LabelFilteredDatabase.Font.Color := clRed;

  end;

  ComboBoxDatabase.Enabled := CheckBoxDatabase.Checked;

  if CheckBoxName.Checked

  then

  begin

    LabelFilteredName.Caption := _('Enabled');

    LabelFilteredName.Font.Color := clGreen;

  end

  else

  begin

    LabelFilteredName.Caption := _('Disabled');

    LabelFilteredName.Font.Color := clRed;

  end;

  EditName.Enabled := CheckBoxName.Checked;

  with DataModuleDeclaration do

  begin

    Id := ClientDataSetIngredientsId.Value;

    if ClientDataSetIngredientsUser.Value

    then

      User := 1

    else

      User := 0;

    ClientDataSetIngredients.Filtered := False;

    FilterOnClass := CheckBoxClass.Checked;

    FilteredClass := ComboBoxClass.ItemIndex + 1;

    FilterOnDatabase := CheckBoxDatabase.Checked;

    FilteredDatabase := ComboBoxDatabase.ItemIndex + 1;

    FilterOnName := CheckBoxName.Checked;

    FilteredName := Trim(EditName.Text);

    if (FilterOnClass and (FilteredClass <> 0))

    or (FilterOnDatabase and (FilteredDatabase <> 0))

    or (FilterOnName and (FilteredName <> ''))

    then

      ClientDataSetIngredients.Filtered := True;

    ClientDataSetIngredients.Locate('Id;User', VarArrayOf([Id, User]), [])

  end;

end;

procedure TFormIngredientsList.ComboBoxClassChange(Sender: TObject);

begin

  if CheckBoxClass.Checked

  then

    CheckBoxFilterClick(nil);

end;

procedure TFormIngredientsList.ComboBoxDatabaseChange(Sender: TObject);

begin

  if CheckBoxDatabase.Checked

  then

    CheckBoxFilterClick(nil);

end;

procedure TFormIngredientsList.DBGridDblClick(Sender: TObject);

begin

//  ButtonViewClick(nil);

  ActionViewExecute(nil);

end;

procedure TFormIngredientsList.DBGridDrawColumnCell(Sender: TObject;

  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

  with Sender as TDBGrid do

  begin

    if Column.FieldName = DataModuleDeclaration.ClientDataSetIngredients.IndexFieldNames

    then // Colonne tri?e

      Canvas.Font.Style := Canvas.Font.Style + [fsBold];

    if Column.FieldName = 'Name'

    then // Couleur particuli?re pour indiquer la base d'origine

      if gdSelected in State

      then // Cellule courante

      begin

        if DataModuleDeclaration.ClientDataSetIngredientsUser.Value

        then // User

          Canvas.Font.Color := clWebPaleTurquoise

        else // InraAfz

          Canvas.Font.Color := clWebLightPink;

        Canvas.Brush.Color := clWebGray;

      end

      else // Cellule normale

      begin

        Canvas.Font.Color := clWebBlack;

        if DataModuleDeclaration.ClientDataSetIngredientsUser.Value

        then // User

          Canvas.Brush.Color := clWebPaleTurquoise

        else // InraAfz

          Canvas.Brush.Color := clWebLightPink;

      end

    else // Valeurs

    begin

      if gdSelected in State

      then // Cellule courante

      begin

        Canvas.Font.Color := clWebWhite;

        Canvas.Brush.Color := clWebGray;

      end

      else

      begin

        Canvas.Font.Color := clWebBlack;

        Canvas.Brush.Color := clWebLightGrey;

      end;

      if ((Sender = DBGridProximal) and (Column.FieldName <> 'MS2'))

      or (Sender = DBGridMinerals)

      then

        with DataModuleDeclaration do

          if ClientDataSetIngredientsUser.Value

          then // User

          begin

            TableIngredients := DBUser.GetTable('SELECT * FROM Ingredients '

              + Format('WHERE Id = %d', [ClientDataSetIngredientsId.Value]));

            if TableIngredients.FieldIsNull(TableIngredients.FieldIndex[Column.FieldName])

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

            begin

              Canvas.Font.Style := Canvas.Font.Style + [fsItalic];

              if gdSelected in State

              then // Cellule courante

                Canvas.Font.Color := clWebSilver

              else

                Canvas.Font.Color := clWebDimGray;

            end;

            TableIngredients.Free;

          end;

    end;

    DefaultDrawColumnCell(Rect, DataCol, Column, State);

  end;

end;

procedure TFormIngredientsList.DBGridNameNewWindowProc(var Msg: TMessage);

begin

  if Msg.Msg = WM_MOUSEWHEEL

  then // Interception de l'?v?nement WM_MOUSEWHEEL

    if SmallInt(Msg.WParamHi) < 0

    then

      DataModuleDeclaration.ClientDataSetIngredients.Next

    else

      DataModuleDeclaration.ClientDataSetIngredients.Prior

  else // Traitement des autres messages

  begin

    if Msg.Msg = WM_NCCALCSIZE

    then // Forcer l'affichage des ascenseurs

      ShowScrollBar(DBGridName.Handle, SB_BOTH, True);

    DBGridNameOldWindowProc(Msg);

  end;

end;

procedure TFormIngredientsList.DBGridMSNewWindowProc(var Msg: TMessage);

begin

  if Msg.Msg = WM_MOUSEWHEEL

  then // Interception de l'?v?nement WM_MOUSEWHEEL

    if SmallInt(Msg.WParamHi) < 0

    then

      DataModuleDeclaration.ClientDataSetIngredients.Next

    else

      DataModuleDeclaration.ClientDataSetIngredients.Prior

  else // Traitement des autres messages

  begin

    if Msg.Msg = WM_NCCALCSIZE

    then // Forcer l'affichage des ascenseurs

      ShowScrollBar(DBGridMS.Handle, SB_BOTH, True);

    DBGridMSOldWindowProc(Msg);

  end;

end;

procedure TFormIngredientsList.DBGridProximalNewWindowProc(var Msg: TMessage);

begin

  if Msg.Msg = WM_MOUSEWHEEL

  then // Interception de l'?v?nement WM_MOUSEWHEEL

    if SmallInt(Msg.WParamHi) < 0

    then

      DataModuleDeclaration.ClientDataSetIngredients.Next

    else

      DataModuleDeclaration.ClientDataSetIngredients.Prior

  else // Traitement des autres messages

  begin

    if Msg.Msg = WM_NCCALCSIZE

    then // Forcer l'affichage des ascenseurs

      ShowScrollBar(DBGridProximal.Handle, SB_BOTH, True);

    DBGridProximalOldWindowProc(Msg);

  end;

end;

procedure TFormIngredientsList.DBGridRatiosNewWindowProc(var Msg: TMessage);

begin

  if Msg.Msg = WM_MOUSEWHEEL

  then // Interception de l'?v?nement WM_MOUSEWHEEL

    if SmallInt(Msg.WParamHi) < 0

    then

      DataModuleDeclaration.ClientDataSetIngredients.Next

    else

      DataModuleDeclaration.ClientDataSetIngredients.Prior

  else // Traitement des autres messages

  begin

    if Msg.Msg = WM_NCCALCSIZE

    then // Forcer l'affichage des ascenseurs

      ShowScrollBar(DBGridRatios.Handle, SB_BOTH, True);

    DBGridRatiosOldWindowProc(Msg);

  end;

end;

procedure TFormIngredientsList.DBGridEnergyNewWindowProc(var Msg: TMessage);

begin

  if Msg.Msg = WM_MOUSEWHEEL

  then // Interception de l'?v?nement WM_MOUSEWHEEL

    if SmallInt(Msg.WParamHi) < 0

    then

      DataModuleDeclaration.ClientDataSetIngredients.Next

    else

      DataModuleDeclaration.ClientDataSetIngredients.Prior

  else // Traitement des autres messages

  begin

    if Msg.Msg = WM_NCCALCSIZE

    then // Forcer l'affichage des ascenseurs

      ShowScrollBar(DBGridEnergy.Handle, SB_BOTH, True);

    DBGridEnergyOldWindowProc(Msg);

  end;

end;

procedure TFormIngredientsList.DBGridAATotNewWindowProc(var Msg: TMessage);

begin

  if Msg.Msg = WM_MOUSEWHEEL

  then // Interception de l'?v?nement WM_MOUSEWHEEL

    if SmallInt(Msg.WParamHi) < 0

    then

      DataModuleDeclaration.ClientDataSetIngredients.Next

    else

      DataModuleDeclaration.ClientDataSetIngredients.Prior

  else // Traitement des autres messages

  begin

    if Msg.Msg = WM_NCCALCSIZE

    then // Forcer l'affichage des ascenseurs

      ShowScrollBar(DBGridAATot.Handle, SB_BOTH, True);

    DBGridAATotOldWindowProc(Msg);

  end;

end;

procedure TFormIngredientsList.DBGridAA_MATNewWindowProc(var Msg: TMessage);

begin

  if Msg.Msg = WM_MOUSEWHEEL

  then // Interception de l'?v?nement WM_MOUSEWHEEL

    if SmallInt(Msg.WParamHi) < 0

    then

      DataModuleDeclaration.ClientDataSetIngredients.Next

    else

      DataModuleDeclaration.ClientDataSetIngredients.Prior

  else // Traitement des autres messages

  begin

    if Msg.Msg = WM_NCCALCSIZE

    then // Forcer l'affichage des ascenseurs

      ShowScrollBar(DBGridAA_MAT.Handle, SB_BOTH, True);

    DBGridAA_MATOldWindowProc(Msg);

  end;

end;

procedure TFormIngredientsList.DBGriddAANewWindowProc(var Msg: TMessage);

begin

  if Msg.Msg = WM_MOUSEWHEEL

  then // Interception de l'?v?nement WM_MOUSEWHEEL

    if SmallInt(Msg.WParamHi) < 0

    then

      DataModuleDeclaration.ClientDataSetIngredients.Next

    else

      DataModuleDeclaration.ClientDataSetIngredients.Prior

  else // Traitement des autres messages

  begin 

    if Msg.Msg = WM_NCCALCSIZE

    then // Forcer l'affichage des ascenseurs

      ShowScrollBar(DBGriddAA.Handle, SB_BOTH, True);

    DBGriddAAOldWindowProc(Msg);

  end;

end;

procedure TFormIngredientsList.DBGridAADigNewWindowProc(var Msg: TMessage);

begin

  if Msg.Msg = WM_MOUSEWHEEL

  then // Interception de l'?v?nement WM_MOUSEWHEEL

    if SmallInt(Msg.WParamHi) < 0

    then

      DataModuleDeclaration.ClientDataSetIngredients.Next

    else

      DataModuleDeclaration.ClientDataSetIngredients.Prior

  else // Traitement des autres messages

  begin 

    if Msg.Msg = WM_NCCALCSIZE

    then // Forcer l'affichage des ascenseurs

      ShowScrollBar(DBGridAADig.Handle, SB_BOTH, True);

    DBGridAADigOldWindowProc(Msg);

  end;

end;

procedure TFormIngredientsList.DBGridMineralsNewWindowProc(var Msg: TMessage);

begin

  if Msg.Msg = WM_MOUSEWHEEL

  then // Interception de l'?v?nement WM_MOUSEWHEEL

    if SmallInt(Msg.WParamHi) < 0

    then

      DataModuleDeclaration.ClientDataSetIngredients.Next

    else

      DataModuleDeclaration.ClientDataSetIngredients.Prior

  else // Traitement des autres messages

  begin 

    if Msg.Msg = WM_NCCALCSIZE

    then // Forcer l'affichage des ascenseurs

      ShowScrollBar(DBGridMinerals.Handle, SB_BOTH, True);

    DBGridMineralsOldWindowProc(Msg);

  end;

end;

procedure TFormIngredientsList.DBGriddPNewWindowProc(var Msg: TMessage);

begin

  if Msg.Msg = WM_MOUSEWHEEL

  then // Interception de l'?v?nement WM_MOUSEWHEEL

    if SmallInt(Msg.WParamHi) < 0

    then

      DataModuleDeclaration.ClientDataSetIngredients.Next

    else

      DataModuleDeclaration.ClientDataSetIngredients.Prior

  else // Traitement des autres messages

  begin 

    if Msg.Msg = WM_NCCALCSIZE

    then // Forcer l'affichage des ascenseurs

      ShowScrollBar(DBGriddP.Handle, SB_BOTH, True);

    DBGriddPOldWindowProc(Msg);

  end;

end;

procedure TFormIngredientsList.DBGridTitleClick(Column: TColumn);

begin

  with DataModuleDeclaration.ClientDataSetIngredients do

    if IndexFieldNames = Column.FieldName

    then // C'est d?j? l'index => tri selon le nom

      IndexFieldNames := 'Name'

    else

      IndexFieldNames := Column.FieldName;

end;

procedure TFormIngredientsList.EditNameChange(Sender: TObject);

begin

  if CheckBoxName.Checked

  then

    CheckBoxFilterClick(nil);

end;

procedure TFormIngredientsList.FormCreate(Sender: TObject);

var

  ProximalUnit, EnergyUnit, AAUnit, MineralsUnit: String;

begin

  if Screen.Fonts.IndexOf('Arial Unicode MS') <> -1

  then

    Font.Name := 'Arial Unicode MS';

//  PanelButtons.Font.Size := PanelButtons.Font.Size + 2;

  PanelButtons.Font.Style := [fsBold];

  LabelWarning.Font.Style := [fsItalic];

  LabelFilteredClass.Font.Color := clRed;

  LabelFilteredDatabase.Font.Color := clRed;

  LabelFilteredName.Font.Color := clRed;

  TranslateComponent(Self);

  with FormOptions do

    if Expression = 0

    then // sur frais

    begin

      ProximalUnit := ComboBoxProximal.Items[Proximal];

      EnergyUnit := ComboBoxEnergy.Items[Energy];

      AAUnit := ComboBoxAA.Items[AA];

      MineralsUnit := ComboBoxMinerals.Items[Minerals];

    end

    else // sur mati?re s?che

    begin

      ProximalUnit := Format('%s %s', [ComboBoxProximal.Items[Proximal], _('DM')]);

      EnergyUnit := Format('%s %s', [ComboBoxEnergy.Items[Energy], _('DM')]);

      AAUnit := Format('%s %s', [ComboBoxAA.Items[AA], _('DM')]);

      MineralsUnit := Format('%s %s', [ComboBoxMinerals.Items[Minerals], _('DM')]);

    end;

  with FormOptions do

    TabSheetMS.Caption := Format('%s (%s)', [TabSheetMS.Caption, ComboBoxProximal.Items[Proximal]]);

  TabSheetProximal.Caption := Format('%s (%s)', [TabSheetProximal.Caption, ProximalUnit]);

  TabSheetEnergy.Caption := Format('%s (%s)', [TabSheetEnergy.Caption, EnergyUnit]);

  TabSheetEnergyUtilization.Caption := Format('%s (%%)', [TabSheetEnergyUtilization.Caption]);

  TabSheetAATot.Caption := Format('%s (%s)', [TabSheetAATot.Caption, AAUnit]);

  TabSheetAA_MAT.Caption := Format('%s (%%)', [TabSheetAA_MAT.Caption]);

  TabSheetdAA.Caption := Format('%s (%%)', [TabSheetdAA.Caption]);

  TabSheetAADig.Caption := Format('%s (%s)', [TabSheetAADig.Caption, AAUnit]);

  TabSheetMinerals.Caption := Format('%s (%s)', [TabSheetMinerals.Caption, MineralsUnit]);

  TabSheetdP.Caption := Format('%s (%%)', [TabSheetdP.Caption]);

  if FormOptions.Expression = 0

  then // sur frais

    TabSheetBE.Caption := Format('%s (%s)', [TabSheetBE.Caption, _('mEq/kg')])

  else // sur mati?re s?che

    TabSheetBE.Caption := Format('%s (%s %s)', [TabSheetBE.Caption, _('mEq/kg'), _('DM')]);

  with DataModuleDeclaration do

  begin

    // Classes

    ClientDataSetClasses.First;

    while not ClientDataSetClasses.Eof do

    begin

      ComboBoxClass.Items.Add(ClientDataSetClassesName.Value);

      ClientDataSetClasses.Next;

    end;

  end;

  // Sauvegarder la WndProc actuelle du DBGrid

  DBGridNameOldWindowProc := DBGridName.WindowProc;

  DBGridMSOldWindowProc := DBGridMS.WindowProc;

  DBGridProximalOldWindowProc := DBGridProximal.WindowProc;

  DBGridRatiosOldWindowProc := DBGridRatios.WindowProc;

  DBGridEnergyOldWindowProc := DBGridEnergy.WindowProc;

  DBGridAATotOldWindowProc := DBGridAATot.WindowProc;

  DBGridAA_MATOldWindowProc := DBGridAA_MAT.WindowProc;

  DBGriddAAOldWindowProc := DBGriddAA.WindowProc;

  DBGridAADigOldWindowProc := DBGridAADig.WindowProc;

  DBGridMineralsOldWindowProc := DBGridMinerals.WindowProc;

  DBGriddPOldWindowProc := DBGriddP.WindowProc;

  // Affecter une nouvelle proc?dure de fen?tre

  DBGridName.WindowProc := DBGridNameNewWindowProc;

  DBGridMS.WindowProc := DBGridMSNewWindowProc;

  DBGridProximal.WindowProc := DBGridProximalNewWindowProc;

  DBGridRatios.WindowProc := DBGridRatiosNewWindowProc;

  DBGridEnergy.WindowProc := DBGridEnergyNewWindowProc;

  DBGridAATot.WindowProc := DBGridAATotNewWindowProc;

  DBGridAA_MAT.WindowProc := DBGridAA_MATNewWindowProc;

  DBGriddAA.WindowProc := DBGriddAANewWindowProc;

  DBGridAADig.WindowProc := DBGridAADigNewWindowProc;

  DBGridMinerals.WindowProc := DBGridMineralsNewWindowProc;

  DBGriddP.WindowProc := DBGriddPNewWindowProc;

end;

procedure TFormIngredientsList.FormDestroy(Sender: TObject);

begin

  with DataModuleDeclaration do

  begin

    ClientDataSetIngredients.Filtered := False;

    FilterOnClass := False;

    FilterOnDatabase := False;

    FilterOnName := False;

  end;

end;

procedure TFormIngredientsList.FormResize(Sender: TObject);

begin

  // Adaptater la position et la taille de la liste des noms

  DBGridName.Top := TabSheetMS.Top;

  case PageControlLists.ActivePageIndex of

    0: DBGridName.Height := DBGridMS.Height;

    1: DBGridName.Height := DBGridProximal.Height;

    2: DBGridName.Height := DBGridRatios.Height;

    3: DBGridName.Height := DBGridEnergy.Height;

    4: DBGridName.Height := DBGridAATot.Height;

    5: DBGridName.Height := DBGridAA_MAT.Height;

    6: DBGridName.Height := DBGriddAA.Height;

    7: DBGridName.Height := DBGridAADig.Height;

    8: DBGridName.Height := DBGridMinerals.Height;

    9: DBGridName.Height := DBGriddP.Height;

  end;

end;

procedure TFormIngredientsList.FormShow(Sender: TObject);

begin

  with DataModuleDeclaration do

    ClientDataSetIngredients.First;

  PageControlLists.ActivePageIndex := 0;

  PageControlListsChange(nil);

end;

procedure TFormIngredientsList.PageControlListsChange(Sender: TObject);

begin

  // Activer la liste de l'onglet s?lectionn?

  case PageControlLists.ActivePageIndex of

    0: ActiveControl := DBGridMS;

    1: ActiveControl := DBGridProximal;

    2: ActiveControl := DBGridRatios;

    3: ActiveControl := DBGridEnergy;

    4: ActiveControl := DBGridAATot;

    5: ActiveControl := DBGridAA_MAT;

    6: ActiveControl := DBGriddAA;

    7: ActiveControl := DBGridAADig;

    8: ActiveControl := DBGridMinerals;

    9: ActiveControl := DBGriddP;

  end;

  FormResize(nil);

end;

procedure TFormIngredientsList.SplitterListMoved(Sender: TObject);

begin

  FormResize(nil);

end;

procedure TFormIngredientsList.WMSysCommand(var Message: TWMSysCommand);

begin

  if Message.CmdType = SC_MINIMIZE

  then

    Application.Minimize

  else

    inherited;

end;

end.