david
3b29f73ece
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@8 05c56307-c608-d34a-929d-697000501d7a
429 lines
14 KiB
Plaintext
429 lines
14 KiB
Plaintext
object StylesCardViewDemoMainForm: TStylesCardViewDemoMainForm
|
|
Left = 270
|
|
Top = 120
|
|
Width = 824
|
|
Height = 630
|
|
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 = 816
|
|
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 '#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 = 557
|
|
Width = 816
|
|
Height = 19
|
|
AutoHint = True
|
|
Panels = <>
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
SimplePanel = True
|
|
end
|
|
object cxGrid: TcxGrid
|
|
Left = 177
|
|
Top = 33
|
|
Width = 639
|
|
Height = 524
|
|
Align = alClient
|
|
TabOrder = 1
|
|
RootLevelOptions.DetailTabsPosition = dtpTop
|
|
OnActiveTabChanged = cxGridActiveTabChanged
|
|
OnLayoutChanged = cxGridLayoutChanged
|
|
object cvDevExpress: TcxGridDBCardView
|
|
NavigatorButtons.ConfirmDelete = False
|
|
DataController.DataSource = StylesCardViewDemoMainDM.dsPersons
|
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
|
DataController.Summary.FooterSummaryItems = <>
|
|
DataController.Summary.SummaryGroups = <>
|
|
OptionsView.CardWidth = 300
|
|
OptionsView.CellAutoHeight = True
|
|
Styles.StyleSheet = StylesCardViewDemoMainDM.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 = StylesCardViewDemoMainDM.edrepGender
|
|
end
|
|
object cvDevExpressBIRTHNAME: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'BIRTHNAME'
|
|
end
|
|
object cvDevExpressDATEOFBIRTH: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'DATEOFBIRTH'
|
|
end
|
|
object cvDevExpressBIRTHCOUNTRY: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'BIRTHCOUNTRY'
|
|
RepositoryItem = StylesCardViewDemoMainDM.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
|
|
NavigatorButtons.ConfirmDelete = False
|
|
DataController.DataSource = StylesCardViewDemoMainDM.dsPersons
|
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
|
DataController.Summary.FooterSummaryItems = <>
|
|
DataController.Summary.SummaryGroups = <>
|
|
OptionsView.CardWidth = 300
|
|
OptionsView.CellAutoHeight = True
|
|
Styles.StyleSheet = StylesCardViewDemoMainDM.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 = StylesCardViewDemoMainDM.edrepGender
|
|
end
|
|
object cvSlateBIRTHNAME: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'BIRTHNAME'
|
|
end
|
|
object cvSlateDATEOFBIRTH: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'DATEOFBIRTH'
|
|
end
|
|
object cvSlateBIRTHCOUNTRY: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'BIRTHCOUNTRY'
|
|
RepositoryItem = StylesCardViewDemoMainDM.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
|
|
NavigatorButtons.ConfirmDelete = False
|
|
DataController.DataSource = StylesCardViewDemoMainDM.dsPersons
|
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
|
DataController.Summary.FooterSummaryItems = <>
|
|
DataController.Summary.SummaryGroups = <>
|
|
OptionsView.CardWidth = 300
|
|
OptionsView.CellAutoHeight = True
|
|
Styles.StyleSheet = StylesCardViewDemoMainDM.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 = StylesCardViewDemoMainDM.edrepGender
|
|
end
|
|
object cvHighContrastBIRTHNAME: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'BIRTHNAME'
|
|
end
|
|
object cvHighContrastDATEOFBIRTH: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'DATEOFBIRTH'
|
|
end
|
|
object cvHighContrastBIRTHCOUNTRY: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'BIRTHCOUNTRY'
|
|
RepositoryItem = StylesCardViewDemoMainDM.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
|
|
NavigatorButtons.ConfirmDelete = False
|
|
DataController.DataSource = StylesCardViewDemoMainDM.dsPersons
|
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
|
DataController.Summary.FooterSummaryItems = <>
|
|
DataController.Summary.SummaryGroups = <>
|
|
OptionsView.CardWidth = 300
|
|
OptionsView.CellAutoHeight = True
|
|
Styles.StyleSheet = StylesCardViewDemoMainDM.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 = StylesCardViewDemoMainDM.edrepGender
|
|
end
|
|
object cvUserDefinedBIRTHNAME: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'BIRTHNAME'
|
|
end
|
|
object cvUserDefinedDATEOFBIRTH: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'DATEOFBIRTH'
|
|
end
|
|
object cvUserDefinedBIRTHCOUNTRY: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'BIRTHCOUNTRY'
|
|
RepositoryItem = StylesCardViewDemoMainDM.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 = 524
|
|
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
|
|
Properties.MaxValue = 1000.000000000000000000
|
|
Properties.OnChange = spedCardWidthPropertiesChange
|
|
Style.Color = 16247513
|
|
TabOrder = 0
|
|
Value = 300
|
|
OnKeyPress = spedCardWidthKeyPress
|
|
Width = 48
|
|
end
|
|
object spedCardBorderWidth: TcxSpinEdit
|
|
Left = 112
|
|
Top = 47
|
|
Properties.MaxValue = 100.000000000000000000
|
|
Properties.OnChange = cxSpinEdit2PropertiesChange
|
|
Style.Color = 16247513
|
|
Style.Shadow = False
|
|
TabOrder = 1
|
|
Value = 2
|
|
OnKeyPress = spedCardWidthKeyPress
|
|
Width = 48
|
|
end
|
|
object cbCellAutoHeight: TcxCheckBox
|
|
Left = 10
|
|
Top = 74
|
|
AutoSize = False
|
|
Caption = 'Cell Auto Height'
|
|
ParentColor = False
|
|
Properties.OnChange = cbSellAutoHeightPropertiesChange
|
|
State = cbsChecked
|
|
Style.Color = 15451300
|
|
TabOrder = 2
|
|
Height = 21
|
|
Width = 143
|
|
end
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 480
|
|
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 miLookFeel: TMenuItem
|
|
Caption = '&Look&&Feel'
|
|
object KInd1: TMenuItem
|
|
Caption = 'Kind'
|
|
object Flat1: TMenuItem
|
|
Caption = '&Flat'
|
|
Hint =
|
|
'Setting this option changes the grid view appearance to Flat sty' +
|
|
'le'
|
|
RadioItem = True
|
|
OnClick = miLookAndFeelKindClick
|
|
end
|
|
object Standard1: TMenuItem
|
|
Caption = '&Standard'
|
|
Hint =
|
|
'Setting this option changes the grid view appearance to Standard' +
|
|
' style'
|
|
RadioItem = True
|
|
OnClick = miLookAndFeelKindClick
|
|
end
|
|
object UltraFlat1: 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 NativeStyle1: 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 = 472
|
|
Top = 8
|
|
end
|
|
end
|