Componentes.Terceros.DevExp.../official/x.26/ExpressQuantumGrid 6/Demos/Delphi/ViewCardDemo/ViewCardDemoMain.dfm
2007-09-09 11:27:27 +00:00

193 lines
5.7 KiB
Plaintext

object ViewCardDemoMainForm: TViewCardDemoMainForm
Left = 107
Top = 75
Width = 797
Height = 523
Caption = 'ExpressQuantumGrid ViewCard Demo'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = mmMain
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
object lbDescrip: TLabel
Left = 0
Top = 0
Width = 789
Height = 33
Align = alTop
AutoSize = False
Caption =
'Use the new Card View'#39's functionality. Experiment by changing th' +
'e Options. 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 = 450
Width = 789
Height = 19
AutoHint = True
Panels = <>
ParentShowHint = False
ShowHint = True
SimplePanel = True
end
object cxGrid: TcxGrid
Left = 0
Top = 33
Width = 789
Height = 417
Align = alClient
TabOrder = 1
object cvPersons: TcxGridDBCardView
DataController.DataSource = ViewCardDemoDataDM.dsPersons
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
NavigatorButtons.ConfirmDelete = False
Filtering.Visible = fvAlways
OptionsCustomize.CardExpanding = True
OptionsCustomize.RowMoving = True
OptionsView.CardWidth = 370
OptionsView.CellAutoHeight = True
object cvPersonsFullname: TcxGridDBCardViewRow
DataBinding.FieldName = 'FullName'
Kind = rkCaption
end
object cvPersonsID: TcxGridDBCardViewRow
DataBinding.FieldName = 'ID'
Visible = False
end
object cvPersonsFIRSTNAME: TcxGridDBCardViewRow
DataBinding.FieldName = 'FIRSTNAME'
end
object cvPersonsSECONDNAME: TcxGridDBCardViewRow
DataBinding.FieldName = 'SECONDNAME'
end
object cvPersonsGENDER: TcxGridDBCardViewRow
DataBinding.FieldName = 'GENDER'
PropertiesClassName = 'TcxImageComboBoxProperties'
Properties.Images = ViewCardDemoDataDM.ilPics
Properties.Items = <
item
Description = 'Female'
ImageIndex = 0
Value = False
end
item
Description = 'Male'
ImageIndex = 1
Value = True
end>
end
object cvPersonsBIRTHNAME: TcxGridDBCardViewRow
DataBinding.FieldName = 'BIRTHNAME'
end
object cvPersonsDATEOFBIRTH: TcxGridDBCardViewRow
DataBinding.FieldName = 'DATEOFBIRTH'
end
object cvPersonsBIRTHCOUNTRY: TcxGridDBCardViewRow
DataBinding.FieldName = 'BIRTHCOUNTRY'
PropertiesClassName = 'TcxLookupComboBoxProperties'
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'ACRONYM'
end
item
FieldName = 'NAME'
end>
Properties.ListFieldIndex = 1
Properties.ListSource = ViewCardDemoDataDM.dsCountries
Visible = False
end
object cvPersonsLOCATIONOFBIRTH: TcxGridDBCardViewRow
DataBinding.FieldName = 'LOCATIONOFBIRTH'
Visible = False
end
object cvPersonsNICKNAME: TcxGridDBCardViewRow
DataBinding.FieldName = 'NICKNAME'
end
object cvPersonsHOMEPAGE: TcxGridDBCardViewRow
DataBinding.FieldName = 'HOMEPAGE'
PropertiesClassName = 'TcxHyperLinkEditProperties'
end
object cvPersonsBIOGRAPHY: TcxGridDBCardViewRow
DataBinding.FieldName = 'BIOGRAPHY'
PropertiesClassName = 'TcxMemoProperties'
Properties.ScrollBars = ssVertical
Options.Filtering = False
end
end
object lvPersons: TcxGridLevel
Caption = 'DevExpress'
GridView = cvPersons
end
end
object mmMain: TMainMenu
Left = 504
Top = 24
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 miShowEmptyRows: TMenuItem
Caption = 'Show &empty rows'
Checked = True
Hint = 'Show/hide empty rows '
OnClick = miShowEmptyRowsClick
end
object miFiltering: TMenuItem
Caption = '&Filtering'
Checked = True
Hint = 'Enables data to be filtered visually'
OnClick = miFilteringClick
end
object miExpandingCollapsing: TMenuItem
Caption = 'Card E&xpanding/Collapsing'
Checked = True
Hint = 'Enables cards to be expanded/collapsed'
OnClick = miExpandingCollapsingClick
end
object N1: TMenuItem
Caption = '-'
end
object miRowsCustomization: TMenuItem
Caption = 'Rows C&ustomization...'
Hint = 'Shows the customization form for rows'
OnClick = miRowsCustomizationClick
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 = 24
end
end