dragdropdemodictionaries.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

object DragDropDemoDictionariesForm: TDragDropDemoDictionariesForm
  Left = 330
  Top = 212
  Width = 625
  Height = 429
  Caption = 'Dictionaries'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  PixelsPerInch = 96
  TextHeight = 13
  object lbDesc: TLabel
    Left = 0
    Top = 0
    Width = 617
    Height = 32
    Align = alTop
    Caption = 
      'Drag a row from the grid below and drop it into the current cate' +
      'gory displayed by the main form (see its Help/About for more inf' +
      'ormation).'
    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 SourceGrid: TcxGrid
    Left = 0
    Top = 32
    Width = 617
    Height = 363
    Align = alClient
    TabOrder = 0
    RootLevelOptions.DetailTabsPosition = dtpTop
    RootLevelStyles.Tab = DragDropDemoMainDM.cxStyle1
    RootLevelStyles.TabsBackground = DragDropDemoMainDM.cxStyle39
    object tvCompaniesList: TcxGridDBTableView
      DragMode = dmAutomatic
      DataController.DataSource = DragDropDemoMainDM.dsCompanies
      DataController.Filter.Criteria = {FFFFFFFF0000000000}
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsView.ColumnAutoWidth = True
      OptionsView.GroupByBox = False
      Styles.StyleSheet = DragDropDemoMainDM.GridTableViewStyleSheetDevExpress
      object tvCompaniesListID: TcxGridDBColumn
        Visible = False
        DataBinding.FieldName = 'ID'
      end
      object tvCompaniesListCOMPANYTYPEID: TcxGridDBColumn
        Caption = 'Company Type'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.KeyFieldNames = 'ID'
        Properties.ListColumns = <
          item
            FieldName = 'NAME'
          end>
        Properties.ListOptions.AnsiSort = True
        Properties.ListOptions.CaseInsensitive = True
        Properties.ListSource = DragDropDemoMainDM.dsCompaniesType
        Properties.MaxLength = 50
        Width = 144
        DataBinding.FieldName = 'COMPANYTYPEID'
      end
      object tvCompaniesListCOUNTRYID: TcxGridDBColumn
        Caption = 'Country'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.KeyFieldNames = 'ID'
        Properties.ListColumns = <
          item
            FieldName = 'NAME'
          end>
        Properties.ListOptions.AnsiSort = True
        Properties.ListOptions.CaseInsensitive = True
        Properties.ListSource = DragDropDemoMainDM.dsCountries
        Properties.MaxLength = 60
        Width = 110
        DataBinding.FieldName = 'COUNTRYID'
      end
      object tvCompaniesListCOMPANYNAME: TcxGridDBColumn
        Caption = 'Name'
        Width = 264
        DataBinding.FieldName = 'COMPANYNAME'
      end
      object tvCompaniesListCOMPANYWEBSITE: TcxGridDBColumn
        Caption = 'Company Web Site'
        Visible = False
        DataBinding.FieldName = 'COMPANYWEBSITE'
      end
    end
    object tvFilmsList: TcxGridDBTableView
      DragMode = dmAutomatic
      DataController.DataSource = DragDropDemoMainDM.dsFilmsDict
      DataController.Filter.Criteria = {FFFFFFFF0000000000}
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsView.ColumnAutoWidth = True
      OptionsView.GroupByBox = False
      Styles.StyleSheet = DragDropDemoMainDM.GridTableViewStyleSheetDevExpress
      object tvFilmsListID: TcxGridDBColumn
        Visible = False
        DataBinding.FieldName = 'ID'
      end
      object tvFilmsListCAPTION: TcxGridDBColumn
        Caption = 'Caption'
        Width = 165
        DataBinding.FieldName = 'CAPTION'
      end
      object tvFilmsListYEAR: TcxGridDBColumn
        Caption = 'Year'
        Width = 39
        DataBinding.FieldName = 'YEAR'
      end
      object tvFilmsListTAGLINE: TcxGridDBColumn
        Caption = 'Tagline'
        Width = 194
        DataBinding.FieldName = 'TAGLINE'
      end
      object tvFilmsListPLOTOUTLINE: TcxGridDBColumn
        Caption = 'Plot Outline'
        PropertiesClassName = 'TcxBlobEditProperties'
        Properties.BlobEditKind = bekMemo
        Width = 41
        DataBinding.FieldName = 'PLOTOUTLINE'
      end
      object tvFilmsListRUNTIME: TcxGridDBColumn
        Caption = 'Runtime'
        Width = 31
        DataBinding.FieldName = 'RUNTIME'
      end
      object tvFilmsListCOLOR: TcxGridDBColumn
        Caption = 'Color'
        PropertiesClassName = 'TcxCheckBoxProperties'
        Properties.DisplayUnchecked = 'False'
        Width = 48
        DataBinding.FieldName = 'COLOR'
      end
      object tvFilmsListPHOTO: TcxGridDBColumn
        Caption = 'Photo'
        Visible = False
        DataBinding.FieldName = 'PHOTO'
      end
      object tvFilmsListICON: TcxGridDBColumn
        Caption = 'Icon'
        Visible = False
        DataBinding.FieldName = 'ICON'
      end
      object tvFilmsListWEBSITE: TcxGridDBColumn
        Caption = 'Website'
        Visible = False
        Width = 87
        DataBinding.FieldName = 'WEBSITE'
      end
    end
    object cvPersonsList: TcxGridDBCardView
      DragMode = dmAutomatic
      DataController.DataSource = DragDropDemoMainDM.dsPersons
      DataController.Filter.Criteria = {FFFFFFFF0000000000}
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      Styles.StyleSheet = DragDropDemoMainDM.GridCardViewStyleSheetDevExpress
      object cvPersonsListID: TcxGridDBCardViewRow
        Visible = False
        DataBinding.FieldName = 'ID'
      end
      object cvPersonsListFIRSTNAME: TcxGridDBCardViewRow
        Caption = 'First Name'
        DataBinding.FieldName = 'FIRSTNAME'
      end
      object cvPersonsListSECONDNAME: TcxGridDBCardViewRow
        Caption = 'Second Name'
        DataBinding.FieldName = 'SECONDNAME'
      end
      object cvPersonsListGENDER: TcxGridDBCardViewRow
        Caption = 'Gender'
        PropertiesClassName = 'TcxImageComboBoxProperties'
        Properties.Items = <
          item
            Description = 'Female'
            Value = False
          end
          item
            Description = 'Male'
            Value = True
          end>
        DataBinding.FieldName = 'GENDER'
      end
      object cvPersonsListBIRTHNAME: TcxGridDBCardViewRow
        Caption = 'Birthname'
        DataBinding.FieldName = 'BIRTHNAME'
      end
      object cvPersonsListDATEOFBIRTH: TcxGridDBCardViewRow
        Caption = 'Date of Birth'
        DataBinding.FieldName = 'DATEOFBIRTH'
      end
      object cvPersonsListBIRTHCOUNTRY: TcxGridDBCardViewRow
        Caption = 'Birth Country'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.KeyFieldNames = 'ID'
        Properties.ListColumns = <
          item
            FieldName = 'NAME'
          end>
        Properties.ListSource = DragDropDemoMainDM.dsCountries
        DataBinding.FieldName = 'BIRTHCOUNTRY'
      end
      object cvPersonsListLOCATIONOFBIRTH: TcxGridDBCardViewRow
        Caption = 'Location of Birth'
        DataBinding.FieldName = 'LOCATIONOFBIRTH'
      end
      object cvPersonsListBIOGRAPHY: TcxGridDBCardViewRow
        Caption = 'Biography'
        PropertiesClassName = 'TcxBlobEditProperties'
        Properties.BlobEditKind = bekMemo
        DataBinding.FieldName = 'BIOGRAPHY'
      end
      object cvPersonsListNICKNAME: TcxGridDBCardViewRow
        Caption = 'Nick Name'
        DataBinding.FieldName = 'NICKNAME'
      end
      object cvPersonsListHOMEPAGE: TcxGridDBCardViewRow
        Visible = False
        DataBinding.FieldName = 'HOMEPAGE'
      end
    end
    object glFilmsList: TcxGridLevel
      Caption = 'Films'
      GridView = tvFilmsList
    end
    object glPersonsList: TcxGridLevel
      Caption = 'Persons'
      GridView = cvPersonsList
    end
    object glCompaniesList: TcxGridLevel
      Caption = 'Companies'
      GridView = tvCompaniesList
    end
  end
end