columnssimpledemomain.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

object ColumnsSimpleDemoMainForm: TColumnsSimpleDemoMainForm
  Left = 34
  Top = 41
  Width = 964
  Height = 633
  Caption = 'ExpressQuantumGrid ColumnSimpleDemo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = mmMain
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object lbDescription: TLabel
    Left = 0
    Top = 0
    Width = 956
    Height = 25
    Align = alTop
    AutoSize = False
    Caption = 
      'This demo shows various column editors. Click '#39'About this demo'#39' ' +
      'for more information.'
    Color = 12937777
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    WordWrap = True
  end
  object sbMain: TStatusBar
    Left = 0
    Top = 560
    Width = 956
    Height = 19
    AutoHint = True
    Panels = <>
    ParentShowHint = False
    ShowHint = True
    SimplePanel = True
  end
  object Grid: TcxGrid
    Left = 0
    Top = 25
    Width = 956
    Height = 535
    Align = alClient
    TabOrder = 1
    OnFocusedViewChanged = GridFocusedViewChanged
    object tvCustomers: TcxGridDBTableView
      DataController.DataSource = ColumnsSimpleDemoDataDM.dsCustomers
      DataController.KeyFieldNames = 'ID'
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      NavigatorButtons.ConfirmDelete = False
      OptionsView.HeaderAutoHeight = True
      OptionsView.Indicator = True
      Styles.StyleSheet = ColumnsSimpleDemoDataDM.GridTableViewStyleSheetDevExpress
      object tvCustomersCompany: TcxGridDBColumn
        Caption = 'Company (TextEdit)'
        DataBinding.FieldName = 'Company'
      end
      object tvCustomersState: TcxGridDBColumn
        Caption = 'State (MRUEdit)'
        DataBinding.FieldName = 'State'
        PropertiesClassName = 'TcxMRUEditProperties'
        Properties.LookupItems.Strings = (
          'VA'
          'NY'
          'IL'
          'GA'
          'CA'
          'OK'
          'OH'
          'CT'
          'MI')
        Properties.OnButtonClick = tvCustomersStatePropertiesButtonClick
      end
      object tvCustomersCity: TcxGridDBColumn
        Caption = 'City (ButtonEdit)'
        DataBinding.FieldName = 'City'
        PropertiesClassName = 'TcxButtonEditProperties'
        Properties.Buttons = <
          item
            Default = True
          end
          item
            Kind = bkEllipsis
          end>
        Properties.OnButtonClick = tvCustomersCityPropertiesButtonClick
      end
      object tvCustomersPrefix: TcxGridDBColumn
        Caption = 'Prefix (ComboBox)'
        DataBinding.FieldName = 'Prefix'
        PropertiesClassName = 'TcxComboBoxProperties'
        Properties.DropDownListStyle = lsFixedList
        Properties.Items.Strings = (
          'Ms.'
          'Mr.'
          'Mrs.')
      end
      object tvCustomersFirstName: TcxGridDBColumn
        Caption = 'FirstName (TextEdit)'
        DataBinding.FieldName = 'FirstName'
      end
      object tvCustomersLastName: TcxGridDBColumn
        Caption = 'LastName (TextEdit)'
        DataBinding.FieldName = 'LastName'
      end
      object tvCustomersCustomer: TcxGridDBColumn
        Caption = 'Customer (CheckBox)'
        DataBinding.FieldName = 'Customer'
        PropertiesClassName = 'TcxCheckBoxProperties'
        Properties.ValueChecked = 'Y'
        Properties.ValueUnchecked = 'N'
      end
      object tvCustomersZipCode: TcxGridDBColumn
        Caption = 'ZipCode (MaskEdit)'
        DataBinding.FieldName = 'ZipCode'
        PropertiesClassName = 'TcxMaskEditProperties'
        Properties.MaskKind = emkRegExprEx
        Properties.EditMask = '\d\d\d\d\d - \d\d\d\d'
      end
      object tvCustomersAddress: TcxGridDBColumn
        Caption = 'Address (TextEdit)'
        DataBinding.FieldName = 'Address'
      end
      object tvCustomersFaxPhone: TcxGridDBColumn
        Caption = 'FaxPhone (MaskEdit)'
        DataBinding.FieldName = 'FaxPhone'
        PropertiesClassName = 'TcxMaskEditProperties'
        Properties.MaskKind = emkRegExprEx
        Properties.EditMask = '(\(\d\d\d\))? \d(\d\d?)? - \d\d - \d\d'
      end
    end
    object tvOrders: TcxGridDBTableView
      DataController.DataSource = ColumnsSimpleDemoDataDM.dsOrders
      DataController.DetailKeyFieldNames = 'CustomerID'
      DataController.KeyFieldNames = 'ID'
      DataController.MasterKeyFieldNames = 'ID'
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      NavigatorButtons.ConfirmDelete = False
      OptionsView.HeaderAutoHeight = True
      OptionsView.Indicator = True
      Styles.StyleSheet = ColumnsSimpleDemoDataDM.GridTableViewStyleSheetDevExpress
      object tvOrdersProductID: TcxGridDBColumn
        Caption = 'Car (LookupComboBox)'
        DataBinding.FieldName = 'ProductID'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.DropDownListStyle = lsFixedList
        Properties.KeyFieldNames = 'ID'
        Properties.ListColumns = <
          item
            FieldName = 'Car'
          end>
        Properties.ListOptions.GridLines = glNone
        Properties.ListOptions.ShowHeader = False
        Properties.ListSource = ColumnsSimpleDemoDataDM.dsCars
        Width = 250
      end
      object tvOrdersCarInfo: TcxGridDBColumn
        Caption = 'CarInfo (PopupEdit)'
        PropertiesClassName = 'TcxPopupEditProperties'
        Properties.PopupControl = ColumnSimpleDemoCarsForm.pnlCarInfo
        Properties.OnCloseUp = tvOrdersCarInfoPropertiesCloseUp
        Properties.OnInitPopup = tvOrdersCarInfoPropertiesInitPopup
        Options.Filtering = False
        Options.Grouping = False
        Options.Sorting = False
        Width = 90
      end
      object tvOrdersPurchaseDate: TcxGridDBColumn
        Caption = 'PurchaseDate (DateEdit)'
        DataBinding.FieldName = 'PurchaseDate'
        Width = 120
      end
      object tvOrdersTime: TcxGridDBColumn
        Caption = 'Time (TimeEdit)'
        DataBinding.FieldName = 'Time'
        PropertiesClassName = 'TcxTimeEditProperties'
        Properties.AssignedValues.MinValue = True
        Width = 100
      end
      object tvOrdersPaymentType: TcxGridDBColumn
        Caption = 'PaymentType (ImageComboBox)'
        DataBinding.FieldName = 'PaymentType'
        PropertiesClassName = 'TcxImageComboBoxProperties'
        Properties.Images = ColumnsSimpleDemoDataDM.PaymentTypeImages
        Properties.Items = <
          item
            Description = 'American Express'
            ImageIndex = 3
            Value = 'AmEx'
          end
          item
            Description = 'Master Card'
            ImageIndex = 2
            Value = 'Master'
          end
          item
            Description = 'Visa Card'
            ImageIndex = 1
            Value = 'Visa'
          end
          item
            Description = 'Cash'
            ImageIndex = 0
            Value = 'Cash'
          end>
      end
      object tvOrdersQuantity: TcxGridDBColumn
        Caption = 'Quantity (SpinEdit)'
        DataBinding.FieldName = 'Quantity'
        PropertiesClassName = 'TcxSpinEditProperties'
        Width = 100
      end
      object tvOrdersPaymentAmount: TcxGridDBColumn
        Caption = 'PaymentAmount (CalcEdit)'
        DataBinding.FieldName = 'PaymentAmount'
        PropertiesClassName = 'TcxCalcEditProperties'
        Properties.Alignment.Horz = taRightJustify
      end
      object tvOrdersDescription: TcxGridDBColumn
        Caption = 'Description (BlobEdit)'
        DataBinding.FieldName = 'Description'
        PropertiesClassName = 'TcxBlobEditProperties'
        Properties.BlobEditKind = bekMemo
      end
    end
    object lvCustomers: TcxGridLevel
      GridView = tvCustomers
      object lvOrders: TcxGridLevel
        GridView = tvOrders
      end
    end
  end
  object mmMain: TMainMenu
    Left = 504
    Top = 24
    object miFile: TMenuItem
      Caption = '&File'
      object miExit: TMenuItem
        Caption = 'E&xit'
        Hint = 'Press to quit the demo-program'
        ShortCut = 32856
        OnClick = miExitClick
      end
    end
    object miOptions: TMenuItem
      Caption = 'Options'
      object miShowEditButtons: TMenuItem
        Caption = 'Show Edit Buttons'
        object miEditButtonsNever: TMenuItem
          Caption = 'Never'
          Checked = True
          Hint = 
            'The editor buttons are displayed only for the focused column in ' +
            'a table view.'
          RadioItem = True
          OnClick = miEditButtonsClick
        end
        object miEditButtonsForFocusedRecord: TMenuItem
          Tag = 1
          Caption = 'For Focused Record'
          Hint = 'The editor buttons are visible for the focused record.'
          RadioItem = True
          OnClick = miEditButtonsClick
        end
        object miEditButtonsAlways: TMenuItem
          Tag = 2
          Caption = 'Always'
          Hint = 'The editor buttons are always visible within the current view'
          RadioItem = True
          OnClick = miEditButtonsClick
        end
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object miOptionsSelection: TMenuItem
        Caption = 'Options Selection'
        object miCellSelect: TMenuItem
          Caption = 'Cell Select'
          Hint = 
            'Determines whether individual cells are selected within a view i' +
            'nstead of whole rows.  '
          OnClick = miCellSelectClick
        end
        object miHideFocusRect: TMenuItem
          Caption = 'Hide Focus Rect'
          Hint = 
            'Determines whether the focus rectangle is displayed around the f' +
            'ocused record within a view.'
          OnClick = miHideFocusRectClick
        end
        object miHideSelection: TMenuItem
          Caption = 'Hide Selection'
          Hint = 
            'Determines whether the selection mark persists within a view whe' +
            'n focus leaves the grid control.'
          OnClick = miHideSelectionClick
        end
        object miInvertSelect: TMenuItem
          Caption = 'Invert Select'
          Hint = 
            'Determines whether the selection mark highlights a single cell w' +
            'ithin the focused row or the whole focused row.'
          OnClick = miInvertSelectClick
        end
        object miMultiSelect: TMenuItem
          Caption = 'Multi Select'
          Hint = 
            'Determines whether the multiple rows can be selected within a vi' +
            'ew.'
          OnClick = miMultiSelectClick
        end
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object miLookFeel: TMenuItem
        Caption = '&Look&&Feel'
        object miKind: TMenuItem
          Caption = '&Kind'
          object miFlat: TMenuItem
            Caption = '&Flat'
            Hint = 
              'Setting this option changes the grid view appearance to Flat sty' +
              'le'
            RadioItem = True
            OnClick = miLookAndFeelKindClick
          end
          object miStandard: TMenuItem
            Caption = '&Standard'
            Hint = 
              'Setting this option changes the grid view appearance to Standard' +
              ' style'
            RadioItem = True
            OnClick = miLookAndFeelKindClick
          end
          object miUltraFlat: TMenuItem
            Caption = '&Ultra Flat'
            Checked = True
            Hint = 
              'Setting this option changes the grid view appearance to Ultra Fl' +
              'at style'
            RadioItem = True
            OnClick = miLookAndFeelKindClick
          end
          object miOffice11: TMenuItem
            Tag = 3
            Caption = '&Office11'
            Hint = 
              'Setting this option changes the grid view appearance to Office11' +
              ' style'
            RadioItem = True
            OnClick = miLookAndFeelKindClick
          end
        end
        object miNativeStyle: TMenuItem
          Caption = '&Native Style'
          Checked = True
          Hint = 
            'Setting this option changes the appearance of grid items to the ' +
            'native style'
          OnClick = miNativeStyleClick
        end
      end
    end
    object miAbout: TMenuItem
      Caption = '&About this demo'
      Hint = 'Displays the brief description of the current demo features'
      OnClick = miAboutClick
    end
  end
  object LookAndFeelController: TcxLookAndFeelController
    NativeStyle = True
    Left = 536
    Top = 24
  end
end