columnssharedemomain.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

        DataBinding.FieldName = 'PHONE'
        PropertiesClassName = 'TcxMaskEditProperties'
        Properties.MaskKind = emkRegExprEx
        Properties.EditMask = '(\(\d\d\d\))? \d(\d\d?)? - (\d\d\d? - \d\d|\d\d\d\d)'
      end
      object cvUsersFAX: TcxGridDBCardViewRow
        Caption = 'Fax'
        DataBinding.FieldName = 'FAX'
        PropertiesClassName = 'TcxMaskEditProperties'
        Properties.MaskKind = emkRegExprEx
        Properties.EditMask = '(\(\d\d\d\))? \d(\d\d?)? - (\d\d - \d\d | \d\d\d\d)'
      end
      object cvUsersEMAIL: TcxGridDBCardViewRow
        Caption = 'EMail'
        DataBinding.FieldName = 'EMAIL'
        PropertiesClassName = 'TcxHyperLinkEditProperties'
      end
      object cvUsersHOMEPAGE: TcxGridDBCardViewRow
        Caption = 'HomePage'
        DataBinding.FieldName = 'HOMEPAGE'
        PropertiesClassName = 'TcxHyperLinkEditProperties'
      end
    end
    object tvTeam: TcxGridDBTableView
      DataController.DataSource = ColumnsShareDemoDataDM.dsProjectTeam
      DataController.DetailKeyFieldNames = 'PROJECTID'
      DataController.KeyFieldNames = 'ID'
      DataController.MasterKeyFieldNames = 'ID'
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      NavigatorButtons.ConfirmDelete = False
      OptionsView.ColumnAutoWidth = True
      OptionsView.Indicator = True
      Styles.StyleSheet = ColumnsShareDemoDataDM.GridTableViewStyleSheetDevExpress
      object tvTeamUSERID: TcxGridDBColumn
        Caption = 'Name'
        DataBinding.FieldName = 'USERID'
        RepositoryItem = eriLookupComboUsers
      end
      object tvTeamFUNCTION: TcxGridDBColumn
        Caption = 'Function'
        DataBinding.FieldName = 'FUNCTION'
      end
    end
    object lvItems: TcxGridLevel
      Caption = 'Items'
      GridView = tvItems
    end
    object lvProjects: TcxGridLevel
      Caption = 'Projects'
      GridView = tvProjects
      object lvTeam: TcxGridLevel
        GridView = tvTeam
      end
    end
    object lvUsers: TcxGridLevel
      Caption = 'Users'
      GridView = cvUsers
    end
  end
  object cxGridPopupMenu1: TcxGridPopupMenu
    PopupMenus = <>
    Left = 352
    Top = 8
  end
  object cxGridViewRepository: TcxGridViewRepository
    Left = 392
    Top = 16
    object cxGridViewRepositoryDBTableView: TcxGridDBTableView
      DataController.DataSource = ColumnsShareDemoDataDM.dsUsers
      DataController.KeyFieldNames = 'ID'
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      NavigatorButtons.ConfirmDelete = False
      Styles.StyleSheet = ColumnsShareDemoDataDM.GridTableViewStyleSheetDevExpress
      object cxGridViewRepositoryDBTableViewID: TcxGridDBColumn
        DataBinding.FieldName = 'ID'
        Width = 51
      end
      object cxGridViewRepositoryDBTableViewUserName: TcxGridDBColumn
        DataBinding.FieldName = 'UserName'
      end
      object cxGridViewRepositoryDBTableViewDepartment: TcxGridDBColumn
        DataBinding.FieldName = 'Department'
      end
      object cxGridViewRepositoryDBTableViewCOUNTRY: TcxGridDBColumn
        Caption = 'Country'
        DataBinding.FieldName = 'COUNTRY'
        Width = 69
      end
      object cxGridViewRepositoryDBTableViewPOSTALCODE: TcxGridDBColumn
        Caption = 'Postal Code'
        DataBinding.FieldName = 'POSTALCODE'
        Width = 92
      end
      object cxGridViewRepositoryDBTableViewCITY: TcxGridDBColumn
        Caption = 'City'
        DataBinding.FieldName = 'CITY'
      end
      object cxGridViewRepositoryDBTableViewADDRESS: TcxGridDBColumn
        Caption = 'Address'
        DataBinding.FieldName = 'ADDRESS'
        Width = 158
      end
      object cxGridViewRepositoryDBTableViewPHONE: TcxGridDBColumn
        Caption = 'Phone'
        DataBinding.FieldName = 'PHONE'
        Width = 95
      end
      object cxGridViewRepositoryDBTableViewFAX: TcxGridDBColumn
        Caption = 'Fax'
        DataBinding.FieldName = 'FAX'
        Width = 103
      end
      object cxGridViewRepositoryDBTableViewEMAIL: TcxGridDBColumn
        Caption = 'Email'
        DataBinding.FieldName = 'EMAIL'
        Width = 190
      end
      object cxGridViewRepositoryDBTableViewHOMEPAGE: TcxGridDBColumn
        Caption = 'Homepage'
        DataBinding.FieldName = 'HOMEPAGE'
        Width = 201
      end
    end
  end
  object cxEditRepository: TcxEditRepository
    Left = 360
    Top = 48
    object erExtLookupComboBoxItem: TcxEditRepositoryExtLookupComboBoxItem
      Properties.DropDownSizeable = True
      Properties.View = cxGridViewRepositoryDBTableView
      Properties.KeyFieldNames = 'ID'
      Properties.ListFieldItem = cxGridViewRepositoryDBTableViewUserName
    end
    object eriLookupComboUsers: TcxEditRepositoryLookupComboBoxItem
      Properties.DropDownAutoSize = True
      Properties.KeyFieldNames = 'ID'
      Properties.ListColumns = <
        item
          FieldName = 'UserName'
        end>
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = ColumnsShareDemoDataDM.dsUsers
    end
  end
  object mmMain: TMainMenu
    Left = 504
    Top = 16
    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 miPersonEditor: TMenuItem
        Caption = 'Persons Editor'
        object miLookupEditor: TMenuItem
          Caption = 'Lookup ComboBox Editor'
          Checked = True
          RadioItem = True
          OnClick = miLookupEditorClick
        end
        object miExtLookUpEditor: TMenuItem
          Caption = 'ExtLookup ComboBox Editor'
          RadioItem = True
          OnClick = miExtLookupEditorClick
        end
      end
      object miCustomizePersonsLookupCombobox: TMenuItem
        Caption = '&Customize Persons Lookup Combobox ...'
        Hint = 'These changes will affect all Persons lookup combo boxes'
        OnClick = miCustomizePersonsLookupComboboxClick
      end
      object miSeparator1: TMenuItem
        Caption = '-'
      end
      object miLookFeel: TMenuItem
        Caption = '&Look&&Feel'
        object miKind: TMenuItem
          Caption = '&Kind'
          object miFlat: TMenuItem
            Caption = '&Flat'
            GroupIndex = 2
            Hint = 
              'Setting this option changes the grid view appearance to Flat sty' +
              'le'
            RadioItem = True
            OnClick = miLookAndFeelKindClick
          end
          object miStandard: TMenuItem
            Caption = '&Standard'
            GroupIndex = 2
            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
            GroupIndex = 2
            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'
            GroupIndex = 2
            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 = 528
    Top = 64
  end
end