dragdropdemomain.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

object DragDropDemoMainForm: TDragDropDemoMainForm
  Left = 119
  Top = 100
  Width = 771
  Height = 622
  Caption = 'ExpressQuantumGrid DragDropDemo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = mmMain
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object lbDescrip: TLabel
    Left = 0
    Top = 0
    Width = 763
    Height = 32
    Align = alTop
    Caption = 
      'This demo demonstrates how to copy records into another grid usi' +
      'ng drag/drop. 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 = 549
    Width = 763
    Height = 19
    AutoHint = True
    Panels = <>
    ParentShowHint = False
    ShowHint = True
    SimplePanel = True
  end
  object Grid: TcxGrid
    Left = 0
    Top = 32
    Width = 763
    Height = 517
    Align = alClient
    TabOrder = 1
    RootLevelOptions.DetailTabsPosition = dtpLeft
    RootLevelStyles.Tab = DragDropDemoMainDM.cxStyle1
    RootLevelStyles.TabsBackground = DragDropDemoMainDM.cxStyle39
    RootLevelStyles.OnGetTabStyle = GridRootLevelStylesGetTabStyle
    OnActiveTabChanged = GridActiveTabChanged
    object cvPersons: TcxGridDBCardView
      OnDragDrop = cvPersonsDragDrop
      OnDragOver = cvPersonsDragOver
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = DragDropDemoMainDM.dsFilmsPersons
      DataController.DetailKeyFieldNames = 'FilmID'
      DataController.KeyFieldNames = 'ID'
      DataController.MasterKeyFieldNames = 'ID'
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.DragFocusing = dfDragOver
      OptionsData.Inserting = False
      Styles.StyleSheet = DragDropDemoMainDM.GridCardViewStyleSheetDevExpress
      object cvPersonsName: TcxGridDBCardViewRow
        DataBinding.FieldName = 'Name'
        Kind = rkCaption
      end
      object cvPersonsPersonLineID: TcxGridDBCardViewRow
        Caption = 'Occupation'
        DataBinding.FieldName = 'PersonLineID'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.DropDownAutoSize = True
        Properties.KeyFieldNames = 'ID'
        Properties.ListColumns = <
          item
            FieldName = 'NAME'
          end>
        Properties.ListOptions.GridLines = glNone
        Properties.ListOptions.ShowHeader = False
        Properties.ListSource = DragDropDemoMainDM.dsPersonsLine
      end
      object cvPersonsFIRSTNAME: TcxGridDBCardViewRow
        Caption = 'First Name'
        DataBinding.FieldName = 'FIRSTNAME'
        Options.Editing = False
      end
      object cvPersonsSECONDNAME: TcxGridDBCardViewRow
        Caption = 'Second Name'
        DataBinding.FieldName = 'SECONDNAME'
        Options.Editing = False
      end
      object cvPersonsNICKNAME: TcxGridDBCardViewRow
        Caption = 'Nick Name'
        DataBinding.FieldName = 'NICKNAME'
        Options.Editing = False
      end
      object cvPersonsBIRTHNAME: TcxGridDBCardViewRow
        Caption = 'Birth Name'
        DataBinding.FieldName = 'BIRTHNAME'
        Options.Editing = False
      end
      object cvPersonsDATEOFBIRTH: TcxGridDBCardViewRow
        Caption = 'Date of Birth'
        DataBinding.FieldName = 'DATEOFBIRTH'
        Options.Editing = False
      end
      object cvPersonsLOCATIONOFBIRTH: TcxGridDBCardViewRow
        Caption = 'Location of Birth'
        DataBinding.FieldName = 'LOCATIONOFBIRTH'
        Options.Editing = False
      end
      object cvPersonsBIOGRAPHY: TcxGridDBCardViewRow
        Caption = 'Biography'
        DataBinding.FieldName = 'BIOGRAPHY'
        PropertiesClassName = 'TcxBlobEditProperties'
        Properties.BlobEditKind = bekMemo
        Options.Editing = False
      end
      object cvPersonsID: TcxGridDBCardViewRow
        DataBinding.FieldName = 'ID'
        Visible = False
      end
      object cvPersonsFilmID: TcxGridDBCardViewRow
        DataBinding.FieldName = 'FilmID'
        Visible = False
      end
      object cvPersonsBIRTHCOUNTRY: TcxGridDBCardViewRow
        Caption = 'Birth Country'
        DataBinding.FieldName = 'BIRTHCOUNTRY'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.KeyFieldNames = 'ID'
        Properties.ListColumns = <
          item
            FieldName = 'NAME'
          end>
        Properties.ListSource = DragDropDemoMainDM.dsCountries
        Visible = False
      end
      object cvPersonsGender: TcxGridDBCardViewRow
        DataBinding.FieldName = 'Gender'
        PropertiesClassName = 'TcxImageComboBoxProperties'
        Properties.Items = <
          item
            Description = 'Female'
            Value = False
          end
          item
            Description = 'Male'
            Value = True
          end>
        Options.Editing = False
      end
    end
    object tvCompanies: TcxGridDBTableView
      OnDragDrop = tvCompaniesDragDrop
      OnDragOver = tvCompaniesDragOver
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = DragDropDemoMainDM.dsFilmsCompanies
      DataController.DetailKeyFieldNames = 'FilmID'
      DataController.KeyFieldNames = 'ID'
      DataController.MasterKeyFieldNames = 'ID'
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.DragFocusing = dfDragOver
      OptionsData.Inserting = False
      OptionsView.ColumnAutoWidth = True
      OptionsView.Indicator = True
      Styles.StyleSheet = DragDropDemoMainDM.GridTableViewStyleSheetDevExpress
      object tvCompaniesID: TcxGridDBColumn
        DataBinding.FieldName = 'ID'
        Visible = False
      end
      object tvCompaniesFilmID: TcxGridDBColumn
        DataBinding.FieldName = 'FilmID'
        Visible = False
      end
      object tvCompaniesCompanyID: TcxGridDBColumn
        DataBinding.FieldName = 'CompanyID'
        Visible = False
      end
      object tvCompaniesCompanyName: TcxGridDBColumn
        Caption = 'Company Name'
        DataBinding.FieldName = 'CompanyName'
        Options.Editing = False
      end
    end
    object cvPhotos: TcxGridDBCardView
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = DragDropDemoMainDM.dsFilmsScreens
      DataController.DetailKeyFieldNames = 'FILMID'
      DataController.KeyFieldNames = 'ID'
      DataController.MasterKeyFieldNames = 'ID'
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsView.CellAutoHeight = True
      Styles.StyleSheet = DragDropDemoMainDM.GridCardViewStyleSheetDevExpress
      object cvPhotosID: TcxGridDBCardViewRow
        DataBinding.FieldName = 'ID'
        Visible = False
      end
      object cvPhotosFILMID: TcxGridDBCardViewRow
        DataBinding.FieldName = 'FILMID'
        Visible = False
      end
      object cvPhotosSCREEN: TcxGridDBCardViewRow
        DataBinding.FieldName = 'SCREEN'
        PropertiesClassName = 'TcxImageProperties'
        Properties.GraphicClassName = 'TJPEGImage'
        Properties.Stretch = True
        Options.ShowCaption = False
      end
      object cvPhotosICON: TcxGridDBCardViewRow
        DataBinding.FieldName = 'ICON'
        Visible = False
      end
    end
    object bvFilms: TcxGridDBBandedTableView
      OnDragDrop = bvFilmsDragDrop
      OnDragOver = bvFilmsDragOver
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = DragDropDemoMainDM.dsFilms
      DataController.KeyFieldNames = 'ID'
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.DragFocusing = dfDragOver
      OptionsData.Inserting = False
      OptionsView.CellAutoHeight = True
      OptionsView.ColumnAutoWidth = True
      OptionsView.GroupByBox = False
      OptionsView.Header = False
      OptionsView.Indicator = True
      Preview.Column = bvFilmsCAPTION
      Preview.Place = ppTop
      Preview.Visible = True
      Styles.StyleSheet = DragDropDemoMainDM.GridBandedTableViewStyleSheetDevExpress
      Bands = <
        item
          Caption = 'Film'
          FixedKind = fkLeft
          Width = 57
        end
        item
          Caption = 'Info'
          Width = 447
        end>
      object bvFilmsCAPTION: TcxGridDBBandedColumn
        DataBinding.FieldName = 'CAPTION'
        Width = 404
        Position.BandIndex = 0
        Position.ColIndex = 0
        Position.RowIndex = 0
      end
      object bvFilmsPHOTO: TcxGridDBBandedColumn
        DataBinding.FieldName = 'PHOTO'
        PropertiesClassName = 'TcxImageProperties'
        Properties.GraphicClassName = 'TJPEGImage'
        Properties.Stretch = True
        Width = 50
        Position.BandIndex = 0
        Position.ColIndex = 0
        Position.LineCount = 5
        Position.RowIndex = 1
      end
      object bvFilmsYEAR: TcxGridDBBandedColumn
        DataBinding.FieldName = 'YEAR'
        Position.BandIndex = 1
        Position.ColIndex = 0
        Position.RowIndex = 0
      end
      object bvFilmsRUNTIME: TcxGridDBBandedColumn
        DataBinding.FieldName = 'RUNTIME'
        Position.BandIndex = 1
        Position.ColIndex = 1
        Position.RowIndex = 0
      end
      object bvFilmsPLOTOUTLINE: TcxGridDBBandedColumn
        DataBinding.FieldName = 'PLOTOUTLINE'
        PropertiesClassName = 'TcxMemoProperties'
        Properties.MaxLength = 200
        Properties.ScrollBars = ssVertical
        Position.BandIndex = 1
        Position.ColIndex = 0
        Position.LineCount = 3
        Position.RowIndex = 1
      end
      object bvFilmsWEBSITE: TcxGridDBBandedColumn
        DataBinding.FieldName = 'WEBSITE'
        PropertiesClassName = 'TcxHyperLinkEditProperties'
        Position.BandIndex = 1
        Position.ColIndex = 0
        Position.RowIndex = 2
      end
    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 miShowDictionaries: TMenuItem
        Caption = 'Show Dictionaries'
        Hint = 'Shows the form on which the source grid is located'
        OnClick = miShowDictionariesClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object miGenreTabPosition: TMenuItem
        Caption = 'Genre Tab &Position'
        object miTabPositionLeft: TMenuItem
          Tag = 1
          Caption = '&Left'
          Checked = True
          GroupIndex = 2
          Hint = 'Moves the tab panel to the left of the grid'
          RadioItem = True
          OnClick = miTabPositionClick
        end
        object miTabPositionTop: TMenuItem
          Tag = 2
          Caption = '&Top'
          GroupIndex = 2
          Hint = 'Moves the tab panel to the top of the grid'
          RadioItem = True
          OnClick = miTabPositionClick
        end
        object miTabPositionNone: TMenuItem
          Caption = '&None'
          GroupIndex = 2
          Hint = 'Hides the tab panel'
          RadioItem = True
          OnClick = miTabPositionClick
        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 = 472
    Top = 16
  end
end