Componentes.Terceros.DevExp.../official/x.30/ExpressQuantumGrid 6/Demos/Delphi/MasterDetailTableDemo/MasterDetailTableDemoMain.dfm
2007-12-16 17:06:54 +00:00

273 lines
7.9 KiB
Plaintext

object MasterDetailTableDemoMainForm: TMasterDetailTableDemoMainForm
Left = 100
Top = 40
Width = 903
Height = 631
Caption = 'ExpressQuantumGrid Master Detail Table Demo'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = mmMain
OldCreateOrder = False
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
object lblStyle: TLabel
Left = 0
Top = 32
Width = 895
Height = 24
Align = alTop
Alignment = taCenter
Caption = 'Standard master-detail style'
Color = 15790320
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -21
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
end
object lblMaster: TLabel
Left = 0
Top = 61
Width = 895
Height = 22
Align = alTop
Caption = 'Master : Films'
Color = 15790320
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Bevel1: TBevel
Left = 0
Top = 56
Width = 895
Height = 5
Align = alTop
Shape = bsTopLine
end
object lbDescription: TLabel
Left = 0
Top = 0
Width = 895
Height = 32
Align = alTop
Caption =
'Initially displays as separate master and detail grids. Use the ' +
'Options in order to show both tables in a single grid. Click '#39'Ab' +
'out 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 Splitter: TSplitter
Left = 0
Top = 292
Width = 895
Height = 2
Cursor = crVSplit
Align = alBottom
Visible = False
end
object pnlDetail: TPanel
Left = 0
Top = 294
Width = 895
Height = 264
Align = alBottom
BevelOuter = bvNone
Caption = 'pnlDetail'
TabOrder = 0
object lblDetail: TLabel
Left = 0
Top = 0
Width = 895
Height = 22
Align = alTop
Caption = 'Detail: People involved with the film'
Color = 15790320
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
end
object GridDetail: TcxGrid
Left = 0
Top = 22
Width = 895
Height = 242
Align = alClient
TabOrder = 0
RootLevelOptions.DetailFrameColor = 16247513
object tvFilmsPersonsStaff: TcxGridDBTableView
DataController.DataSource = MasterDetailTableDemoMainDM.dsFilmsPersonsStaff
DataController.KeyFieldNames = 'ID'
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
NavigatorButtons.ConfirmDelete = False
OptionsBehavior.FocusCellOnTab = True
OptionsView.CellAutoHeight = True
OptionsView.ColumnAutoWidth = True
OptionsView.Indicator = True
OptionsView.NewItemRow = True
Styles.StyleSheet = MasterDetailTableDemoMainDM.GridTableViewStyleSheetDevExpress
object tvFilmsPersonsStaffPERSONLINEID: TcxGridDBColumn
Caption = 'Occupation'
DataBinding.FieldName = 'PERSONLINEID'
PropertiesClassName = 'TcxLookupComboBoxProperties'
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'NAME'
end>
Properties.ListOptions.GridLines = glNone
Properties.ListOptions.ShowHeader = False
Properties.ListSource = MasterDetailTableDemoMainDM.dsPersonsLine
end
object tvFilmsPersonsStaffPERSONID: TcxGridDBColumn
Caption = 'Person'
DataBinding.FieldName = 'PERSONID'
PropertiesClassName = 'TcxLookupComboBoxProperties'
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'NAME'
end>
Properties.ListOptions.GridLines = glNone
Properties.ListOptions.ShowHeader = False
Properties.ListSource = MasterDetailTableDemoMainDM.dsPersons
end
object tvFilmsPersonsStaffDESCRIPTION: TcxGridDBColumn
Caption = 'Description'
DataBinding.FieldName = 'DESCRIPTION'
Width = 300
end
end
object lvDetail: TcxGridLevel
GridView = tvFilmsPersonsStaff
end
end
end
object Grid: TcxGrid
Left = 0
Top = 83
Width = 895
Height = 209
Align = alClient
TabOrder = 1
object tvFilms: TcxGridDBTableView
DataController.DataModeController.SmartRefresh = True
DataController.DataSource = MasterDetailTableDemoMainDM.dsFilms
DataController.KeyFieldNames = 'ID'
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
NavigatorButtons.ConfirmDelete = False
OptionsBehavior.FocusCellOnTab = True
OptionsView.CellAutoHeight = True
OptionsView.Indicator = True
OptionsView.NewItemRow = True
Preview.Column = tvFilmsPLOTOUTLINE
Preview.Visible = True
Styles.StyleSheet = MasterDetailTableDemoMainDM.GridTableViewStyleSheetDevExpress
object tvFilmsCAPTION: TcxGridDBColumn
Caption = 'Caption'
DataBinding.FieldName = 'CAPTION'
end
object tvFilmsYEAR: TcxGridDBColumn
Caption = 'Year'
DataBinding.FieldName = 'YEAR'
end
object tvFilmsRUNTIME: TcxGridDBColumn
Caption = 'Runtime'
DataBinding.FieldName = 'RUNTIME'
end
object tvFilmsPHOTO: TcxGridDBColumn
Caption = 'Photo'
DataBinding.FieldName = 'PHOTO'
PropertiesClassName = 'TcxBlobEditProperties'
Properties.BlobEditKind = bekPict
Properties.PictureGraphicClassName = 'TJPEGImage'
end
object tvFilmsTAGLINE: TcxGridDBColumn
Caption = 'TagLine'
DataBinding.FieldName = 'TAGLINE'
Width = 350
end
object tvFilmsPLOTOUTLINE: TcxGridDBColumn
Caption = 'PlotOutline'
DataBinding.FieldName = 'PLOTOUTLINE'
Width = 350
end
end
object lvFilms: TcxGridLevel
GridView = tvFilms
MaxDetailHeight = 200
object lvFilmsPersonsStaff: TcxGridLevel
Visible = False
end
end
end
object StatusBar: TStatusBar
Left = 0
Top = 558
Width = 895
Height = 19
AutoHint = True
Panels = <>
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 miGrid4: TMenuItem
Caption = 'ExpressQuantumGrid Master-Detail display style'
Hint =
'ExpressQuantumGrid master-detail display style Combines two sepa' +
'rate grid views into the master-detail representation'
OnClick = miGrid4Click
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