unit uViewDetallesPedidoCliente; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, uViewDetallesBase, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ImgList, PngImageList, uDADataTable, ActnList, ComCtrls, ToolWin, cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, cxImageComboBox, cxTextEdit, cxMaskEdit, cxCheckBox, cxCurrencyEdit, Grids, DBGrids, StdCtrls, ExtCtrls, cxRichEdit, ExtActns, StdActns, JvExStdCtrls, JvCombobox, JvColorCombo, TB2Item, TBX, TB2Dock, TB2Toolbar; type TfrViewDetallesPedidoCliente = class(TfrViewDetallesBase) cxGridViewREFERENCIA: TcxGridDBColumn; protected function darTipoLetraPorDefecto: TFont; override; end; implementation {$R *.dfm} { TfrViewDetallesPedidoProveedor } function TfrViewDetallesPedidoCliente.darTipoLetraPorDefecto: TFont; begin Result := TFont.Create; Result.Name := 'Tahoma'; Result.Size := 12; end; end.