unbounddesigndefineddemomain.pas

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

unit UnboundDesignDefinedDemoMain;

interface

uses
  Windows, Forms, Messages, SysUtils, Classes, ActnList, ImgList, Controls, Menus,
  StdCtrls, cxButtons, cxCheckBox, cxContainer, cxEdit, cxTextEdit,
  cxMaskEdit, cxSpinEdit, ExtCtrls, cxGridLevel, cxGridCustomTableView,
  cxGridCardView, cxGridDBCardView, cxClasses, cxControls,
  cxGridCustomView, cxGrid, ComCtrls, cxStyles, cxCustomData, cxGraphics,
  cxFilter, cxData, DB, cxDBData, cxDataStorage, cxLookAndFeelPainters,
  cxLookAndFeels, cxHyperLinkEdit, cxImageComboBox, cxDBLookupComboBox,
  cxMemo, cxGridTableView, cxGridBandedTableView, cxBlobEdit, cxImage,
  cxCurrencyEdit;

type
  TUnboundDesignDefinedDemoMainForm = class(TForm)
    mmMain: TMainMenu;
    miAbout: TMenuItem;
    miFile: TMenuItem;
    miExit: TMenuItem;
    sbMain: TStatusBar;
    lbDescrip: TLabel;
    LookAndFeelController: TcxLookAndFeelController;
    lvCars: TcxGridLevel;
    cxGrid: TcxGrid;
    bvCars: TcxGridBandedTableView;
    clnCar: TcxGridBandedColumn;
    clnPrice: TcxGridBandedColumn;
    clnPicture: TcxGridBandedColumn;
    clnHP: TcxGridBandedColumn;
    clnLiter: TcxGridBandedColumn;
    clnCyl: TcxGridBandedColumn;
    clnTransmissSpeedCount: TcxGridBandedColumn;
    clnTransmissAutomatic: TcxGridBandedColumn;
    clnHyperlink: TcxGridBandedColumn;
    cxStyleRepository1: TcxStyleRepository;
    styCar: TcxStyle;
    clnTradeMark: TcxGridBandedColumn;
    styGroup: TcxStyle;
    procedure miAboutClick(Sender: TObject);
    procedure miExitClick(Sender: TObject);
  end;

var
  UnboundDesignDefinedDemoMainForm: TUnboundDesignDefinedDemoMainForm;

implementation

{$R *.dfm}

uses
  Dialogs, AboutDemoForm;

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

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

end.