convertgrid3demomain.pas

来自「DevExpress ExpressQuantumGrid Suite v5.9」· PAS 代码 · 共 116 行

unit ConvertGrid3DemoMain;

interface

uses
  Windows, Messages, Classes, Graphics, Controls, Forms,
  Dialogs, cxControls, cxLookupGrid, cxLookupDBGrid, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGridLevel, cxGridCustomView, cxGrid,
  cxGridCardView, cxGridDBCardView, cxMaskEdit, StdCtrls, ExtCtrls,
  cxContainer, cxEdit, cxTextEdit, cxDropDownEdit, cxDBEdit, cxStyles,
  Menus, ActnList, ImgList, ComCtrls, cxLookAndFeels, DB,
  DBTables, cxCustomData, cxGraphics, cxFilter, cxData, cxDBData, cxClasses,
  dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, dxDBTLCl, dxGrClms, JPEG,
  cxGridBandedTableView, cxGridDBBandedTableView, cxDataStorage,
  cxSpinEdit, cxCheckBox, cxBlobEdit, cxHyperLinkEdit, cxCurrencyEdit;

type
  TConvertGrid3DemoMainForm = class(TForm)
    mmMain: TMainMenu;
    miAbout: TMenuItem;
    miFile: TMenuItem;
    miExit: TMenuItem;
    sbMain: TStatusBar;
    lbDescrip: TLabel;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    dxGrid: TdxDBGrid;
    dxGridID: TdxDBGridMaskColumn;
    dxGridTrademark: TdxDBGridColumn;
    dxGridModel: TdxDBGridColumn;
    dxGridLiter: TdxDBGridMaskColumn;
    dxGridCategory: TdxDBGridColumn;
    dxGridPicture: TdxDBGridBlobColumn;
    dxGridPrice: TdxDBGridCurrencyColumn;
    dxGridDescription: TdxDBGridBlobColumn;
    dxGridHP: TdxDBGridSpinColumn;
    dxGridCyl: TdxDBGridSpinColumn;
    dxGridTransmissSpeedCount: TdxDBGridSpinColumn;
    dxGridTransmissAutomatic: TdxDBGridCheckColumn;
    dxGridMPG_City: TdxDBGridSpinColumn;
    dxGridMPG_Highway: TdxDBGridSpinColumn;
    dxGridHyperlink: TdxDBGridHyperLinkColumn;
    cxGrid: TcxGrid;
    StyleRepository: TcxStyleRepository;
    cxGridLevel1: TcxGridLevel;
    cxGridDBBandedTableView1: TcxGridDBBandedTableView;
    cxGridDBBandedTableView1ID: TcxGridDBBandedColumn;
    cxGridDBBandedTableView1Trademark: TcxGridDBBandedColumn;
    cxGridDBBandedTableView1Model: TcxGridDBBandedColumn;
    cxGridDBBandedTableView1HP: TcxGridDBBandedColumn;
    cxGridDBBandedTableView1Liter: TcxGridDBBandedColumn;
    cxGridDBBandedTableView1Cyl: TcxGridDBBandedColumn;
    cxGridDBBandedTableView1TransmissSpeedCount: TcxGridDBBandedColumn;
    cxGridDBBandedTableView1TransmissAutomatic: TcxGridDBBandedColumn;
    cxGridDBBandedTableView1MPG_City: TcxGridDBBandedColumn;
    cxGridDBBandedTableView1Category: TcxGridDBBandedColumn;
    cxGridDBBandedTableView1MPG_Highway: TcxGridDBBandedColumn;
    cxGridDBBandedTableView1Description: TcxGridDBBandedColumn;
    cxGridDBBandedTableView1Hyperlink: TcxGridDBBandedColumn;
    cxGridDBBandedTableView1Picture: TcxGridDBBandedColumn;
    cxGridDBBandedTableView1Price: TcxGridDBBandedColumn;
    LookAndFeelController: TcxLookAndFeelController;
    GridBandedTableViewStyleSheetDevExpress: TcxGridBandedTableViewStyleSheet;
    cxStyle1: TcxStyle;
    cxStyle2: TcxStyle;
    cxStyle3: TcxStyle;
    cxStyle4: TcxStyle;
    cxStyle5: TcxStyle;
    cxStyle6: TcxStyle;
    cxStyle7: TcxStyle;
    cxStyle8: TcxStyle;
    cxStyle9: TcxStyle;
    cxStyle10: TcxStyle;
    cxStyle11: TcxStyle;
    cxStyle12: TcxStyle;
    cxStyle13: TcxStyle;
    cxStyle14: TcxStyle;
    cxStyle15: TcxStyle;
    cxStyle16: TcxStyle;
    procedure miAboutClick(Sender: TObject);
    procedure miExitClick(Sender: TObject);
    procedure dxGridPictureGetGraphicClass(Sender: TObject;
      Node: TdxTreeListNode; var GraphicClass: TGraphicClass);
  private
  end;

var
  ConvertGrid3DemoMainForm: TConvertGrid3DemoMainForm;

implementation

{$R *.dfm}

uses
  ConvertGrid3DemoData, AboutDemoForm;

procedure TConvertGrid3DemoMainForm.miAboutClick(Sender: TObject);
begin
  ShowAboutDemoForm;
end;

procedure TConvertGrid3DemoMainForm.miExitClick(Sender: TObject);
begin
  Close;
end;

procedure TConvertGrid3DemoMainForm.dxGridPictureGetGraphicClass(
  Sender: TObject; Node: TdxTreeListNode; var GraphicClass: TGraphicClass);
begin
  GraphicClass := TJPEGImage;
end;

end.