david
8a45a23220
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@7 05c56307-c608-d34a-929d-697000501d7a
113 lines
4.3 KiB
ObjectPascal
113 lines
4.3 KiB
ObjectPascal
unit ConvertGrid3MasterDetailDemoGrids;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
|
|
Dialogs, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, ComCtrls,
|
|
ExtCtrls, StdCtrls, dxDBTLCl, dxGrClms, cxStyles, cxCustomData,
|
|
cxGraphics, cxFilter, cxData, cxEdit, DB, cxDBData, cxGridDBTableView,
|
|
cxGridCustomTableView, cxGridTableView, cxGridBandedTableView,
|
|
cxGridDBBandedTableView, cxClasses, cxControls, cxGridCustomView,
|
|
cxGridLevel, cxGrid, cxDataStorage, cxTextEdit, cxBlobEdit, cxSpinEdit,
|
|
cxCheckBox, cxHyperLinkEdit, cxDropDownEdit, cxCurrencyEdit,
|
|
cxDBLookupComboBox, cxCalendar, cxImageComboBox, cxCalc;
|
|
|
|
type
|
|
TConvertGrid3MasterDetailDemoGridsForm = class(TForm)
|
|
pcGrids: TPageControl;
|
|
tsGrid3Mode: TTabSheet;
|
|
tsGrid4Mode: TTabSheet;
|
|
dxDBGridCars: TdxDBGrid;
|
|
lblMaster: TLabel;
|
|
Panel3: TPanel;
|
|
Bevel1: TBevel;
|
|
Panel4: TPanel;
|
|
dxDBGridCarsTrademark: TdxDBGridColumn;
|
|
dxDBGridCarsModel: TdxDBGridColumn;
|
|
dxDBGridCarsHP: TdxDBGridMaskColumn;
|
|
dxDBGridCarsMPG_City: TdxDBGridMaskColumn;
|
|
dxDBGridCarsMPG_Highway: TdxDBGridMaskColumn;
|
|
dxDBGridCarsPicture: TdxDBGridBlobColumn;
|
|
dxDBGridCarsDescription: TdxDBGridBlobColumn;
|
|
dxDBGridCarsLiter: TdxDBGridSpinColumn;
|
|
dxDBGridCarsCyl: TdxDBGridSpinColumn;
|
|
dxDBGridCarsTransmissSpeedCount: TdxDBGridSpinColumn;
|
|
dxDBGridCarsTransmissAutomatic: TdxDBGridCheckColumn;
|
|
dxDBGridCarsCategory: TdxDBGridPickColumn;
|
|
dxDBGridCarsHyperlink: TdxDBGridHyperLinkColumn;
|
|
dxDBGridCarsPrice: TdxDBGridCurrencyColumn;
|
|
Panel1: TPanel;
|
|
dxDBGridOrders: TdxDBGrid;
|
|
dxDBGridOrdersCustomer: TdxDBGridLookupColumn;
|
|
dxDBGridOrdersPurchaseDate: TdxDBGridDateColumn;
|
|
dxDBGridOrdersPaymentType: TdxDBGridImageColumn;
|
|
dxDBGridOrdersQuantity: TdxDBGridSpinColumn;
|
|
dxDBGridOrdersPaymentAmount: TdxDBGridCalcColumn;
|
|
lblDetail: TLabel;
|
|
Splitter1: TSplitter;
|
|
cxGrid1Level1: TcxGridLevel;
|
|
cxGrid1: TcxGrid;
|
|
cxStyleRepository1: TcxStyleRepository;
|
|
cxGrid1DBBandedTableView1: TcxGridDBBandedTableView;
|
|
cxGrid1DBBandedTableView1Trademark: TcxGridDBBandedColumn;
|
|
cxGrid1DBBandedTableView1Model: TcxGridDBBandedColumn;
|
|
cxGrid1DBBandedTableView1Picture: TcxGridDBBandedColumn;
|
|
cxGrid1DBBandedTableView1HP: TcxGridDBBandedColumn;
|
|
cxGrid1DBBandedTableView1Description: TcxGridDBBandedColumn;
|
|
cxGrid1DBBandedTableView1Liter: TcxGridDBBandedColumn;
|
|
cxGrid1DBBandedTableView1Cyl: TcxGridDBBandedColumn;
|
|
cxGrid1DBBandedTableView1TransmissSpeedCount: TcxGridDBBandedColumn;
|
|
cxGrid1DBBandedTableView1TransmissAutomatic: TcxGridDBBandedColumn;
|
|
cxGrid1DBBandedTableView1MPG_City: TcxGridDBBandedColumn;
|
|
cxGrid1DBBandedTableView1MPG_Highway: TcxGridDBBandedColumn;
|
|
cxGrid1DBBandedTableView1Hyperlink: TcxGridDBBandedColumn;
|
|
cxGrid1DBBandedTableView1Category: TcxGridDBBandedColumn;
|
|
cxGrid1DBBandedTableView1Price: TcxGridDBBandedColumn;
|
|
cxStyle1: TcxStyle;
|
|
cxStyle2: TcxStyle;
|
|
cxStyle3: TcxStyle;
|
|
cxStyle4: TcxStyle;
|
|
cxStyle5: TcxStyle;
|
|
cxStyle6: TcxStyle;
|
|
cxStyle7: TcxStyle;
|
|
cxStyle8: TcxStyle;
|
|
cxGrid1Level2: TcxGridLevel;
|
|
cxGrid1DBTableView1: TcxGridDBTableView;
|
|
cxGrid1DBTableView1Customer: TcxGridDBColumn;
|
|
cxGrid1DBTableView1PurchaseDate: TcxGridDBColumn;
|
|
cxGrid1DBTableView1PaymentType: TcxGridDBColumn;
|
|
cxGrid1DBTableView1Quantity: TcxGridDBColumn;
|
|
cxGrid1DBTableView1PaymentAmount: TcxGridDBColumn;
|
|
cxStyle9: TcxStyle;
|
|
cxStyle10: TcxStyle;
|
|
cxStyle11: TcxStyle;
|
|
cxStyle12: TcxStyle;
|
|
cxStyle13: TcxStyle;
|
|
cxStyle14: TcxStyle;
|
|
cxStyle15: TcxStyle;
|
|
procedure dxDBGridCarsPictureGetGraphicClass(Sender: TObject;
|
|
Node: TdxTreeListNode; var GraphicClass: TGraphicClass);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
ConvertGrid3MasterDetailDemoGridsForm: TConvertGrid3MasterDetailDemoGridsForm;
|
|
|
|
implementation
|
|
|
|
uses ConvertGrid3MasterDetailDemoData, Jpeg;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TConvertGrid3MasterDetailDemoGridsForm.dxDBGridCarsPictureGetGraphicClass(
|
|
Sender: TObject; Node: TdxTreeListNode; var GraphicClass: TGraphicClass);
|
|
begin
|
|
GraphicClass := TJPEGImage;
|
|
end;
|
|
|
|
end.
|