david
08e42642b8
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@21 05c56307-c608-d34a-929d-697000501d7a
882 lines
25 KiB
Plaintext
882 lines
25 KiB
Plaintext
object DataSourceDemo: TDataSourceDemo
|
|
OldCreateOrder = True
|
|
ComponentPersistent.DefaultMode = pmSave
|
|
ComponentPersistent.ExceptedComponents = <>
|
|
DesignerID = 1
|
|
EncodingType = wetApplication
|
|
LeftPos = 0
|
|
PositioningType = cxptGrid
|
|
ServerScript = JScript
|
|
TopPos = 0
|
|
OnActivate = cxWebPageModuleActivate
|
|
OnDeactivate = cxWebPageModuleDeactivate
|
|
Left = 50
|
|
Top = 50
|
|
Height = 726
|
|
HorizontalOffset = 200
|
|
VerticalOffset = 116
|
|
Width = 949
|
|
object dsExtended: TcxWebDBDataSource
|
|
CustomEvents = <>
|
|
DataSet = ADOTable1
|
|
Left = 456
|
|
Top = 24
|
|
end
|
|
object dsStandard: TcxStdWebDataSource
|
|
CustomEvents = <>
|
|
DataSet = Table1
|
|
Left = 352
|
|
Top = 24
|
|
end
|
|
object cbType: TcxWebComboBox
|
|
CustomEvents = <>
|
|
StyleItem_Default = stEditorDef
|
|
Left = 128
|
|
Top = 72
|
|
Height = 19
|
|
Width = 209
|
|
ZIndex = 0
|
|
Styles.Default = stEditorDef
|
|
TabOrder = 1
|
|
OnChange = cbTypeChange
|
|
ItemIndex = 0
|
|
Items = <
|
|
item
|
|
Selected = True
|
|
Text = 'WebDBDataSource'
|
|
Value = '0'
|
|
end
|
|
item
|
|
Text = 'WebStdDataSource'
|
|
Value = '1'
|
|
end
|
|
item
|
|
Text = 'WebDataSource (unbound)'
|
|
Value = '2'
|
|
end>
|
|
end
|
|
object cxWebDBGrid1: TcxWebDBGrid
|
|
CustomEvents = <>
|
|
Left = 16
|
|
Top = 304
|
|
Height = 276
|
|
Width = 785
|
|
ZIndex = 0
|
|
BorderWidth = 1
|
|
BorderColor = clWebBlack
|
|
IndicatorWidth = 18
|
|
KeepPageSize = False
|
|
PageSize = 7
|
|
ReadOnly = False
|
|
RowHeight = 26
|
|
SelectedColor = clWebHighlight
|
|
SelectedFontColor = clWebCaptionText
|
|
ShowGroupedColumns = True
|
|
DataBinding.DataSource = dsExtended
|
|
FirstVisibleRow = 0
|
|
object cxWebDBGrid1Column1: TcxWebDBColumn
|
|
CheckedValue = 'True'
|
|
Title = 'Name'
|
|
VAlignment = wvalCenter
|
|
UncheckedValue = 'False'
|
|
UndefinedValuesState = uvsUnchecked
|
|
Width = 153
|
|
DataBinding.FieldName = 'Name'
|
|
end
|
|
object cxWebDBGrid1Column2: TcxWebDBColumn
|
|
CheckedValue = 'True'
|
|
Title = 'Capital'
|
|
VAlignment = wvalCenter
|
|
UncheckedValue = 'False'
|
|
UndefinedValuesState = uvsUnchecked
|
|
Width = 153
|
|
DataBinding.FieldName = 'Capital'
|
|
end
|
|
object cxWebDBGrid1Column3: TcxWebDBColumn
|
|
CheckedValue = 'True'
|
|
Title = 'Continent'
|
|
VAlignment = wvalCenter
|
|
UncheckedValue = 'False'
|
|
UndefinedValuesState = uvsUnchecked
|
|
Width = 153
|
|
DataBinding.FieldName = 'Continent'
|
|
end
|
|
object cxWebDBGrid1Column4: TcxWebDBColumn
|
|
CheckedValue = 'True'
|
|
Title = 'Area'
|
|
VAlignment = wvalCenter
|
|
UncheckedValue = 'False'
|
|
UndefinedValuesState = uvsUnchecked
|
|
Width = 153
|
|
DataBinding.FieldName = 'Area'
|
|
end
|
|
object cxWebDBGrid1Column5: TcxWebDBColumn
|
|
CheckedValue = 'True'
|
|
Title = 'Population'
|
|
VAlignment = wvalCenter
|
|
UncheckedValue = 'False'
|
|
UndefinedValuesState = uvsUnchecked
|
|
Width = 153
|
|
DataBinding.FieldName = 'Population'
|
|
end
|
|
end
|
|
object cxWebPanel1: TcxWebPanel
|
|
CustomEvents = <>
|
|
StyleItem_Default = stPanel
|
|
Left = 16
|
|
Top = 104
|
|
Height = 185
|
|
Width = 345
|
|
ZIndex = 0
|
|
Caption = 'DataSource properties'
|
|
Styles.Default = stPanel
|
|
TabOrder = 0
|
|
object cbDataSet: TcxWebComboBox
|
|
CustomEvents = <>
|
|
StyleItem_Default = stEditorDef
|
|
Left = 88
|
|
Top = 22
|
|
Height = 19
|
|
Width = 97
|
|
ZIndex = 0
|
|
Styles.Default = stEditorDef
|
|
TabOrder = 0
|
|
ItemIndex = 0
|
|
Items = <
|
|
item
|
|
Selected = True
|
|
Text = 'ADOTable1'
|
|
Value = '0'
|
|
end
|
|
item
|
|
Text = 'Table1'
|
|
Value = '1'
|
|
end>
|
|
end
|
|
object wbApplyChanges: TcxWebButton
|
|
CustomEvents = <>
|
|
StyleItem_Default = stButtonDef
|
|
StyleItem_Hover = stButtonHover
|
|
Left = 201
|
|
Top = 24
|
|
Width = 121
|
|
ZIndex = 0
|
|
Styles.Default = stButtonDef
|
|
Styles.Hover = stButtonHover
|
|
TabOrder = 1
|
|
Caption = 'Apply'
|
|
GlyphIndex = 0
|
|
GlyphPosition = gpBeforeText
|
|
OnClick = wbApplyChangesClick
|
|
end
|
|
object wbCancelCanges: TcxWebButton
|
|
CustomEvents = <>
|
|
StyleItem_Default = stButtonDef
|
|
StyleItem_Hover = stButtonHover
|
|
Left = 201
|
|
Top = 56
|
|
Width = 121
|
|
ZIndex = 0
|
|
Styles.Default = stButtonDef
|
|
Styles.Hover = stButtonHover
|
|
TabOrder = 2
|
|
Caption = 'Cancel'
|
|
GlyphIndex = 0
|
|
GlyphPosition = gpBeforeText
|
|
OnClick = wbCancelCangesClick
|
|
end
|
|
object cxWebLabel1: TcxWebLabel
|
|
CustomEvents = <>
|
|
StyleItem_Default = stLabelDef
|
|
Left = 24
|
|
Top = 24
|
|
Height = 17
|
|
Width = 57
|
|
ZIndex = 0
|
|
AutoSize = False
|
|
Styles.Default = stLabelDef
|
|
WordWrap = False
|
|
Caption = 'DataSet'
|
|
end
|
|
object cbLoadAllRecords: TcxWebCheckBox
|
|
CustomEvents = <>
|
|
StyleItem_Default = stLabelDef
|
|
Left = 19
|
|
Top = 48
|
|
Height = 23
|
|
Width = 160
|
|
ZIndex = 0
|
|
Styles.Default = stLabelDef
|
|
TabOrder = 3
|
|
Caption = 'Load all records mode'
|
|
end
|
|
object cbAllowEditing: TcxWebCheckBox
|
|
CustomEvents = <>
|
|
StyleItem_Default = stLabelDef
|
|
Left = 19
|
|
Top = 126
|
|
Height = 23
|
|
Width = 110
|
|
ZIndex = 0
|
|
Styles.Default = stLabelDef
|
|
TabOrder = 4
|
|
Caption = 'Allow Editing'
|
|
Checked = True
|
|
end
|
|
object cbAllowSorting: TcxWebCheckBox
|
|
CustomEvents = <>
|
|
StyleItem_Default = stLabelDef
|
|
Left = 19
|
|
Top = 74
|
|
Height = 23
|
|
Width = 110
|
|
ZIndex = 0
|
|
Styles.Default = stLabelDef
|
|
TabOrder = 5
|
|
Caption = 'Allow Sorting'
|
|
Checked = True
|
|
end
|
|
object cbAllowGrouping: TcxWebCheckBox
|
|
CustomEvents = <>
|
|
StyleItem_Default = stLabelDef
|
|
Left = 19
|
|
Top = 100
|
|
Height = 23
|
|
Width = 118
|
|
ZIndex = 0
|
|
Styles.Default = stLabelDef
|
|
TabOrder = 6
|
|
Caption = 'Allow Grouping'
|
|
Checked = True
|
|
end
|
|
object cbAllowExpanding: TcxWebCheckBox
|
|
CustomEvents = <>
|
|
StyleItem_Default = stLabelDef
|
|
Left = 19
|
|
Top = 152
|
|
Height = 23
|
|
Width = 134
|
|
ZIndex = 0
|
|
Styles.Default = stLabelDef
|
|
TabOrder = 7
|
|
Caption = 'Allow Expanding'
|
|
Checked = True
|
|
end
|
|
object wbLoad: TcxWebButton
|
|
CustomEvents = <>
|
|
StyleItem_Default = stButtonDef
|
|
StyleItem_Hover = stButtonHover
|
|
Left = 201
|
|
Top = 88
|
|
Width = 121
|
|
ZIndex = 0
|
|
Enabled = False
|
|
Styles.Default = stButtonDef
|
|
Styles.Hover = stButtonHover
|
|
TabOrder = 8
|
|
Caption = 'Load from stream'
|
|
GlyphPosition = gpBeforeText
|
|
OnClick = wbLoadClick
|
|
end
|
|
object wbSave: TcxWebButton
|
|
CustomEvents = <>
|
|
StyleItem_Default = stButtonDef
|
|
StyleItem_Hover = stButtonHover
|
|
Left = 201
|
|
Top = 120
|
|
Width = 121
|
|
ZIndex = 0
|
|
Enabled = False
|
|
Styles.Default = stButtonDef
|
|
Styles.Hover = stButtonHover
|
|
TabOrder = 9
|
|
Caption = 'Save to stream'
|
|
GlyphPosition = gpBeforeText
|
|
OnClick = wbSaveClick
|
|
end
|
|
end
|
|
object cxWebLabel2: TcxWebLabel
|
|
CustomEvents = <>
|
|
StyleItem_Default = stLabelDef
|
|
Left = 32
|
|
Top = 72
|
|
Height = 17
|
|
Width = 81
|
|
ZIndex = 0
|
|
AutoSize = False
|
|
Styles.Default = stLabelDef
|
|
WordWrap = False
|
|
Caption = 'DataSource :'
|
|
end
|
|
object cxWebDBDataNavigator1: TcxWebDBDataNavigator
|
|
CustomEvents = <>
|
|
Left = 376
|
|
Top = 112
|
|
Height = 26
|
|
Width = 420
|
|
ZIndex = 0
|
|
Buttons = <
|
|
item
|
|
ButtonType = nbFirst
|
|
Hint = 'First record'
|
|
ImageIndex = 0
|
|
end
|
|
item
|
|
ButtonType = nbPrevPage
|
|
Hint = 'Prior page'
|
|
ImageIndex = 0
|
|
end
|
|
item
|
|
ButtonType = nbPrev
|
|
Hint = 'Prior record'
|
|
ImageIndex = 0
|
|
end
|
|
item
|
|
ButtonType = nbPageSize
|
|
Hint = 'Page size'
|
|
ImageIndex = 0
|
|
end
|
|
item
|
|
ButtonType = nbApplyPageSize
|
|
Hint = 'Apply page size'
|
|
ImageIndex = 0
|
|
end
|
|
item
|
|
ButtonType = nbNext
|
|
Hint = 'Next record'
|
|
ImageIndex = 0
|
|
end
|
|
item
|
|
ButtonType = nbNextPage
|
|
Hint = 'Next page'
|
|
ImageIndex = 0
|
|
end
|
|
item
|
|
ButtonType = nbLast
|
|
Hint = 'Last record'
|
|
ImageIndex = 0
|
|
end
|
|
item
|
|
ButtonType = nbInsert
|
|
Hint = 'Insert record'
|
|
ImageIndex = 0
|
|
end
|
|
item
|
|
ButtonType = nbEdit
|
|
Hint = 'Edit record'
|
|
ImageIndex = 0
|
|
end
|
|
item
|
|
ButtonType = nbDelete
|
|
Hint = 'Delete record'
|
|
ImageIndex = 0
|
|
end
|
|
item
|
|
ButtonType = nbPost
|
|
Hint = 'Post changes'
|
|
ImageIndex = 0
|
|
end
|
|
item
|
|
ButtonType = nbCancel
|
|
Hint = 'Cancel changes'
|
|
ImageIndex = 0
|
|
end
|
|
item
|
|
ButtonType = nbRefresh
|
|
Hint = 'Refresh'
|
|
ImageIndex = 0
|
|
end>
|
|
PageSize = 5
|
|
DataBinding.DataSource = dsExtended
|
|
end
|
|
object dsUnbound: TcxWebDataSource
|
|
CustomEvents = <>
|
|
Fields = <
|
|
item
|
|
DisplayLabel = 'Product'
|
|
Name = 'Product'
|
|
Required = False
|
|
GroupingIndex = -1
|
|
SortingOrder = wsoNone
|
|
ValueType = StringType
|
|
end
|
|
item
|
|
DisplayLabel = 'Description'
|
|
Name = 'Description'
|
|
Required = False
|
|
GroupingIndex = -1
|
|
SortingOrder = wsoNone
|
|
ValueType = StringType
|
|
end
|
|
item
|
|
DisplayLabel = 'Price'
|
|
Name = 'Price'
|
|
Required = False
|
|
GroupingIndex = -1
|
|
SortingOrder = wsoNone
|
|
ValueType = StringType
|
|
end
|
|
item
|
|
DisplayLabel = 'Pucture URL'
|
|
Name = 'Picture'
|
|
Required = False
|
|
GroupingIndex = -1
|
|
SortingOrder = wsoNone
|
|
ValueType = StringType
|
|
end>
|
|
RecordCount = 10
|
|
Left = 248
|
|
Top = 24
|
|
Data = {
|
|
0F00000044617461436F6E74726F6C6C65723104000000120000005463785374
|
|
72696E6756616C75655479706512000000546378537472696E6756616C756554
|
|
79706512000000546378537472696E6756616C75655479706512000000546378
|
|
537472696E6756616C7565547970650A00000001010101010101010101}
|
|
end
|
|
object cxWebLabel3: TcxWebLabel
|
|
CustomEvents = <>
|
|
StyleItem_Default = stHeader1
|
|
Left = 256
|
|
Top = 8
|
|
Height = 32
|
|
Width = 255
|
|
ZIndex = 0
|
|
AutoSize = False
|
|
Styles.Default = stHeader1
|
|
WordWrap = False
|
|
Caption = 'Data Sources Demo'
|
|
end
|
|
object scCommon: TcxWebStyleController
|
|
Left = 576
|
|
Top = 24
|
|
object stHeader1: TcxWebStyleItem
|
|
Style.Borders.Bottom.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Color = clWebBlack
|
|
Style.Borders.Left.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Style = wbsNone
|
|
Style.Borders.Right.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Top.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Width = 0
|
|
Style.Font.Color = clWebPurple
|
|
Style.Font.Name = 'Times New Roman'
|
|
Style.Font.Names.Strings = (
|
|
'Times New Roman')
|
|
Style.Font.Size.Value = 22
|
|
Style.Font.Weight = wfwBold
|
|
end
|
|
object stHeader2: TcxWebStyleItem
|
|
Style.Borders.Bottom.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Color = clWebBlack
|
|
Style.Borders.Left.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Style = wbsNone
|
|
Style.Borders.Right.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Top.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Width = 0
|
|
Style.Font.Decoration = [wfdUnderline]
|
|
Style.Font.Name = 'Tahoma'
|
|
Style.Font.Names.Strings = (
|
|
'Tahoma')
|
|
Style.Font.Size.Value = 11
|
|
Style.Font.Style = wfsNormal
|
|
Style.Font.Transform = wftNone
|
|
Style.Font.Variant = wfvNormal
|
|
Style.Font.Weight = wfwBold
|
|
end
|
|
object stPanel: TcxWebStyleItem
|
|
Style.Borders.Bottom.AssignedValues = [wbavColor]
|
|
Style.Borders.Color = clWebBlack
|
|
Style.Borders.Left.AssignedValues = [wbavColor]
|
|
Style.Borders.Style = wbsNone
|
|
Style.Borders.Right.AssignedValues = [wbavColor]
|
|
Style.Borders.Top.AssignedValues = [wbavColor]
|
|
Style.Borders.Width = thin
|
|
Style.Font.Color = clWebNavy
|
|
Style.Font.Name = 'MS Sans Serif'
|
|
Style.Font.Names.Strings = (
|
|
'MS Sans Serif')
|
|
Style.Font.Size.Value = 12
|
|
Style.Font.Weight = wfwBold
|
|
end
|
|
object stButtonDef: TcxWebStyleItem
|
|
Style.Borders.Bottom.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Color = clWebBlue
|
|
Style.Borders.Left.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Style = wbsSolid
|
|
Style.Borders.Right.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Top.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Width = 1
|
|
Style.Font.Color = clWebAliceBlue
|
|
Style.Font.Name = 'MS Sans Serif'
|
|
Style.Font.Names.Strings = (
|
|
'MS Sans Serif')
|
|
Style.Font.Size.Value = 8
|
|
Style.Font.Style = wfsNormal
|
|
Style.Font.Transform = wftNone
|
|
Style.Font.Variant = wfvNormal
|
|
Style.Font.Weight = wfwNormal
|
|
Style.Shading.Color = clWebCornflowerBlue
|
|
Style.Shading.AssignedValues = [wsavColor]
|
|
end
|
|
object stButtonHover: TcxWebStyleItem
|
|
Style.Borders.Bottom.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Color = clWebDarkBlue
|
|
Style.Borders.Left.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Style = wbsSolid
|
|
Style.Borders.Right.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Top.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Width = 1
|
|
Style.Font.Color = clWebAliceBlue
|
|
Style.Font.Name = 'MS Sans Serif'
|
|
Style.Font.Names.Strings = (
|
|
'MS Sans Serif')
|
|
Style.Font.Size.Value = 8
|
|
Style.Font.Style = wfsNormal
|
|
Style.Font.Transform = wftNone
|
|
Style.Font.Variant = wfvNormal
|
|
Style.Font.Weight = wfwBold
|
|
Style.Shading.Color = clWebCornflowerBlue
|
|
Style.Shading.AssignedValues = [wsavColor]
|
|
end
|
|
object stEditorDef: TcxWebStyleItem
|
|
Style.Borders.Bottom.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Color = clWebGainsboro
|
|
Style.Borders.Left.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Style = wbsSolid
|
|
Style.Borders.Right.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Top.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Width = 1
|
|
Style.Font.Name = 'MS Sans Serif'
|
|
Style.Font.Names.Strings = (
|
|
'MS Sans Serif')
|
|
Style.Font.Style = wfsNormal
|
|
Style.Font.Transform = wftNone
|
|
Style.Font.Variant = wfvNormal
|
|
Style.Font.Weight = wfwNormal
|
|
Style.Shading.Color = clWebWhite
|
|
Style.Shading.AssignedValues = [wsavColor]
|
|
end
|
|
object stEditorHover: TcxWebStyleItem
|
|
Style.Borders.Bottom.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Color = clWebDarkBlue
|
|
Style.Borders.Left.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Style = wbsSolid
|
|
Style.Borders.Right.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Top.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Width = 1
|
|
Style.Font.Name = 'MS Sans Serif'
|
|
Style.Font.Names.Strings = (
|
|
'MS Sans Serif')
|
|
Style.Font.Style = wfsNormal
|
|
Style.Font.Transform = wftNone
|
|
Style.Font.Variant = wfvNormal
|
|
Style.Font.Weight = wfwNormal
|
|
Style.Shading.Color = clWebWhite
|
|
Style.Shading.AssignedValues = [wsavColor]
|
|
end
|
|
object stLabelDef: TcxWebStyleItem
|
|
Style.Borders.Bottom.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Color = clWebBlack
|
|
Style.Borders.Left.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Style = wbsNone
|
|
Style.Borders.Right.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Top.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Width = 0
|
|
Style.Font.Color = clWebNavy
|
|
Style.Font.Name = 'Tahoma'
|
|
Style.Font.Names.Strings = (
|
|
'Tahoma')
|
|
Style.Font.Size.Value = 9
|
|
Style.Font.Style = wfsNormal
|
|
Style.Font.Transform = wftNone
|
|
Style.Font.Variant = wfvNormal
|
|
Style.Font.Weight = wfwNormal
|
|
end
|
|
object stLabelHover: TcxWebStyleItem
|
|
Style.Borders.Bottom.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Color = clWebBlack
|
|
Style.Borders.Left.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Style = wbsNone
|
|
Style.Borders.Right.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Top.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Width = 0
|
|
Style.Font.Color = clWebCrimson
|
|
Style.Font.Name = 'Tahoma'
|
|
Style.Font.Names.Strings = (
|
|
'Tahoma')
|
|
Style.Font.Size.Value = 9
|
|
Style.Font.Style = wfsNormal
|
|
Style.Font.Transform = wftNone
|
|
Style.Font.Variant = wfvNormal
|
|
Style.Font.Weight = wfwBold
|
|
end
|
|
object stTips: TcxWebStyleItem
|
|
Style.Borders.Bottom.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Color = clWebSandyBrown
|
|
Style.Borders.Left.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Style = wbsSolid
|
|
Style.Borders.Right.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Top.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Width = 1
|
|
Style.Font.Name = 'Tahoma'
|
|
Style.Font.Names.Strings = (
|
|
'Tahoma')
|
|
Style.Font.Size.Value = 8
|
|
Style.Font.Style = wfsNormal
|
|
Style.Font.Transform = wftNone
|
|
Style.Font.Variant = wfvNormal
|
|
Style.Font.Weight = wfwNormal
|
|
Style.Shading.Color = 14811135
|
|
Style.Shading.AssignedValues = [wsavColor]
|
|
end
|
|
object stLine1: TcxWebStyleItem
|
|
Style.Borders.Bottom.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Color = clWebBlack
|
|
Style.Borders.Left.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Style = wbsSolid
|
|
Style.Borders.Right.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Top.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Width = thin
|
|
Style.Font.Name = 'Times New Roman'
|
|
Style.Font.Names.Strings = (
|
|
'Times New Roman')
|
|
Style.Font.Size.Value = 12
|
|
Style.Shading.Color = clWebDarkSlateBlue
|
|
Style.Shading.AssignedValues = [wsavColor]
|
|
end
|
|
object stLine2: TcxWebStyleItem
|
|
Style.Borders.Bottom.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Color = clWebSandyBrown
|
|
Style.Borders.Left.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Style = wbsSolid
|
|
Style.Borders.Right.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Top.AssignedValues = [wbavColor, wbavStyle, wbavWidth]
|
|
Style.Borders.Width = 1
|
|
Style.Font.Name = 'Tahoma'
|
|
Style.Font.Names.Strings = (
|
|
'Tahoma')
|
|
Style.Font.Size.Value = 8
|
|
Style.Font.Style = wfsNormal
|
|
Style.Font.Transform = wftNone
|
|
Style.Font.Variant = wfvNormal
|
|
Style.Font.Weight = wfwNormal
|
|
Style.Shading.Color = 14811135
|
|
Style.Shading.AssignedValues = [wsavColor]
|
|
end
|
|
end
|
|
object ADOTable1: TADOTable
|
|
ConnectionString =
|
|
'FILE NAME=C:\Program Files\Common Files\System\OLE DB\Data Links' +
|
|
'\DBDEMOS.udl'
|
|
CursorType = ctStatic
|
|
TableName = 'country'
|
|
Left = 64
|
|
Top = 16
|
|
object ADOTable1Name: TWideStringField
|
|
FieldName = 'Name'
|
|
Size = 24
|
|
end
|
|
object ADOTable1Capital: TWideStringField
|
|
FieldName = 'Capital'
|
|
Size = 24
|
|
end
|
|
object ADOTable1Continent: TWideStringField
|
|
FieldName = 'Continent'
|
|
Size = 24
|
|
end
|
|
object ADOTable1Area: TFloatField
|
|
FieldName = 'Area'
|
|
end
|
|
object ADOTable1Population: TFloatField
|
|
FieldName = 'Population'
|
|
end
|
|
end
|
|
object wbFirst: TcxWebButton
|
|
CustomEvents = <>
|
|
Left = 376
|
|
Top = 152
|
|
Width = 65
|
|
ZIndex = 0
|
|
TabOrder = 2
|
|
Caption = 'First'
|
|
GlyphPosition = gpBeforeText
|
|
OnClick = wbFirstClick
|
|
end
|
|
object wbPrevPage: TcxWebButton
|
|
CustomEvents = <>
|
|
Left = 448
|
|
Top = 152
|
|
Width = 65
|
|
ZIndex = 0
|
|
TabOrder = 3
|
|
Caption = '-5'
|
|
GlyphPosition = gpBeforeText
|
|
OnClick = wbPrevPageClick
|
|
end
|
|
object wbPrev: TcxWebButton
|
|
CustomEvents = <>
|
|
Left = 520
|
|
Top = 152
|
|
Width = 65
|
|
ZIndex = 0
|
|
TabOrder = 4
|
|
Caption = 'Prev'
|
|
GlyphPosition = gpBeforeText
|
|
OnClick = wbPrevClick
|
|
end
|
|
object wbNext: TcxWebButton
|
|
CustomEvents = <>
|
|
Left = 592
|
|
Top = 152
|
|
Width = 65
|
|
ZIndex = 0
|
|
TabOrder = 5
|
|
Caption = 'Next'
|
|
GlyphPosition = gpBeforeText
|
|
OnClick = wbNextClick
|
|
end
|
|
object wbNextPage: TcxWebButton
|
|
CustomEvents = <>
|
|
Left = 664
|
|
Top = 152
|
|
Width = 65
|
|
ZIndex = 0
|
|
TabOrder = 6
|
|
Caption = '+5'
|
|
GlyphPosition = gpBeforeText
|
|
OnClick = wbNextPageClick
|
|
end
|
|
object wbLast: TcxWebButton
|
|
CustomEvents = <>
|
|
Left = 736
|
|
Top = 152
|
|
Width = 65
|
|
ZIndex = 0
|
|
TabOrder = 7
|
|
Caption = 'Last'
|
|
GlyphPosition = gpBeforeText
|
|
OnClick = wbLastClick
|
|
end
|
|
object wbInsert: TcxWebButton
|
|
CustomEvents = <>
|
|
Left = 376
|
|
Top = 184
|
|
Width = 65
|
|
ZIndex = 0
|
|
TabOrder = 8
|
|
Caption = 'Insert'
|
|
GlyphPosition = gpBeforeText
|
|
OnClick = wbInsertClick
|
|
end
|
|
object wbEdit: TcxWebButton
|
|
CustomEvents = <>
|
|
Left = 448
|
|
Top = 184
|
|
Width = 65
|
|
ZIndex = 0
|
|
TabOrder = 9
|
|
Caption = 'Edit'
|
|
GlyphPosition = gpBeforeText
|
|
OnClick = wbEditClick
|
|
end
|
|
object wbDelete: TcxWebButton
|
|
CustomEvents = <>
|
|
Left = 520
|
|
Top = 184
|
|
Width = 65
|
|
ZIndex = 0
|
|
TabOrder = 10
|
|
Caption = 'Delete'
|
|
GlyphPosition = gpBeforeText
|
|
OnClick = wbDeleteClick
|
|
end
|
|
object wbPost: TcxWebButton
|
|
CustomEvents = <>
|
|
Left = 592
|
|
Top = 184
|
|
Width = 65
|
|
ZIndex = 0
|
|
TabOrder = 11
|
|
Caption = 'Post'
|
|
GlyphPosition = gpBeforeText
|
|
OnClick = wbPostClick
|
|
end
|
|
object wbCancel: TcxWebButton
|
|
CustomEvents = <>
|
|
Left = 664
|
|
Top = 184
|
|
Width = 65
|
|
ZIndex = 0
|
|
TabOrder = 12
|
|
Caption = 'Cancel'
|
|
GlyphPosition = gpBeforeText
|
|
OnClick = wbCancelClick
|
|
end
|
|
object wbRefresh: TcxWebButton
|
|
CustomEvents = <>
|
|
Left = 736
|
|
Top = 184
|
|
Width = 65
|
|
ZIndex = 0
|
|
TabOrder = 13
|
|
Caption = 'Refresh'
|
|
GlyphPosition = gpBeforeText
|
|
OnClick = wbRefreshClick
|
|
end
|
|
object Table1: TTable
|
|
Active = True
|
|
DatabaseName = 'DBDEMOS'
|
|
FieldDefs = <
|
|
item
|
|
Name = 'Name'
|
|
DataType = ftString
|
|
Size = 24
|
|
end
|
|
item
|
|
Name = 'Capital'
|
|
DataType = ftString
|
|
Size = 24
|
|
end
|
|
item
|
|
Name = 'Continent'
|
|
DataType = ftString
|
|
Size = 24
|
|
end
|
|
item
|
|
Name = 'Area'
|
|
DataType = ftFloat
|
|
end
|
|
item
|
|
Name = 'Population'
|
|
DataType = ftFloat
|
|
end>
|
|
IndexDefs = <
|
|
item
|
|
Name = 'Table1Index1'
|
|
Fields = 'Name'
|
|
Options = [ixPrimary, ixUnique]
|
|
end>
|
|
StoreDefs = True
|
|
TableName = 'country.db'
|
|
Left = 128
|
|
Top = 16
|
|
object Table1Name: TStringField
|
|
FieldName = 'Name'
|
|
Size = 24
|
|
end
|
|
object Table1Capital: TStringField
|
|
FieldName = 'Capital'
|
|
Size = 24
|
|
end
|
|
object Table1Continent: TStringField
|
|
FieldName = 'Continent'
|
|
Size = 24
|
|
end
|
|
object Table1Area: TFloatField
|
|
FieldName = 'Area'
|
|
end
|
|
object Table1Population: TFloatField
|
|
FieldName = 'Population'
|
|
end
|
|
end
|
|
end
|