david
8a45a23220
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@7 05c56307-c608-d34a-929d-697000501d7a
116 lines
4.0 KiB
ObjectPascal
116 lines
4.0 KiB
ObjectPascal
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.
|