convertgrid3masterdetaildemogrids.pas

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

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.