EvaPig

unit UnitFeedsList;

interface

uses

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

  Dialogs, gnugettext, StdCtrls, ComCtrls, ExtCtrls, DB, DBGrids, Grids,

  Buttons, pngimage, ActnList, ToolWin, ImgList, JvExStdCtrls, JvButton, JvCtrls;

type

  TFormFeedsList = class(TForm)

    PageControlLists: TPageControl;

    TabSheetProximal: TTabSheet;

    DBGridProximal: TDBGrid;

    TabSheetEnergyUtilization: TTabSheet;

    DBGridRatios: TDBGrid;

    TabSheetEnergy: TTabSheet;

    DBGridEnergy: TDBGrid;

    TabSheetAATot: TTabSheet;

    DBGridAATot: TDBGrid;

    TabSheetAADig: TTabSheet;

    DBGridAADig: TDBGrid;

    TabSheetMinerals: TTabSheet;

    DBGridMinerals: TDBGrid;

    TabSheetMS: TTabSheet;

    DBGridMS: TDBGrid;

    PanelButtons: TPanel;

    PanelName: TPanel;

    SplitterList: TSplitter;

    DBGridName: TDBGrid;

    ImageListIcons: TImageList;

    ActionListButtons: TActionList;

    ActionView: TAction;

    ActionCreate: TAction;

    ActionGraphs: TAction;

    ActionEval: TAction;

    ActionHelp: TAction;

    ActionClose: TAction;

    JvImgBtnClose: TJvImgBtn;

    JvImgBtnHelp: TJvImgBtn;

    JvImgBtnCreate: TJvImgBtn;

    JvImgBtnView: TJvImgBtn;

    JvImgBtnEval: TJvImgBtn;

    JvImgBtnGraphs: TJvImgBtn;

    procedure FormCreate(Sender: TObject);

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

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

    procedure DBGridFeedsTitleClick(Column: TColumn);

    procedure DBGridFeedsDblClick(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure PageControlListsChange(Sender: TObject);

    procedure FormResize(Sender: TObject);

    procedure SplitterListMoved(Sender: TObject);

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

    procedure ActionViewExecute(Sender: TObject);

    procedure ActionCreateExecute(Sender: TObject);

    procedure ActionGraphsExecute(Sender: TObject);

    procedure ActionEvalExecute(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;

    DBGridAADigOldWindowProc: TWndMethod;

    DBGridMineralsOldWindowProc: 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 DBGridAADigNewWindowProc(var Msg: TMessage);

    Procedure DBGridMineralsNewWindowProc(var Msg: TMessage);

  public

    { D?clarations publiques }

  end;

var

  FormFeedsList: TFormFeedsList;

implementation

uses

  UnitDeclaration, UnitOptions, UnitFeedCreation, UnitFeedDetail,

  UnitFeedsCharts, UnitPredictionCreate;

{$R *.dfm}

procedure TFormFeedsList.ActionCloseExecute(Sender: TObject);

begin

  ModalResult := mrClose;

end;

procedure TFormFeedsList.ActionCreateExecute(Sender: TObject);

begin

  FormFeedCreation := TFormFeedCreation.Create(nil);

  try

    if FormFeedCreation.ShowModal = mrOk

    then

    begin

      FormFeedDetail := TFormFeedDetail.Create(nil);

      try

        // Modifier le nouvel enregistrement

        FormFeedDetail.ActionModifyExecute(Sender);

        FormFeedDetail.ShowModal;

      finally

        FormFeedDetail.Release;

      end;

    end;

  finally

    FormFeedCreation.Release;

  end;

end;

procedure TFormFeedsList.ActionEvalExecute(Sender: TObject);

begin

  FormPredictionCreate := TFormPredictionCreate.Create(nil);

  try

    FormPredictionCreate.ShowModal;

  finally

    FormPredictionCreate.Release;

  end;

end;

procedure TFormFeedsList.ActionGraphsExecute(Sender: TObject);

begin

  FormFeedsCharts := TFormFeedsCharts.Create(nil);

  try

    FormFeedsCharts.ShowModal;

  finally

    FormFeedsCharts.Release;

  end;

end;

procedure TFormFeedsList.ActionHelpExecute(Sender: TObject);

begin

  Application.HelpContext(HelpContext);

end;

procedure TFormFeedsList.ActionViewExecute(Sender: TObject);

begin

  if DataModuleDeclaration.ClientDataSetFeeds.IsEmpty

  then // Table aliment vide

    Exit;

  FormFeedDetail := TFormFeedDetail.Create(nil);

  try

    FormFeedDetail.ShowModal;

  finally

    FormFeedDetail.Release;

  end;

end;

procedure TFormFeedsList.DBGridFeedsDblClick(Sender: TObject);

begin

//  ButtonViewClick(nil);

  ActionViewExecute(nil);

end;

procedure TFormFeedsList.DBGridFeedsDrawColumnCell(Sender: TObject;

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

begin

  with Sender as TDBGrid do

  begin

    if Column.FieldName = DataModuleDeclaration.ClientDataSetFeeds.IndexFieldNames

    then // Colonne tri?e

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

    {

    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;

    }

    DefaultDrawColumnCell(Rect, DataCol, Column, State);

  end;

end;

procedure TFormFeedsList.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.ClientDataSetFeeds.Next

    else

      DataModuleDeclaration.ClientDataSetFeeds.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 TFormFeedsList.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.ClientDataSetFeeds.Next

    else

      DataModuleDeclaration.ClientDataSetFeeds.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 TFormFeedsList.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.ClientDataSetFeeds.Next

    else

      DataModuleDeclaration.ClientDataSetFeeds.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 TFormFeedsList.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.ClientDataSetFeeds.Next

    else

      DataModuleDeclaration.ClientDataSetFeeds.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 TFormFeedsList.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.ClientDataSetFeeds.Next

    else

      DataModuleDeclaration.ClientDataSetFeeds.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 TFormFeedsList.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.ClientDataSetFeeds.Next

    else

      DataModuleDeclaration.ClientDataSetFeeds.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 TFormFeedsList.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.ClientDataSetFeeds.Next

    else

      DataModuleDeclaration.ClientDataSetFeeds.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 TFormFeedsList.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.ClientDataSetFeeds.Next

    else

      DataModuleDeclaration.ClientDataSetFeeds.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 TFormFeedsList.DBGridFeedsTitleClick(Column: TColumn);

begin

  with DataModuleDeclaration.ClientDataSetFeeds do

    if IndexFieldNames = Column.FieldName

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

      IndexFieldNames := ''

    else

      IndexFieldNames := Column.FieldName;

end;

procedure TFormFeedsList.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];

  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 := TabSheetMS.Caption + Format(' (%s)', [ComboBoxProximal.Items[Proximal]]);

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

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

  TabSheetEnergyUtilization.Caption := TabSheetEnergyUtilization.Caption + ' (%)';

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

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

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

  // Sauvegarder la WndProc actuelle du DBGrid

  DBGridNameOldWindowProc := DBGridName.WindowProc;

  DBGridMSOldWindowProc := DBGridMS.WindowProc;

  DBGridProximalOldWindowProc := DBGridProximal.WindowProc;

  DBGridRatiosOldWindowProc := DBGridRatios.WindowProc;

  DBGridEnergyOldWindowProc := DBGridEnergy.WindowProc;

  DBGridAATotOldWindowProc := DBGridAATot.WindowProc;

  DBGridAADigOldWindowProc := DBGridAADig.WindowProc;

  DBGridMineralsOldWindowProc := DBGridMinerals.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;

  DBGridAADig.WindowProc := DBGridAADigNewWindowProc;

  DBGridMinerals.WindowProc := DBGridMineralsNewWindowProc;

end;

procedure TFormFeedsList.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 := DBGridAADig.Height;

    6: DBGridName.Height := DBGridMinerals.Height;

  end;

end;

procedure TFormFeedsList.FormShow(Sender: TObject);

begin

  with DataModuleDeclaration do

//    ClientDataSetFeeds.Last;

    ClientDataSetFeeds.First;

  PageControlLists.ActivePageIndex := 0;

  PageControlListsChange(nil);

end;

procedure TFormFeedsList.PageControlListsChange(Sender: TObject);

begin

  FormResize(nil);

  // 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 := DBGridAADig;

    6: ActiveControl := DBGridMinerals;

  end;

end;

procedure TFormFeedsList.SplitterListMoved(Sender: TObject);

begin

  FormResize(nil);

end;

procedure TFormFeedsList.WMSysCommand(var Message: TWMSysCommand);

begin

  if Message.CmdType = SC_MINIMIZE

  then

    Application.Minimize

  else

    inherited;

end;

end.