convertgrid3masterdetaildemogrids.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

object ConvertGrid3MasterDetailDemoGridsForm: TConvertGrid3MasterDetailDemoGridsForm
  Left = 60
  Top = 89
  Width = 893
  Height = 565
  Caption = 'ConvertGrid3MasterDetailDemoGridsForm'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 13
  object pcGrids: TPageControl
    Left = 0
    Top = 0
    Width = 885
    Height = 531
    ActivePage = tsGrid4Mode
    Align = alClient
    TabOrder = 0
    object tsGrid3Mode: TTabSheet
      Caption = 'tsGrid3Mode'
      object lblMaster: TLabel
        Left = 0
        Top = 34
        Width = 877
        Height = 16
        Align = alTop
        Caption = 'Master : Cars'
        Color = 15790320
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object Bevel1: TBevel
        Left = 0
        Top = 32
        Width = 877
        Height = 2
        Align = alTop
        Shape = bsTopLine
        Style = bsRaised
      end
      object Splitter1: TSplitter
        Left = 0
        Top = 265
        Width = 877
        Height = 2
        Cursor = crVSplit
        Align = alTop
      end
      object dxDBGridCars: TdxDBGrid
        Left = 0
        Top = 50
        Width = 877
        Height = 215
        Bands = <
          item
            Caption = 'Basic Information'
          end
          item
            Caption = 'Tehnical Information'
          end
          item
            Caption = 'Price and Contact'
          end>
        DefaultLayout = False
        HeaderPanelRowCount = 1
        KeyField = 'ID'
        ShowGroupPanel = True
        ShowSummaryFooter = True
        SummaryGroups = <>
        SummarySeparator = ', '
        Align = alTop
        Color = 16247513
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        BandColor = 12937777
        BandFont.Charset = DEFAULT_CHARSET
        BandFont.Color = clWhite
        BandFont.Height = -11
        BandFont.Name = 'MS Sans Serif'
        BandFont.Style = [fsBold]
        DataSource = ConvertGrid3MasterDetailDemoDataDM.dsCars
        Filter.Active = True
        Filter.Criteria = {00000000}
        GroupPanelColor = 4707838
        GroupPanelFontColor = clBlack
        GroupNodeColor = 14872561
        HeaderColor = 15451300
        HeaderFont.Charset = DEFAULT_CHARSET
        HeaderFont.Color = clBlack
        HeaderFont.Height = -11
        HeaderFont.Name = 'MS Sans Serif'
        HeaderFont.Style = [fsBold]
        HideSelectionColor = 15451300
        HideSelectionTextColor = clBlack
        HighlightColor = 12937777
        HighlightTextColor = clWhite
        OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
        OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoInvertSelect, edgoUseBitmap]
        PreviewFont.Charset = DEFAULT_CHARSET
        PreviewFont.Color = clBlue
        PreviewFont.Height = -11
        PreviewFont.Name = 'MS Sans Serif'
        PreviewFont.Style = []
        RowFooterColor = 14811135
        RowFooterTextColor = clBlack
        ShowBands = True
        ShowRowFooter = True
        object dxDBGridCarsTrademark: TdxDBGridColumn
          Sorted = csUp
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Trademark'
          GroupIndex = 0
          SummaryType = cstCount
          SummaryField = 'Cyl'
        end
        object dxDBGridCarsModel: TdxDBGridColumn
          Sorted = csDown
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Model'
        end
        object dxDBGridCarsPicture: TdxDBGridBlobColumn
          Width = 100
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Picture'
          BlobKind = bkPict
          OnGetGraphicClass = dxDBGridCarsPictureGetGraphicClass
        end
        object dxDBGridCarsHP: TdxDBGridMaskColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'HP'
          SummaryFooterType = cstMax
          SummaryFooterField = 'HP'
        end
        object dxDBGridCarsDescription: TdxDBGridBlobColumn
          Width = 100
          BandIndex = 0
          RowIndex = 0
          HeaderMaxLineCount = 0
          FieldName = 'Description'
          BlobKind = bkMemo
          MemoScrollBars = ssVertical
        end
        object dxDBGridCarsLiter: TdxDBGridSpinColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'Liter'
          Increment = 0.1
        end
        object dxDBGridCarsCyl: TdxDBGridSpinColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'Cyl'
        end
        object dxDBGridCarsTransmissSpeedCount: TdxDBGridSpinColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'TransmissSpeedCount'
        end
        object dxDBGridCarsTransmissAutomatic: TdxDBGridCheckColumn
          MinWidth = 20
          Width = 100
          BandIndex = 1
          RowIndex = 0
          FieldName = 'TransmissAutomatic'
          ValueChecked = 'Yes'
          ValueUnchecked = 'No'
        end
        object dxDBGridCarsMPG_City: TdxDBGridMaskColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'MPG_City'
        end
        object dxDBGridCarsMPG_Highway: TdxDBGridMaskColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'MPG_Highway'
        end
        object dxDBGridCarsHyperlink: TdxDBGridHyperLinkColumn
          BandIndex = 2
          RowIndex = 0
          FieldName = 'Hyperlink'
        end
        object dxDBGridCarsCategory: TdxDBGridPickColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'Category'
          Items.Strings = (
            'SPORTS'
            'SALOON'
            'TRUCK')
        end
        object dxDBGridCarsPrice: TdxDBGridCurrencyColumn
          BandIndex = 2
          RowIndex = 0
          FieldName = 'Price'
          Nullable = False
        end
      end
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 877
        Height = 32
        Align = alTop
        BevelOuter = bvLowered
        Caption = 'Developer Express QuantumGrid 3 (input)'
        Color = 4707838
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
      end
      object Panel1: TPanel
        Left = 0
        Top = 267
        Width = 877
        Height = 236
        Align = alClient
        BevelOuter = bvNone
        Caption = 'Panel1'
        TabOrder = 2
        object lblDetail: TLabel
          Left = 0
          Top = 0
          Width = 877
          Height = 16
          Align = alTop
          Caption = 'Detail: Orders'
          Color = 15790320
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentColor = False
          ParentFont = False
        end
        object dxDBGridOrders: TdxDBGrid
          Left = 0
          Top = 16
          Width = 877
          Height = 220
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          KeyField = 'ID'
          ShowSummaryFooter = True
          SummaryGroups = <>
          SummarySeparator = ', '
          Align = alClient
          Color = 16247513
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          BandFont.Charset = DEFAULT_CHARSET
          BandFont.Color = clWindowText
          BandFont.Height = -11
          BandFont.Name = 'MS Sans Serif'
          BandFont.Style = []
          DataSource = ConvertGrid3MasterDetailDemoDataDM.dsOrders
          Filter.Active = True
          Filter.Criteria = {00000000}
          GroupPanelColor = 4707838
          GroupPanelFontColor = clBlack
          GroupNodeColor = 14872561
          HeaderColor = 15451300
          HeaderFont.Charset = DEFAULT_CHARSET
          HeaderFont.Color = clBlack
          HeaderFont.Height = -11
          HeaderFont.Name = 'MS Sans Serif'
          HeaderFont.Style = [fsBold]
          HideSelectionColor = 15451300
          HideSelectionTextColor = clBlack
          HighlightColor = 12937777
          HighlightTextColor = clWhite
          OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
          OptionsView = [edgoAutoWidth, edgoBandHeaderWidth, edgoIndicator, edgoInvertSelect, edgoUseBitmap]
          PreviewFont.Charset = DEFAULT_CHARSET
          PreviewFont.Color = clBlue
          PreviewFont.Height = -11
          PreviewFont.Name = 'MS Sans Serif'
          PreviewFont.Style = []
          RowFooterColor = 14811135
          RowFooterTextColor = clBlack
          ShowRowFooter = True
          object dxDBGridOrdersCustomer: TdxDBGridLookupColumn
            Width = 252
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Customer'
            SummaryFooterType = cstCount
            SummaryFooterField = 'CustomerID'
          end
          object dxDBGridOrdersPurchaseDate: TdxDBGridDateColumn
            Width = 153
            BandIndex = 0
            RowIndex = 0
            FieldName = 'PurchaseDate'
            SummaryFooterType = cstMax
            SummaryFooterField = 'PurchaseDate'
          end
          object dxDBGridOrdersPaymentType: TdxDBGridImageColumn
            Alignment = taLeftJustify
            MinWidth = 16
            Width = 108
            BandIndex = 0
            RowIndex = 0
            FieldName = 'PaymentType'
            Descriptions.Strings = (
              'Cash'
              'Visa Card'
              'Master Card'
              'American Express')
            Images = ConvertGrid3MasterDetailDemoDataDM.PaymentTypeImages
            ImageIndexes.Strings = (
              '0'
              '1'
              '2'
              '3')
            ShowDescription = True
            Values.Strings = (
              'Cash'
              'Visa'
              'Master'
              'AmEx')
          end
          object dxDBGridOrdersQuantity: TdxDBGridSpinColumn
            Width = 83
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Quantity'
          end
          object dxDBGridOrdersPaymentAmount: TdxDBGridCalcColumn
            Width = 107
            BandIndex = 0
            RowIndex = 0
            FieldName = 'PaymentAmount'
            SummaryFooterType = cstSum
            SummaryFooterField = 'PaymentAmount'
          end
        end
      end
    end
    object tsGrid4Mode: TTabSheet
      Caption = 'tsGrid4Mode'
      ImageIndex = 1
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 877
        Height = 32
        Align = alTop
        BevelOuter = bvLowered
        Caption = 'Developer Express QuantumGrid 5 (output)'
        Color = 4707838
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
      end
      object cxGrid1: TcxGrid
        Left = 0
        Top = 32
        Width = 877
        Height = 471
        Align = alClient
        TabOrder = 1
        LookAndFeel.Kind = lfStandard
        object cxGrid1DBBandedTableView1: TcxGridDBBandedTableView
          DataController.DataSource = ConvertGrid3MasterDetailDemoDataDM.dsCars
          DataController.Filter.MaxValueListCount = 1000
          DataController.Filter.Active = True
          DataController.Filter.Criteria = {00000000}
          DataController.KeyFieldNames = 'ID'
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <
            item
              Kind = skMax
              FieldName = 'HP'
              Column = cxGrid1DBBandedTableView1HP