unit uViewFiltroAno;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewBase, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxSpinEdit,
  dxLayoutControl, StdCtrls, cxControls, TBXDkPanels, uViewParametrosInforme,
  uIViewFiltroAno, cxGraphics, cxDropDownEdit;

type
  TfrViewFiltroAno = class(TfrViewParametrosInforme, IViewFiltroAno)
    TBXLabel2: TTBXLabel;
    TBXAlignmentPanel1: TTBXAlignmentPanel;
    cbAno: TcxComboBox;
  private
    function GetAno: Variant;
    procedure SetAno(const Value: Variant);
  published

  public
    property Ano1 : Variant read GetAno write SetAno;
  end;

implementation
{$R *.dfm}

function TfrViewFiltroAno.GetAno: Variant;
begin
  Result := cbAno.EditValue;
end;

procedure TfrViewFiltroAno.SetAno(const Value: Variant);
begin
  cbAno.EditValue := Value;
end;

end.