unit uViewFiltroImportes; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, uViewBase, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxSpinEdit, dxLayoutControl, StdCtrls, cxControls, TBXDkPanels, uViewParametrosInforme, dxLayoutLookAndFeels; type IViewFiltroImportes = interface(IViewParametrosInforme) ['{AE773F0B-E72A-4A71-9C5C-8E68EC61456A}'] end; TfrViewFiltroImportes = class(TfrViewParametrosInforme, IViewFiltroImportes) cbxDesglosado: TCheckBox; eImporte: TcxSpinEdit; dxLayoutControl1Group_Root: TdxLayoutGroup; dxLayoutControl1: TdxLayoutControl; dxLayoutControl1Group1: TdxLayoutGroup; dxLayoutControl1Item1: TdxLayoutItem; dxLayoutControl1Item2: TdxLayoutItem; dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel; procedure cbxDesglosadoClick(Sender: TObject); end; implementation {$R *.dfm} procedure TfrViewFiltroImportes.cbxDesglosadoClick(Sender: TObject); begin inherited; eImporte.Enabled := not eImporte.Enabled; end; end.