columnssharedemomain.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

object ColumnsShareDemoMainForm: TColumnsShareDemoMainForm
  Left = 28
  Top = 26
  Width = 985
  Height = 654
  Caption = 'ExpressQuantumGrid Columns Share Demo'
  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 = 977
    Height = 20
    Align = alTop
    AutoSize = False
    Caption = 
      'This demo shows the possibility to edit data in several columns ' +
      'via the same editor. Click "About this demo" for more informatio' +
      'n.'
    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 = 581
    Width = 977
    Height = 19
    AutoHint = True
    Panels = <>
    ParentShowHint = False
    ShowHint = True
    SimplePanel = True
  end
  object Grid: TcxGrid
    Left = 0
    Top = 20
    Width = 977
    Height = 561
    Align = alClient
    TabOrder = 1
    RootLevelOptions.DetailTabsPosition = dtpTop
    RootLevelStyles.Tab = ColumnsShareDemoDataDM.cxStyle2
    RootLevelStyles.TabsBackground = ColumnsShareDemoDataDM.cxStyle1
    object tvProjects: TcxGridDBTableView
      DataController.DataSource = ColumnsShareDemoDataDM.dsProjects
      DataController.KeyFieldNames = 'ID'
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      NavigatorButtons.ConfirmDelete = False
      OptionsView.ColumnAutoWidth = True
      OptionsView.Indicator = True
      Styles.StyleSheet = ColumnsShareDemoDataDM.GridTableViewStyleSheetDevExpress
      object tvProjectsNAME: TcxGridDBColumn
        Caption = 'Name'
        DataBinding.FieldName = 'NAME'
      end
      object tvProjectsMANAGERID: TcxGridDBColumn
        Caption = 'Manager'
        DataBinding.FieldName = 'MANAGERID'
        RepositoryItem = eriLookupComboUsers
      end
    end
    object tvItems: TcxGridDBTableView
      DataController.DataSource = ColumnsShareDemoDataDM.dsItems
      DataController.KeyFieldNames = 'ID'
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      NavigatorButtons.ConfirmDelete = False
      OptionsView.CellAutoHeight = True
      OptionsView.Indicator = True
      Preview.Column = tvItemsDESCRIPTION
      Preview.Visible = True
      Styles.StyleSheet = ColumnsShareDemoDataDM.GridTableViewStyleSheetDevExpress
      object tvItemsNAME: TcxGridDBColumn
        Caption = 'Name'
        DataBinding.FieldName = 'NAME'
        SortOrder = soAscending
      end
      object tvItemsTYPE: TcxGridDBColumn
        Caption = 'Type'
        DataBinding.FieldName = 'TYPE'
        PropertiesClassName = 'TcxImageComboBoxProperties'
        Properties.Images = ColumnsShareDemoDataDM.imStat
        Properties.Items = <
          item
            Description = 'Bug'
            ImageIndex = 2
            Value = False
          end
          item
            Description = 'Request'
            ImageIndex = 3
            Value = True
          end>
        Properties.LargeImages = ColumnsShareDemoDataDM.imStat
        MinWidth = 50
      end
      object tvItemsPROJECTID: TcxGridDBColumn
        Caption = 'Project'
        DataBinding.FieldName = 'PROJECTID'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.KeyFieldNames = 'ID'
        Properties.ListColumns = <
          item
            FieldName = 'NAME'
          end>
        Properties.ListOptions.GridLines = glNone
        Properties.ListOptions.ShowHeader = False
        Properties.ListSource = ColumnsShareDemoDataDM.dsProjects
      end
      object tvItemsPRIORITY: TcxGridDBColumn
        Caption = 'Priority'
        DataBinding.FieldName = 'PRIORITY'
        PropertiesClassName = 'TcxImageComboBoxProperties'
        Properties.Alignment.Horz = taLeftJustify
        Properties.Images = ColumnsShareDemoDataDM.imStat
        Properties.Items = <
          item
            Description = 'Low'
            ImageIndex = 0
            Value = 1
          end
          item
            Description = 'Normal'
            Value = 2
          end
          item
            Description = 'High'
            ImageIndex = 1
            Value = 3
          end>
        MinWidth = 50
      end
      object tvItemsSTATUS: TcxGridDBColumn
        Caption = 'Status'
        DataBinding.FieldName = 'STATUS'
        PropertiesClassName = 'TcxImageComboBoxProperties'
        Properties.Images = ColumnsShareDemoDataDM.imStat
        Properties.Items = <
          item
            Description = 'New'
            ImageIndex = 4
            Value = 1
          end
          item
            Description = 'Postponed'
            ImageIndex = 5
            Value = 2
          end
          item
            Description = 'Fixed'
            ImageIndex = 6
            Value = 3
          end
          item
            Description = 'Rejected'
            ImageIndex = 7
            Value = 4
          end>
      end
      object tvItemsCREATORID: TcxGridDBColumn
        Caption = 'Creator'
        DataBinding.FieldName = 'CREATORID'
        RepositoryItem = eriLookupComboUsers
      end
      object tvItemsCREATEDDATE: TcxGridDBColumn
        Caption = 'CreateDate'
        DataBinding.FieldName = 'CREATEDDATE'
      end
      object tvItemsOWNERID: TcxGridDBColumn
        Caption = 'Owner'
        DataBinding.FieldName = 'OWNERID'
        RepositoryItem = eriLookupComboUsers
      end
      object tvItemsLASTMODIFIEDDATE: TcxGridDBColumn
        Caption = 'LastModifiedDate'
        DataBinding.FieldName = 'LASTMODIFIEDDATE'
      end
      object tvItemsFIXEDDATE: TcxGridDBColumn
        Caption = 'FixedDate'
        DataBinding.FieldName = 'FIXEDDATE'
      end
      object tvItemsDESCRIPTION: TcxGridDBColumn
        Caption = 'Description'
        DataBinding.FieldName = 'DESCRIPTION'
      end
    end
    object cvUsers: TcxGridDBCardView
      DataController.DataSource = ColumnsShareDemoDataDM.dsUsers
      DataController.KeyFieldNames = 'ID'
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      NavigatorButtons.ConfirmDelete = False
      OptionsView.SeparatorColor = 12937777
      Styles.StyleSheet = ColumnsShareDemoDataDM.GridCardViewStyleSheetDevExpress
      object cvUsersFNAME: TcxGridDBCardViewRow
        Caption = 'First Name'
        DataBinding.FieldName = 'FNAME'
      end
      object cvUsersMNAME: TcxGridDBCardViewRow
        Caption = 'Midle Name'
        DataBinding.FieldName = 'MNAME'
      end
      object cvUsersLNAME: TcxGridDBCardViewRow
        Caption = 'Last Name'
        DataBinding.FieldName = 'LNAME'
      end
      object cvUsersDepartment: TcxGridDBCardViewRow
        DataBinding.FieldName = 'Department'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.ListColumns = <>
        Properties.ListFieldIndex = -1
        Properties.ListOptions.GridLines = glNone
        Properties.ListOptions.ShowHeader = False
      end
      object cvUsersCOUNTRY: TcxGridDBCardViewRow
        Caption = 'Country'
        DataBinding.FieldName = 'COUNTRY'
      end
      object cvUsersPOSTALCODE: TcxGridDBCardViewRow
        Caption = 'PostalCode'
        DataBinding.FieldName = 'POSTALCODE'
      end
      object cvUsersCITY: TcxGridDBCardViewRow
        Caption = 'City'
        DataBinding.FieldName = 'CITY'
      end
      object cvUsersADDRESS: TcxGridDBCardViewRow
        Caption = 'Address'
        DataBinding.FieldName = 'ADDRESS'
      end
      object cvUsersPHONE: TcxGridDBCardViewRow
        Caption = 'Phone'