unit uViewEmpresas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, uDADataTable, cxGridLevel,
  cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGrid, uBizEmpresas, ActnList, Menus,
  cxGridBandedTableView, cxGridDBBandedTableView, JvComponent,
  JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn,
  dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
  dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
  cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, TBX,
  TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uCustomView, uViewBase;

type
  IViewEmpresas = interface(IViewGrid)
  ['{E5E5D85C-0E6F-4DEF-BB72-4AA327E4DA6A}']
    function GetEmpresas: IBizEmpresa;
    procedure SetEmpresas(const Value: IBizEmpresa);
    property Empresas: IBizEmpresa read GetEmpresas write SetEmpresas;
  end;

  TfrViewEmpresas = class(TfrViewGrid, IViewEmpresas)
    cxGridViewNIF_CIF: TcxGridDBColumn;
    cxGridViewNOMBRE: TcxGridDBColumn;
    cxGridViewID: TcxGridDBColumn;
    PngImageList: TPngImageList;
    cxGridViewCALLE: TcxGridDBColumn;
    cxGridViewPROVINCIA: TcxGridDBColumn;
    cxGridViewPOBLACION: TcxGridDBColumn;
    cxGridViewCODIGO_POSTAL: TcxGridDBColumn;
    procedure cxGridViewIDCustomDrawCell(
      Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
      AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
  protected
    FEmpresas: IBizEmpresa;
    function GetEmpresas: IBizEmpresa; virtual;
    procedure SetEmpresas(const Value: IBizEmpresa); virtual;
  public
    property Empresas: IBizEmpresa read GetEmpresas write SetEmpresas;
  end;

implementation

uses uDataModuleEmpresas;


{$R *.dfm}

{ TfrViewEmpresas }

{
******************************* TfrViewEmpresas *******************************
}
function TfrViewEmpresas.GetEmpresas: IBizEmpresa;
begin
  Result := FEmpresas;
end;

procedure TfrViewEmpresas.SetEmpresas(const Value: IBizEmpresa);
begin
  FEmpresas := Value;
  if Assigned(FEmpresas) then
    dsDataSource.DataTable := FEmpresas.DataTable;
end;


procedure TfrViewEmpresas.cxGridViewIDCustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
  R : TRect;
begin
  inherited;
  R := AViewInfo.ContentBounds;
  ACanvas.FillRect(R);
  ACanvas.DrawImage(PngImageList, R.Left, R.Top, 0);
  ADone := True;
end;

end.