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