Componentes.Terceros.DevExp.../official/x.38/ExpressPivotGrid 2/Demos/Delphi/EditorsInPlaceDemo/EditorsInPlaceDemoMain.pas
2008-08-27 11:56:15 +00:00

43 lines
1.1 KiB
ObjectPascal

unit EditorsInPlaceDemoMain;
{$I ..\cxVer.inc}
interface
uses
Windows, Messages, {$IFDEF DELPHI6} Variants, {$ENDIF} Forms, Dialogs,
SysUtils, Menus, StdCtrls, Controls, cxLookAndFeels, DemoBasicMain,
cxControls, cxCustomPivotGrid, cxDBPivotGrid, DemoBasicDM, cxStyles,
cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData,
Classes, cxClasses, cxProgressBar;
type
TfrmEditorsInPlace = class(TfrmDemoBaisicMain)
DBPivotGrid: TcxDBPivotGrid;
pgfPurchaseDate: TcxDBPivotGridField;
pgfPaymentType: TcxDBPivotGridField;
pgfQuantity: TcxDBPivotGridField;
pgfCarName: TcxDBPivotGridField;
pgfUnitPrice: TcxDBPivotGridField;
pgfCompanyName: TcxDBPivotGridField;
pgfPaymentAmount: TcxDBPivotGridField;
protected
function GetPivotGrid: TcxCustomPivotGrid; override;
end;
var
frmEditorsInPlace: TfrmEditorsInPlace;
implementation
{$R *.dfm}
{ TfrmEditorsInPlace }
function TfrmEditorsInPlace.GetPivotGrid: TcxCustomPivotGrid;
begin
Result := DBPivotGrid;
end;
end.