object frmcxGrid: TfrmcxGrid
  Left = 0
  Top = 0
  ClientHeight = 311
  ClientWidth = 643
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object cxgrd1: TcxGrid
    Left = 0
    Top = 0
    Width = 643
    Height = 311
    Align = alClient
    PopupMenu = pm1
    TabOrder = 0
    LevelTabs.Style = 8
    LookAndFeel.Kind = lfOffice11
    object cxgrdbtblvw1: TcxGridDBTableView
      Navigator.Buttons.CustomButtons = <>
      DataController.DataSource = ds1
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsCustomize.ColumnGrouping = False
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsView.GroupByBox = False
    end
    object cxgrdbtblvw2: TcxGridDBTableView
      Navigator.Buttons.CustomButtons = <>
      DataController.DataSource = ds2
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsView.GroupByBox = False
    end
    object cxgrdbtblvw3: TcxGridDBTableView
      Navigator.Buttons.CustomButtons = <>
      DataController.DataSource = ds3
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsView.GroupByBox = False
    end
    object cxgrdlvl1: TcxGridLevel
      GridView = cxgrdbtblvw1
    end
  end
  object ds1: TDataSource
    DataSet = qry1
    Left = 552
    Top = 8
  end
  object ds2: TDataSource
    DataSet = qry2
    Left = 552
    Top = 64
  end
  object ds3: TDataSource
    DataSet = qry3
    Left = 552
    Top = 112
  end
  object con1: TADOConnection
    KeepConnection = False
    LoginPrompt = False
    Provider = 'SQLNCLI11.1'
    Left = 456
    Top = 8
  end
  object qry1: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    Left = 456
    Top = 64
  end
  object qry2: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    Left = 464
    Top = 120
  end
  object qry3: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    Left = 464
    Top = 184
  end
  object pm1: TPopupMenu
    Left = 360
    Top = 184
    object mni1: TMenuItem
      Caption = #1057#1084#1077#1085#1080#1090#1100' '#1087#1088#1086#1089#1084#1086#1090#1088
    end
  end
end

unit UfrmcxGrid;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
  cxStyles, cxCustomData, cxFilter, cxData, cxDataStorage, cxEdit, cxNavigator,
  DB, cxDBData, cxGridLevel, cxClasses, cxGridCustomView, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGrid, ADODB, Menus;

type
  TfrmcxGrid = class(TForm)
    ds1: TDataSource;
    ds2: TDataSource;
    ds3: TDataSource;
    con1: TADOConnection;
    qry1: TADOQuery;
    qry2: TADOQuery;
    qry3: TADOQuery;
    cxgrdbtblvw1: TcxGridDBTableView;
    cxgrdlvl1: TcxGridLevel;
    cxgrd1: TcxGrid;
    cxgrdbtblvw2: TcxGridDBTableView;
    cxgrdbtblvw3: TcxGridDBTableView;
    pm1: TPopupMenu;
    mni1: TMenuItem;
  private
    { Private declarations }
    procedure SelectionsChanged(Sender: TObject);
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

var
  frmcxGrid: TfrmcxGrid;

implementation

{$R *.dfm}

const
  CaptionViews: array[0..2] of string = ('Вид спереди', 'Вид сзади', 'Вид сбоку');

constructor TfrmcxGrid.Create(AOwner: TComponent);
var
  ami: TMenuItem;
  I: Integer;
begin
  inherited Create(AOwner);
  con1.Open;
  if con1.Connected then
  begin
    for I := 0 to cxgrd1.ViewCount - 1 do
    begin
      ami := TMenuItem.Create(Self);
      ami.Hint := cxgrd1.Views[i].Name;
      ami.Caption := CaptionViews[I];
      ami.OnClick := SelectionsChanged;
      if cxgrd1.Views[i] = cxgrd1.ActiveView then
        ami.Checked := True;
      mni1.Add(ami);
    end;
    qry1.Open;
    qry2.Open;
    qry3.Open;
  end;
end;

destructor TfrmcxGrid.Destroy;
var
  ami: TMenuItem;
  I: Integer;
begin
  for I := mni1.Count - 1 downto 0 do
  begin
    ami := mni1.Items[I];
    mni1.Delete(I);
    FreeAndNil(ami);
  end;
  qry1.Close;
  qry2.Close;
  qry3.Close;
  con1.Close;
  inherited Destroy;
end;

procedure TfrmcxGrid.SelectionsChanged(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to mni1.Count - 1 do
    mni1.Items[I].Checked := False;
  with TMenuItem(Sender) do
  begin
    if not Checked then
      Checked := True;
    cxgrdlvl1.GridView := cxgrd1.Views[MenuIndex];
  end;
end;

end.