stylescardviewdemomain.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

object StylesCardViewDemoMainForm: TStylesCardViewDemoMainForm
  Left = 89
  Top = 53
  Width = 915
  Height = 605
  Caption = 'ExpressQuantumGrid StylesCardView Demo'
  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
  PixelsPerInch = 96
  TextHeight = 13
  object lbDescrip: TLabel
    Left = 0
    Top = 0
    Width = 907
    Height = 33
    Align = alTop
    AutoSize = False
    Caption = 
      'Practice using style sheets in a card view. Experiment by changi' +
      'ng the Options View and pressing the Edit User-Defined Style She' +
      'et button below. Click "About this demo" 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 = 532
    Width = 907
    Height = 19
    AutoHint = True
    Panels = <>
    ParentShowHint = False
    ShowHint = True
    SimplePanel = True
  end
  object cxGrid: TcxGrid
    Left = 177
    Top = 33
    Width = 730
    Height = 499
    Align = alClient
    TabOrder = 1
    RootLevelOptions.DetailTabsPosition = dtpTop
    OnActiveTabChanged = cxGridActiveTabChanged
    OnLayoutChanged = cxGridLayoutChanged
    object cvDevExpress: TcxGridDBCardView
      DataController.DataSource = StylesCardViewDemoDataDM.dsPersons
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      NavigatorButtons.ConfirmDelete = False
      OptionsView.CardWidth = 300
      OptionsView.CellAutoHeight = True
      Styles.StyleSheet = StylesCardViewDemoDataDM.cvssDevExpress
      object cvDevExpressFullname: TcxGridDBCardViewRow
        DataBinding.FieldName = 'FullName'
        Kind = rkCaption
      end
      object cvDevExpressID: TcxGridDBCardViewRow
        DataBinding.FieldName = 'ID'
      end
      object cvDevExpressFIRSTNAME: TcxGridDBCardViewRow
        DataBinding.FieldName = 'FIRSTNAME'
      end
      object cvDevExpressSECONDNAME: TcxGridDBCardViewRow
        DataBinding.FieldName = 'SECONDNAME'
      end
      object cvDevExpressGENDER: TcxGridDBCardViewRow
        DataBinding.FieldName = 'GENDER'
        RepositoryItem = StylesCardViewDemoDataDM.edrepGender
      end
      object cvDevExpressBIRTHNAME: TcxGridDBCardViewRow
        DataBinding.FieldName = 'BIRTHNAME'
      end
      object cvDevExpressDATEOFBIRTH: TcxGridDBCardViewRow
        DataBinding.FieldName = 'DATEOFBIRTH'
      end
      object cvDevExpressBIRTHCOUNTRY: TcxGridDBCardViewRow
        DataBinding.FieldName = 'BIRTHCOUNTRY'
        RepositoryItem = StylesCardViewDemoDataDM.edrepCountry
      end
      object cvDevExpressLOCATIONOFBIRTH: TcxGridDBCardViewRow
        DataBinding.FieldName = 'LOCATIONOFBIRTH'
      end
      object cvDevExpressNICKNAME: TcxGridDBCardViewRow
        DataBinding.FieldName = 'NICKNAME'
      end
      object cvDevExpressBIOGRAPHY: TcxGridDBCardViewRow
        DataBinding.FieldName = 'BIOGRAPHY'
        Options.Filtering = False
      end
    end
    object cvSlate: TcxGridDBCardView
      DataController.DataSource = StylesCardViewDemoDataDM.dsPersons
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      NavigatorButtons.ConfirmDelete = False
      OptionsView.CardWidth = 300
      OptionsView.CellAutoHeight = True
      Styles.StyleSheet = StylesCardViewDemoDataDM.cvssSlate
      object cvSlateFullName: TcxGridDBCardViewRow
        DataBinding.FieldName = 'FullName'
        Kind = rkCaption
      end
      object cvSlateID: TcxGridDBCardViewRow
        DataBinding.FieldName = 'ID'
      end
      object cvSlateFIRSTNAME: TcxGridDBCardViewRow
        DataBinding.FieldName = 'FIRSTNAME'
      end
      object cvSlateSECONDNAME: TcxGridDBCardViewRow
        DataBinding.FieldName = 'SECONDNAME'
      end
      object cvSlateGENDER: TcxGridDBCardViewRow
        DataBinding.FieldName = 'GENDER'
        RepositoryItem = StylesCardViewDemoDataDM.edrepGender
      end
      object cvSlateBIRTHNAME: TcxGridDBCardViewRow
        DataBinding.FieldName = 'BIRTHNAME'
      end
      object cvSlateDATEOFBIRTH: TcxGridDBCardViewRow
        DataBinding.FieldName = 'DATEOFBIRTH'
      end
      object cvSlateBIRTHCOUNTRY: TcxGridDBCardViewRow
        DataBinding.FieldName = 'BIRTHCOUNTRY'
        RepositoryItem = StylesCardViewDemoDataDM.edrepCountry
      end
      object cvSlateLOCATIONOFBIRTH: TcxGridDBCardViewRow
        DataBinding.FieldName = 'LOCATIONOFBIRTH'
      end
      object cvSlateBIOGRAPHY: TcxGridDBCardViewRow
        DataBinding.FieldName = 'BIOGRAPHY'
        Options.Filtering = False
      end
      object cvSlateNICKNAME: TcxGridDBCardViewRow
        DataBinding.FieldName = 'NICKNAME'
      end
    end
    object cvHighContrast: TcxGridDBCardView
      DataController.DataSource = StylesCardViewDemoDataDM.dsPersons
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      NavigatorButtons.ConfirmDelete = False
      OptionsView.CardWidth = 300
      OptionsView.CellAutoHeight = True
      Styles.StyleSheet = StylesCardViewDemoDataDM.cvssHighContrast
      object cvHighContrastFullName: TcxGridDBCardViewRow
        DataBinding.FieldName = 'FullName'
        Kind = rkCaption
      end
      object cvHighContrastID: TcxGridDBCardViewRow
        DataBinding.FieldName = 'ID'
      end
      object cvHighContrastFIRSTNAME: TcxGridDBCardViewRow
        DataBinding.FieldName = 'FIRSTNAME'
      end
      object cvHighContrastSECONDNAME: TcxGridDBCardViewRow
        DataBinding.FieldName = 'SECONDNAME'
      end
      object cvHighContrastGENDER: TcxGridDBCardViewRow
        DataBinding.FieldName = 'GENDER'
        RepositoryItem = StylesCardViewDemoDataDM.edrepGender
      end
      object cvHighContrastBIRTHNAME: TcxGridDBCardViewRow
        DataBinding.FieldName = 'BIRTHNAME'
      end
      object cvHighContrastDATEOFBIRTH: TcxGridDBCardViewRow
        DataBinding.FieldName = 'DATEOFBIRTH'
      end
      object cvHighContrastBIRTHCOUNTRY: TcxGridDBCardViewRow
        DataBinding.FieldName = 'BIRTHCOUNTRY'
        RepositoryItem = StylesCardViewDemoDataDM.edrepCountry
      end
      object cvHighContrastLOCATIONOFBIRTH: TcxGridDBCardViewRow
        DataBinding.FieldName = 'LOCATIONOFBIRTH'
      end
      object cvHighContrastBIOGRAPHY: TcxGridDBCardViewRow
        DataBinding.FieldName = 'BIOGRAPHY'
        Options.Filtering = False
      end
      object cvHighContrastNICKNAME: TcxGridDBCardViewRow
        DataBinding.FieldName = 'NICKNAME'
      end
    end
    object cvUserDefined: TcxGridDBCardView
      DataController.DataSource = StylesCardViewDemoDataDM.dsPersons
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      NavigatorButtons.ConfirmDelete = False
      OptionsView.CardWidth = 300
      OptionsView.CellAutoHeight = True
      Styles.StyleSheet = StylesCardViewDemoDataDM.cvssUserDefined
      object cvUserDefinedFullName: TcxGridDBCardViewRow
        DataBinding.FieldName = 'FullName'
        Kind = rkCaption
      end
      object cvUserDefinedID: TcxGridDBCardViewRow
        DataBinding.FieldName = 'ID'
      end
      object cvUserDefinedFIRSTNAME: TcxGridDBCardViewRow
        DataBinding.FieldName = 'FIRSTNAME'
      end
      object cvUserDefinedSECONDNAME: TcxGridDBCardViewRow
        DataBinding.FieldName = 'SECONDNAME'
      end
      object cvUserDefinedGENDER: TcxGridDBCardViewRow
        DataBinding.FieldName = 'GENDER'
        RepositoryItem = StylesCardViewDemoDataDM.edrepGender
      end
      object cvUserDefinedBIRTHNAME: TcxGridDBCardViewRow
        DataBinding.FieldName = 'BIRTHNAME'
      end
      object cvUserDefinedDATEOFBIRTH: TcxGridDBCardViewRow
        DataBinding.FieldName = 'DATEOFBIRTH'
      end
      object cvUserDefinedBIRTHCOUNTRY: TcxGridDBCardViewRow
        DataBinding.FieldName = 'BIRTHCOUNTRY'
        RepositoryItem = StylesCardViewDemoDataDM.edrepCountry
      end
      object cvUserDefinedLOCATIONOFBIRTH: TcxGridDBCardViewRow
        DataBinding.FieldName = 'LOCATIONOFBIRTH'
      end
      object cvUserDefinedBIOGRAPHY: TcxGridDBCardViewRow
        DataBinding.FieldName = 'BIOGRAPHY'
        Options.Filtering = False
      end
      object cvUserDefinedNICKNAME: TcxGridDBCardViewRow
        DataBinding.FieldName = 'NICKNAME'
      end
    end
    object lvDevExpress: TcxGridLevel
      Caption = 'DevExpress'
      GridView = cvDevExpress
    end
    object lvSlate: TcxGridLevel
      Caption = 'Slate'
      GridView = cvSlate
    end
    object lvHighContrast: TcxGridLevel
      Caption = 'High Contrast'
      GridView = cvHighContrast
    end
    object lvUserDefined: TcxGridLevel
      Caption = 'User Defined'
      GridView = cvUserDefined
    end
  end
  object pnlLeft: TPanel
    Left = 0
    Top = 33
    Width = 177
    Height = 499
    Align = alLeft
    BevelOuter = bvNone
    Color = 15451300
    TabOrder = 2
    object GroupBox1: TGroupBox
      Left = 0
      Top = 0
      Width = 177
      Height = 105
      Align = alTop
      Caption = 'Options View'
      TabOrder = 0
      object Label1: TLabel
        Left = 8
        Top = 27
        Width = 53
        Height = 13
        Caption = 'Card Width'
      end
      object Label2: TLabel
        Left = 8
        Top = 51
        Width = 87
        Height = 13
        Caption = 'Card Border Width'
      end
      object spedCardWidth: TcxSpinEdit
        Left = 112
        Top = 23
        Width = 48
        Height = 21
        Properties.MaxValue = 1000
        Properties.OnChange = spedCardWidthPropertiesChange
        Style.Color = 16247513
        TabOrder = 0
        Value = 300
        OnKeyPress = spedCardWidthKeyPress
      end
      object spedCardBorderWidth: TcxSpinEdit
        Left = 112
        Top = 47
        Width = 48
        Height = 21
        Properties.MaxValue = 100
        Properties.OnChange = spedCardBorderWidthPropertiesChange
        Style.Color = 16247513
        Style.Shadow = False
        TabOrder = 1
        Value = 2
      end
      object cbCellAutoHeight: TcxCheckBox
        Left = 10
        Top = 74
        Width = 143
        Height = 21
        AutoSize = False
        Caption = 'Cell Auto Height'
        ParentColor = False
        Properties.OnChange = cbCellAutoHeightPropertiesChange
        State = cbsChecked
        Style.Color = 15451300
        TabOrder = 2
      end
    end
    object Panel2: TPanel
      Left = 0
      Top = 455
      Width = 177
      Height = 44
      Align = alBottom
      BevelOuter = bvNone
      ParentColor = True
      TabOrder = 1
      object btnEdit: TcxButton
        Left = 8
        Top = 8
        Width = 161
        Height = 25
        Caption = 'Edit User Defined StyleSheet...'
        Enabled = False
        TabOrder = 0
        OnClick = btnEditClick
      end
    end
  end
  object mmMain: TMainMenu
    Left = 504
    Top = 8
    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 miLookAndFeel: TMenuItem
        Caption = '&Look&&Feel'
        object KInd1: 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 = 408
    Top = 8
  end
end