unit uViewCuentasEspeciales;

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, uBizCuentasEspeciales, ActnList, Menus,
  cxGridBandedTableView, cxGridDBBandedTableView, JvComponent,
  JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn,
  dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
  dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
  cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, TBX,
  TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, cxCalendar,
  cxImageComboBox, cxTextEdit, uCustomView, uViewBase;

type
  IViewCuentasEspeciales = interface(IViewGrid)
  ['{E1960F7E-97F6-4BF6-82AA-82E60C220B33}']
    function GetCuentasEspeciales: IBizCuentaEspecial;
    procedure SetCuentasEspeciales(const Value: IBizCuentaEspecial);
    property CuentasEspeciales: IBizCuentaEspecial read GetCuentasEspeciales write SetCuentasEspeciales;
  end;

  TfrViewCuentasEspeciales = class(TfrViewGrid, IViewCuentasEspeciales)
    cxGridViewDESCRIPCION: TcxGridDBColumn;
    cxGridViewID: TcxGridDBColumn;
    PngImageList: TPngImageList;
    cxGridViewREFERENCIA: TcxGridDBColumn;
    procedure cxGridViewIDCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
      AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
  protected
    FCuentasEspeciales: IBizCuentaEspecial;
    function GetCuentasEspeciales: IBizCuentaEspecial; virtual;
    procedure SetCuentasEspeciales(const Value: IBizCuentaEspecial); virtual;
  public
    property CuentasEspeciales: IBizCuentaEspecial read GetCuentasEspeciales write SetCuentasEspeciales;
  end;

implementation
{$R *.dfm}

{ TfrViewCuentasEspeciales }

{
******************************* TfrViewCuentasEspeciales *******************************
}
function TfrViewCuentasEspeciales.GetCuentasEspeciales: IBizCuentaEspecial;
begin
  Result := FCuentasEspeciales;
end;

procedure TfrViewCuentasEspeciales.SetCuentasEspeciales(const Value: IBizCuentaEspecial);
begin
  FCuentasEspeciales := Value;
  if Assigned(FCuentasEspeciales) then
    dsDataSource.DataTable := FCuentasEspeciales.DataTable;
end;


procedure TfrViewCuentasEspeciales.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.
 