david
3b29f73ece
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@8 05c56307-c608-d34a-929d-697000501d7a
504 lines
17 KiB
Plaintext
504 lines
17 KiB
Plaintext
object ColumnsShareDemoMainForm: TColumnsShareDemoMainForm
|
|
Left = 22
|
|
Top = 77
|
|
Width = 985
|
|
Height = 654
|
|
Caption = 'ExpressQuantumGrid Columns Share Demo'
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
Menu = mmMain
|
|
Position = poScreenCenter
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object lbDescrip: TLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 977
|
|
Height = 20
|
|
Align = alTop
|
|
AutoSize = False
|
|
Caption =
|
|
'This demo shows how several columns using a single lookup editor' +
|
|
'. 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 = 581
|
|
Width = 977
|
|
Height = 19
|
|
AutoHint = True
|
|
Panels = <>
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
SimplePanel = True
|
|
end
|
|
object Grid: TcxGrid
|
|
Left = 0
|
|
Top = 20
|
|
Width = 977
|
|
Height = 561
|
|
Align = alClient
|
|
TabOrder = 1
|
|
RootLevelOptions.DetailTabsPosition = dtpTop
|
|
RootLevelStyles.Tab = ColumnsShareDemoMainDM.cxStyle2
|
|
RootLevelStyles.TabsBackground = ColumnsShareDemoMainDM.cxStyle1
|
|
object tvProjects: TcxGridDBTableView
|
|
DataController.DataSource = ColumnsShareDemoMainDM.dsProjects
|
|
DataController.KeyFieldNames = 'ID'
|
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
|
DataController.Summary.FooterSummaryItems = <>
|
|
DataController.Summary.SummaryGroups = <>
|
|
NavigatorButtons.ConfirmDelete = False
|
|
OptionsView.ColumnAutoWidth = True
|
|
OptionsView.Indicator = True
|
|
Styles.StyleSheet = ColumnsShareDemoMainDM.GridTableViewStyleSheetDevExpress
|
|
object tvProjectsNAME: TcxGridDBColumn
|
|
Caption = 'Name'
|
|
DataBinding.FieldName = 'NAME'
|
|
end
|
|
object tvProjectsMANAGERID: TcxGridDBColumn
|
|
Caption = 'Manager'
|
|
DataBinding.FieldName = 'MANAGERID'
|
|
RepositoryItem = eriLookupComboUsers
|
|
end
|
|
end
|
|
object tvItems: TcxGridDBTableView
|
|
DataController.DataSource = ColumnsShareDemoMainDM.dsItems
|
|
DataController.KeyFieldNames = 'ID'
|
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
|
DataController.Summary.FooterSummaryItems = <>
|
|
DataController.Summary.SummaryGroups = <>
|
|
NavigatorButtons.ConfirmDelete = False
|
|
OptionsView.CellAutoHeight = True
|
|
OptionsView.Indicator = True
|
|
Preview.Column = tvItemsDESCRIPTION
|
|
Preview.Visible = True
|
|
Styles.StyleSheet = ColumnsShareDemoMainDM.GridTableViewStyleSheetDevExpress
|
|
object tvItemsNAME: TcxGridDBColumn
|
|
Caption = 'Name'
|
|
DataBinding.FieldName = 'NAME'
|
|
end
|
|
object tvItemsTYPE: TcxGridDBColumn
|
|
Caption = 'Type'
|
|
DataBinding.FieldName = 'TYPE'
|
|
PropertiesClassName = 'TcxImageComboBoxProperties'
|
|
Properties.Images = ColumnsShareDemoMainDM.imStat
|
|
Properties.Items = <
|
|
item
|
|
Description = 'Bug'
|
|
ImageIndex = 2
|
|
Value = False
|
|
end
|
|
item
|
|
Description = 'Request'
|
|
ImageIndex = 3
|
|
Value = True
|
|
end>
|
|
Properties.LargeImages = ColumnsShareDemoMainDM.imStat
|
|
MinWidth = 50
|
|
end
|
|
object tvItemsPROJECTID: TcxGridDBColumn
|
|
Caption = 'Project'
|
|
DataBinding.FieldName = 'PROJECTID'
|
|
PropertiesClassName = 'TcxLookupComboBoxProperties'
|
|
Properties.KeyFieldNames = 'ID'
|
|
Properties.ListColumns = <
|
|
item
|
|
FieldName = 'NAME'
|
|
end>
|
|
Properties.ListOptions.GridLines = glNone
|
|
Properties.ListOptions.ShowHeader = False
|
|
Properties.ListSource = ColumnsShareDemoMainDM.dsProjects
|
|
SortOrder = soAscending
|
|
end
|
|
object tvItemsPRIORITY: TcxGridDBColumn
|
|
Caption = 'Priority'
|
|
DataBinding.FieldName = 'PRIORITY'
|
|
PropertiesClassName = 'TcxImageComboBoxProperties'
|
|
Properties.Alignment.Horz = taLeftJustify
|
|
Properties.Images = ColumnsShareDemoMainDM.imStat
|
|
Properties.Items = <
|
|
item
|
|
Description = 'Low'
|
|
ImageIndex = 0
|
|
Value = 1
|
|
end
|
|
item
|
|
Description = 'Normal'
|
|
Value = 2
|
|
end
|
|
item
|
|
Description = 'High'
|
|
ImageIndex = 1
|
|
Value = 3
|
|
end>
|
|
MinWidth = 50
|
|
end
|
|
object tvItemsSTATUS: TcxGridDBColumn
|
|
Caption = 'Status'
|
|
DataBinding.FieldName = 'STATUS'
|
|
PropertiesClassName = 'TcxImageComboBoxProperties'
|
|
Properties.Images = ColumnsShareDemoMainDM.imStat
|
|
Properties.Items = <
|
|
item
|
|
Description = 'New'
|
|
ImageIndex = 4
|
|
Value = 1
|
|
end
|
|
item
|
|
Description = 'Postponed'
|
|
ImageIndex = 5
|
|
Value = 2
|
|
end
|
|
item
|
|
Description = 'Fixed'
|
|
ImageIndex = 6
|
|
Value = 3
|
|
end
|
|
item
|
|
Description = 'Rejected'
|
|
ImageIndex = 7
|
|
Value = 4
|
|
end>
|
|
end
|
|
object tvItemsCREATORID: TcxGridDBColumn
|
|
Caption = 'Creator'
|
|
DataBinding.FieldName = 'CREATORID'
|
|
RepositoryItem = eriLookupComboUsers
|
|
Width = 101
|
|
end
|
|
object tvItemsCREATEDDATE: TcxGridDBColumn
|
|
Caption = 'CreateDate'
|
|
DataBinding.FieldName = 'CREATEDDATE'
|
|
end
|
|
object tvItemsOWNERID: TcxGridDBColumn
|
|
Caption = 'Owner'
|
|
DataBinding.FieldName = 'OWNERID'
|
|
RepositoryItem = eriLookupComboUsers
|
|
end
|
|
object tvItemsLASTMODIFIEDDATE: TcxGridDBColumn
|
|
Caption = 'LastModifiedDate'
|
|
DataBinding.FieldName = 'LASTMODIFIEDDATE'
|
|
end
|
|
object tvItemsFIXEDDATE: TcxGridDBColumn
|
|
Caption = 'FixedDate'
|
|
DataBinding.FieldName = 'FIXEDDATE'
|
|
end
|
|
object tvItemsDESCRIPTION: TcxGridDBColumn
|
|
Caption = 'Description'
|
|
DataBinding.FieldName = 'DESCRIPTION'
|
|
end
|
|
end
|
|
object cvUsers: TcxGridDBCardView
|
|
DataController.DataSource = ColumnsShareDemoMainDM.dsUsers
|
|
DataController.KeyFieldNames = 'ID'
|
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
|
DataController.Summary.FooterSummaryItems = <>
|
|
DataController.Summary.SummaryGroups = <>
|
|
NavigatorButtons.ConfirmDelete = False
|
|
OptionsView.SeparatorColor = 12937777
|
|
Styles.StyleSheet = ColumnsShareDemoMainDM.GridCardViewStyleSheetDevExpress
|
|
object cvUsersFNAME: TcxGridDBCardViewRow
|
|
Caption = 'First Name'
|
|
DataBinding.FieldName = 'FNAME'
|
|
end
|
|
object cvUsersMNAME: TcxGridDBCardViewRow
|
|
Caption = 'Midle Name'
|
|
DataBinding.FieldName = 'MNAME'
|
|
end
|
|
object cvUsersLNAME: TcxGridDBCardViewRow
|
|
Caption = 'Last Name'
|
|
DataBinding.FieldName = 'LNAME'
|
|
end
|
|
object cvUsersDepartment: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'Department'
|
|
PropertiesClassName = 'TcxLookupComboBoxProperties'
|
|
Properties.ListColumns = <>
|
|
Properties.ListFieldIndex = -1
|
|
Properties.ListOptions.GridLines = glNone
|
|
Properties.ListOptions.ShowHeader = False
|
|
end
|
|
object cvUsersCOUNTRY: TcxGridDBCardViewRow
|
|
Caption = 'Country'
|
|
DataBinding.FieldName = 'COUNTRY'
|
|
end
|
|
object cvUsersPOSTALCODE: TcxGridDBCardViewRow
|
|
Caption = 'PostalCode'
|
|
DataBinding.FieldName = 'POSTALCODE'
|
|
end
|
|
object cvUsersCITY: TcxGridDBCardViewRow
|
|
Caption = 'City'
|
|
DataBinding.FieldName = 'CITY'
|
|
end
|
|
object cvUsersADDRESS: TcxGridDBCardViewRow
|
|
Caption = 'Address'
|
|
DataBinding.FieldName = 'ADDRESS'
|
|
end
|
|
object cvUsersPHONE: TcxGridDBCardViewRow
|
|
Caption = 'Phone'
|
|
DataBinding.FieldName = 'PHONE'
|
|
PropertiesClassName = 'TcxMaskEditProperties'
|
|
Properties.MaskKind = emkRegExprEx
|
|
Properties.EditMask = '(\(\d\d\d\))? \d(\d\d?)? - (\d\d\d? - \d\d|\d\d\d\d)'
|
|
end
|
|
object cvUsersFAX: TcxGridDBCardViewRow
|
|
Caption = 'Fax'
|
|
DataBinding.FieldName = 'FAX'
|
|
PropertiesClassName = 'TcxMaskEditProperties'
|
|
Properties.MaskKind = emkRegExprEx
|
|
Properties.EditMask = '(\(\d\d\d\))? \d(\d\d?)? - (\d\d - \d\d | \d\d\d\d)'
|
|
end
|
|
object cvUsersEMAIL: TcxGridDBCardViewRow
|
|
Caption = 'EMail'
|
|
DataBinding.FieldName = 'EMAIL'
|
|
PropertiesClassName = 'TcxHyperLinkEditProperties'
|
|
end
|
|
object cvUsersHOMEPAGE: TcxGridDBCardViewRow
|
|
Caption = 'HomePage'
|
|
DataBinding.FieldName = 'HOMEPAGE'
|
|
PropertiesClassName = 'TcxHyperLinkEditProperties'
|
|
end
|
|
end
|
|
object tvTeam: TcxGridDBTableView
|
|
DataController.DataSource = ColumnsShareDemoMainDM.dsProjectTeam
|
|
DataController.DetailKeyFieldNames = 'PROJECTID'
|
|
DataController.KeyFieldNames = 'ID'
|
|
DataController.MasterKeyFieldNames = 'ID'
|
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
|
DataController.Summary.FooterSummaryItems = <>
|
|
DataController.Summary.SummaryGroups = <>
|
|
NavigatorButtons.ConfirmDelete = False
|
|
OptionsView.ColumnAutoWidth = True
|
|
OptionsView.Indicator = True
|
|
Styles.StyleSheet = ColumnsShareDemoMainDM.GridTableViewStyleSheetDevExpress
|
|
object tvTeamUSERID: TcxGridDBColumn
|
|
Caption = 'Name'
|
|
DataBinding.FieldName = 'USERID'
|
|
RepositoryItem = eriLookupComboUsers
|
|
end
|
|
object tvTeamFUNCTION: TcxGridDBColumn
|
|
Caption = 'Function'
|
|
DataBinding.FieldName = 'FUNCTION'
|
|
end
|
|
end
|
|
object lvItems: TcxGridLevel
|
|
Caption = 'Items'
|
|
GridView = tvItems
|
|
end
|
|
object lvProjects: TcxGridLevel
|
|
Caption = 'Projects'
|
|
GridView = tvProjects
|
|
object lvTeam: TcxGridLevel
|
|
GridView = tvTeam
|
|
end
|
|
end
|
|
object lvUsers: TcxGridLevel
|
|
Caption = 'Users'
|
|
GridView = cvUsers
|
|
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 miPersonEditor: TMenuItem
|
|
Caption = 'Persons Editor'
|
|
object miLookupEditor: TMenuItem
|
|
Caption = 'Lookup ComboBox Editor'
|
|
Checked = True
|
|
GroupIndex = 1
|
|
RadioItem = True
|
|
OnClick = miLookUpEditorClick
|
|
end
|
|
object miExtLookUpEditor: TMenuItem
|
|
Caption = 'ExtLookup ComboBox Editor'
|
|
GroupIndex = 1
|
|
RadioItem = True
|
|
OnClick = miExtLookUpEditorClick
|
|
end
|
|
end
|
|
object miCustomizePersonsLookupCombobox: TMenuItem
|
|
Caption = '&Customize Persons Lookup Combobox ...'
|
|
Hint = 'These changes will affect all Persons lookup combo boxes'
|
|
OnClick = miCustomizePersonsLookupComboboxClick
|
|
end
|
|
object miSeparator1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object miLookFeel: TMenuItem
|
|
Caption = '&Look&&Feel'
|
|
object miKind: TMenuItem
|
|
Caption = '&Kind'
|
|
object miFlat: TMenuItem
|
|
Caption = '&Flat'
|
|
GroupIndex = 2
|
|
Hint =
|
|
'Setting this option changes the grid view appearance to Flat sty' +
|
|
'le'
|
|
RadioItem = True
|
|
OnClick = miLookAndFeelKindClick
|
|
end
|
|
object miStandard: TMenuItem
|
|
Caption = '&Standard'
|
|
GroupIndex = 2
|
|
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
|
|
GroupIndex = 2
|
|
Hint =
|
|
'Setting this option changes the grid view appearance to Ultra Fl' +
|
|
'at style'
|
|
RadioItem = True
|
|
OnClick = miLookAndFeelKindClick
|
|
end
|
|
object miOffice11: TMenuItem
|
|
Caption = '&Office11'
|
|
GroupIndex = 2
|
|
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 cxEditRepository: TcxEditRepository
|
|
Left = 536
|
|
Top = 16
|
|
object erExtLookupComboBoxItem: TcxEditRepositoryExtLookupComboBoxItem
|
|
Properties.DropDownSizeable = True
|
|
Properties.View = cxGridViewRepositoryDBTableView
|
|
Properties.KeyFieldNames = 'ID'
|
|
Properties.ListFieldItem = cxGridViewRepositoryDBTableViewUserName
|
|
end
|
|
object eriLookupComboUsers: TcxEditRepositoryLookupComboBoxItem
|
|
Properties.DropDownAutoSize = True
|
|
Properties.KeyFieldNames = 'ID'
|
|
Properties.ListColumns = <
|
|
item
|
|
FieldName = 'UserName'
|
|
end>
|
|
Properties.ListOptions.GridLines = glNone
|
|
Properties.ListOptions.ShowHeader = False
|
|
Properties.ListSource = ColumnsShareDemoMainDM.dsUsers
|
|
end
|
|
end
|
|
object cxGridPopupMenu1: TcxGridPopupMenu
|
|
PopupMenus = <>
|
|
Left = 352
|
|
Top = 16
|
|
end
|
|
object cxGridViewRepository: TcxGridViewRepository
|
|
Left = 384
|
|
Top = 16
|
|
object cxGridViewRepositoryDBTableView: TcxGridDBTableView
|
|
DataController.DataSource = ColumnsShareDemoMainDM.dsUsers
|
|
DataController.KeyFieldNames = 'ID'
|
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
|
DataController.Summary.FooterSummaryItems = <>
|
|
DataController.Summary.SummaryGroups = <>
|
|
NavigatorButtons.ConfirmDelete = False
|
|
Styles.StyleSheet = ColumnsShareDemoMainDM.GridTableViewStyleSheetDevExpress
|
|
object cxGridViewRepositoryDBTableViewID: TcxGridDBColumn
|
|
DataBinding.FieldName = 'ID'
|
|
Width = 51
|
|
end
|
|
object cxGridViewRepositoryDBTableViewUserName: TcxGridDBColumn
|
|
DataBinding.FieldName = 'UserName'
|
|
end
|
|
object cxGridViewRepositoryDBTableViewDepartment: TcxGridDBColumn
|
|
DataBinding.FieldName = 'Department'
|
|
end
|
|
object cxGridViewRepositoryDBTableViewCOUNTRY: TcxGridDBColumn
|
|
Caption = 'Country'
|
|
DataBinding.FieldName = 'COUNTRY'
|
|
Width = 69
|
|
end
|
|
object cxGridViewRepositoryDBTableViewPOSTALCODE: TcxGridDBColumn
|
|
Caption = 'Postal Code'
|
|
DataBinding.FieldName = 'POSTALCODE'
|
|
Width = 92
|
|
end
|
|
object cxGridViewRepositoryDBTableViewCITY: TcxGridDBColumn
|
|
Caption = 'City'
|
|
DataBinding.FieldName = 'CITY'
|
|
end
|
|
object cxGridViewRepositoryDBTableViewADDRESS: TcxGridDBColumn
|
|
Caption = 'Address'
|
|
DataBinding.FieldName = 'ADDRESS'
|
|
Width = 158
|
|
end
|
|
object cxGridViewRepositoryDBTableViewPHONE: TcxGridDBColumn
|
|
Caption = 'Phone'
|
|
DataBinding.FieldName = 'PHONE'
|
|
Width = 95
|
|
end
|
|
object cxGridViewRepositoryDBTableViewFAX: TcxGridDBColumn
|
|
Caption = 'Fax'
|
|
DataBinding.FieldName = 'FAX'
|
|
Width = 103
|
|
end
|
|
object cxGridViewRepositoryDBTableViewEMAIL: TcxGridDBColumn
|
|
Caption = 'Email'
|
|
DataBinding.FieldName = 'EMAIL'
|
|
Width = 190
|
|
end
|
|
object cxGridViewRepositoryDBTableViewHOMEPAGE: TcxGridDBColumn
|
|
Caption = 'Homepage'
|
|
DataBinding.FieldName = 'HOMEPAGE'
|
|
Width = 201
|
|
end
|
|
end
|
|
end
|
|
object LookAndFeelController: TcxLookAndFeelController
|
|
NativeStyle = True
|
|
Left = 568
|
|
Top = 16
|
|
end
|
|
end
|