david
3b29f73ece
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@8 05c56307-c608-d34a-929d-697000501d7a
617 lines
17 KiB
Plaintext
617 lines
17 KiB
Plaintext
object EditorsLookupDemoMainForm: TEditorsLookupDemoMainForm
|
|
Left = 269
|
|
Top = 185
|
|
AutoSize = True
|
|
BorderIcons = [biSystemMenu, biMinimize]
|
|
BorderStyle = bsSingle
|
|
Caption = 'ExpressQuantumGrid EditorsLookupDemo '
|
|
ClientHeight = 340
|
|
ClientWidth = 546
|
|
Color = 15451300
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
Menu = mmMain
|
|
Position = poScreenCenter
|
|
ShowHint = True
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object lbDescription: TLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 546
|
|
Height = 48
|
|
Align = alTop
|
|
Caption =
|
|
'Practice using lookup data-aware editors for reading and writing' +
|
|
'.'#10#13'See also the Storage menu to provide runtime store/restore de' +
|
|
'mo settings.'#10#13'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 = 321
|
|
Width = 546
|
|
Height = 19
|
|
AutoHint = True
|
|
Align = alTop
|
|
Panels = <>
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
SimplePanel = True
|
|
end
|
|
object pnlEditors: TPanel
|
|
Left = 0
|
|
Top = 48
|
|
Width = 546
|
|
Height = 273
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
ParentColor = True
|
|
TabOrder = 1
|
|
object gbIssue: TGroupBox
|
|
Left = 8
|
|
Top = 56
|
|
Width = 329
|
|
Height = 177
|
|
Caption = 'Issue'
|
|
TabOrder = 1
|
|
object Label1: TLabel
|
|
Left = 8
|
|
Top = 16
|
|
Width = 31
|
|
Height = 13
|
|
Caption = 'Name:'
|
|
end
|
|
object Label2: TLabel
|
|
Left = 8
|
|
Top = 58
|
|
Width = 56
|
|
Height = 13
|
|
Caption = 'Description:'
|
|
end
|
|
object Label9: TLabel
|
|
Left = 8
|
|
Top = 38
|
|
Width = 65
|
|
Height = 13
|
|
Caption = 'Issue Creator:'
|
|
end
|
|
object edName: TcxDBTextEdit
|
|
Left = 80
|
|
Top = 10
|
|
Width = 241
|
|
Height = 21
|
|
DataBinding.DataField = 'NAME'
|
|
DataBinding.DataSource = EditorsLookupDemoDataDM.dsItems
|
|
Style.StyleController = EditorsLookupDemoDataDM.StyleController
|
|
TabOrder = 0
|
|
end
|
|
object meDescription: TcxDBMemo
|
|
Left = 8
|
|
Top = 73
|
|
Width = 313
|
|
Height = 97
|
|
DataBinding.DataField = 'DESCRIPTION'
|
|
DataBinding.DataSource = EditorsLookupDemoDataDM.dsItems
|
|
Properties.ScrollBars = ssVertical
|
|
Style.StyleController = EditorsLookupDemoDataDM.StyleController
|
|
TabOrder = 2
|
|
end
|
|
object lcbCreator: TcxDBLookupComboBox
|
|
Left = 80
|
|
Top = 33
|
|
Width = 241
|
|
Height = 21
|
|
DataBinding.DataField = 'CREATORID'
|
|
DataBinding.DataSource = EditorsLookupDemoDataDM.dsItems
|
|
Properties.DropDownListStyle = lsEditList
|
|
Properties.ImmediateDropDown = False
|
|
Properties.KeyFieldNames = 'ID'
|
|
Properties.ListColumns = <
|
|
item
|
|
FieldName = 'UserName'
|
|
end>
|
|
Properties.ListOptions.GridLines = glNone
|
|
Properties.ListOptions.ShowHeader = False
|
|
Properties.ListSource = EditorsLookupDemoDataDM.dsUsers
|
|
Properties.MaxLength = 50
|
|
Properties.OnNewLookupDisplayText = lcbCreatorNewLookupDisplayText
|
|
Style.Color = 16247513
|
|
Style.StyleController = EditorsLookupDemoDataDM.StyleController
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
object gbInfo: TGroupBox
|
|
Left = 344
|
|
Top = 64
|
|
Width = 193
|
|
Height = 81
|
|
Caption = 'Info'
|
|
TabOrder = 2
|
|
object Label3: TLabel
|
|
Left = 8
|
|
Top = 16
|
|
Width = 34
|
|
Height = 13
|
|
Caption = 'Priority:'
|
|
end
|
|
object Label4: TLabel
|
|
Left = 8
|
|
Top = 39
|
|
Width = 40
|
|
Height = 13
|
|
Caption = 'Created:'
|
|
end
|
|
object cbPriority: TcxDBImageComboBox
|
|
Left = 64
|
|
Top = 10
|
|
Width = 121
|
|
Height = 21
|
|
DataBinding.DataField = 'PRIORITY'
|
|
DataBinding.DataSource = EditorsLookupDemoDataDM.dsItems
|
|
Properties.Images = EditorsLookupDemoDataDM.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>
|
|
Style.StyleController = EditorsLookupDemoDataDM.StyleController
|
|
TabOrder = 0
|
|
end
|
|
object deCreateDate: TcxDBDateEdit
|
|
Left = 64
|
|
Top = 33
|
|
Width = 121
|
|
Height = 21
|
|
DataBinding.DataField = 'CREATEDDATE'
|
|
DataBinding.DataSource = EditorsLookupDemoDataDM.dsItems
|
|
Style.StyleController = EditorsLookupDemoDataDM.StyleController
|
|
TabOrder = 1
|
|
end
|
|
object chbRequest: TcxDBCheckBox
|
|
Left = 8
|
|
Top = 56
|
|
Width = 121
|
|
Height = 21
|
|
Caption = 'Request'
|
|
DataBinding.DataField = 'TYPE'
|
|
DataBinding.DataSource = EditorsLookupDemoDataDM.dsItems
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
object gbStatus: TGroupBox
|
|
Left = 344
|
|
Top = 144
|
|
Width = 193
|
|
Height = 89
|
|
Caption = 'Status'
|
|
TabOrder = 3
|
|
object Label5: TLabel
|
|
Left = 8
|
|
Top = 20
|
|
Width = 33
|
|
Height = 13
|
|
Caption = 'Status:'
|
|
end
|
|
object Label6: TLabel
|
|
Left = 8
|
|
Top = 43
|
|
Width = 43
|
|
Height = 13
|
|
Caption = 'Modified:'
|
|
end
|
|
object Label7: TLabel
|
|
Left = 8
|
|
Top = 67
|
|
Width = 28
|
|
Height = 13
|
|
Caption = 'Fixed:'
|
|
end
|
|
object cbStatus: TcxDBImageComboBox
|
|
Left = 64
|
|
Top = 14
|
|
Width = 121
|
|
Height = 21
|
|
DataBinding.DataField = 'STATUS'
|
|
DataBinding.DataSource = EditorsLookupDemoDataDM.dsItems
|
|
Properties.Images = EditorsLookupDemoDataDM.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>
|
|
Style.StyleController = EditorsLookupDemoDataDM.StyleController
|
|
TabOrder = 0
|
|
end
|
|
object deLastModifiedDate: TcxDBDateEdit
|
|
Left = 64
|
|
Top = 38
|
|
Width = 121
|
|
Height = 21
|
|
DataBinding.DataField = 'LASTMODIFIEDDATE'
|
|
DataBinding.DataSource = EditorsLookupDemoDataDM.dsItems
|
|
Style.StyleController = EditorsLookupDemoDataDM.StyleController
|
|
TabOrder = 1
|
|
end
|
|
object deFixedDate: TcxDBDateEdit
|
|
Left = 64
|
|
Top = 62
|
|
Width = 121
|
|
Height = 21
|
|
DataBinding.DataField = 'FIXEDDATE'
|
|
DataBinding.DataSource = EditorsLookupDemoDataDM.dsItems
|
|
Style.StyleController = EditorsLookupDemoDataDM.StyleController
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
object DBNavigator: TcxDBNavigator
|
|
Left = 8
|
|
Top = 240
|
|
Width = 285
|
|
Height = 25
|
|
Buttons.PageSize = 10
|
|
DataSource = EditorsLookupDemoDataDM.dsItems
|
|
TabOrder = 4
|
|
end
|
|
object gbProject: TGroupBox
|
|
Left = 8
|
|
Top = 8
|
|
Width = 529
|
|
Height = 49
|
|
Caption = 'Primary Info'
|
|
TabOrder = 0
|
|
object Label8: TLabel
|
|
Left = 8
|
|
Top = 22
|
|
Width = 36
|
|
Height = 13
|
|
Caption = 'Project:'
|
|
end
|
|
object Label10: TLabel
|
|
Left = 268
|
|
Top = 22
|
|
Width = 62
|
|
Height = 13
|
|
Caption = 'Issue Owner:'
|
|
end
|
|
object lcbProject: TcxDBLookupComboBox
|
|
Left = 44
|
|
Top = 16
|
|
Width = 217
|
|
Height = 21
|
|
DataBinding.DataField = 'PROJECTID'
|
|
DataBinding.DataSource = EditorsLookupDemoDataDM.dsItems
|
|
Properties.DropDownAutoSize = True
|
|
Properties.KeyFieldNames = 'ID'
|
|
Properties.ListColumns = <
|
|
item
|
|
Width = 200
|
|
FieldName = 'NAME'
|
|
end
|
|
item
|
|
Caption = 'Manager'
|
|
Width = 100
|
|
FieldName = 'Manager'
|
|
end>
|
|
Properties.ListSource = EditorsLookupDemoDataDM.dsProjects
|
|
Style.Color = 16247513
|
|
Style.StyleController = EditorsLookupDemoDataDM.StyleController
|
|
TabOrder = 0
|
|
end
|
|
object lcbOwner: TcxDBLookupComboBox
|
|
Left = 330
|
|
Top = 16
|
|
Width = 191
|
|
Height = 21
|
|
DataBinding.DataField = 'OWNERID'
|
|
DataBinding.DataSource = EditorsLookupDemoDataDM.dsItems
|
|
Properties.DropDownListStyle = lsEditList
|
|
Properties.ImmediateDropDown = False
|
|
Properties.KeyFieldNames = 'ID'
|
|
Properties.ListColumns = <
|
|
item
|
|
FieldName = 'UserName'
|
|
end>
|
|
Properties.ListOptions.GridLines = glNone
|
|
Properties.ListOptions.ShowHeader = False
|
|
Properties.ListSource = EditorsLookupDemoDataDM.dsUsers
|
|
Properties.MaxLength = 50
|
|
Properties.OnNewLookupDisplayText = lcbCreatorNewLookupDisplayText
|
|
Style.Color = 16247513
|
|
Style.StyleController = EditorsLookupDemoDataDM.StyleController
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
end
|
|
object mmMain: TMainMenu
|
|
Left = 300
|
|
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 LookupOptions1: TMenuItem
|
|
Caption = 'Lookup &Options'
|
|
object miEditMode: TMenuItem
|
|
Tag = 3
|
|
Caption = '&Edit mode'
|
|
Checked = True
|
|
GroupIndex = 2
|
|
RadioItem = True
|
|
OnClick = ChangeLookupModeClick
|
|
end
|
|
object miPickMode: TMenuItem
|
|
Tag = 1
|
|
Caption = '&Pick mode'
|
|
GroupIndex = 2
|
|
Hint = 'Pick mode with incremental filtering'
|
|
RadioItem = True
|
|
OnClick = ChangeLookupModeClick
|
|
end
|
|
object miStandardMode: TMenuItem
|
|
Tag = 2
|
|
Caption = '&Standard mode'
|
|
GroupIndex = 2
|
|
Hint = 'Standard lookup mode'
|
|
RadioItem = True
|
|
OnClick = ChangeLookupModeClick
|
|
end
|
|
end
|
|
object N1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object miLookFeel: TMenuItem
|
|
Caption = '&Look&&Feel'
|
|
OnClick = miLookFeelClick
|
|
object miKind: TMenuItem
|
|
Caption = 'Kind'
|
|
OnClick = miKindClick
|
|
object miFlat: TMenuItem
|
|
Caption = '&Flat'
|
|
Hint = 'Setting this option changes the editors appearance to Flat style'
|
|
RadioItem = True
|
|
OnClick = miLookAndFeelKindClick
|
|
end
|
|
object miStandard: TMenuItem
|
|
Caption = '&Standard'
|
|
Hint =
|
|
'Setting this option changes the editors appearance to Standard s' +
|
|
'tyle'
|
|
RadioItem = True
|
|
OnClick = miLookAndFeelKindClick
|
|
end
|
|
object miUltraFlat: TMenuItem
|
|
Caption = '&Ultra Flat'
|
|
Checked = True
|
|
Hint =
|
|
'Setting this option changes the editors appearance to Ultra Flat' +
|
|
' 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 miNativeStyle: TMenuItem
|
|
Caption = '&Native Style'
|
|
Checked = True
|
|
Hint =
|
|
'Setting this option changes the appearance of the editors to the' +
|
|
' native style'
|
|
OnClick = miNativeStyleClick
|
|
end
|
|
end
|
|
end
|
|
object miStorage: TMenuItem
|
|
Caption = '&Storage'
|
|
object miStorageActive: TMenuItem
|
|
Caption = 'Save the settings before closing the demo '
|
|
Checked = True
|
|
Hint =
|
|
'Determines whether the settings are stored before closing the de' +
|
|
'mo'
|
|
OnClick = miStorageActiveClick
|
|
end
|
|
object N6: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object miStoringGridLookFeel: TMenuItem
|
|
Caption = 'Save the Demo'#39's &Look&&Feel before closing the demo '
|
|
Checked = True
|
|
Hint =
|
|
'Determines whether the Demo'#39's Look&Feel is stored before closing' +
|
|
' the demo'
|
|
OnClick = miStoringGridLookFeelClick
|
|
end
|
|
object N3: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object miStorageType: TMenuItem
|
|
Caption = 'Storage &Location'
|
|
object miIniStoreType: TMenuItem
|
|
Caption = '&Ini file'
|
|
Checked = True
|
|
Hint = 'Setting this option changes the current storage to an INI file'
|
|
RadioItem = True
|
|
OnClick = StorageTypeClick
|
|
end
|
|
object miRegistryStoreType: TMenuItem
|
|
Tag = 1
|
|
Caption = '&Registry'
|
|
Hint = 'Setting this option changes the current storage to the registry'
|
|
RadioItem = True
|
|
OnClick = StorageTypeClick
|
|
end
|
|
object miMemoryStoreType: TMenuItem
|
|
Tag = 2
|
|
Caption = '&Memory'
|
|
Hint = 'Setting this option changes the current storage to memory'
|
|
RadioItem = True
|
|
OnClick = StorageTypeClick
|
|
end
|
|
end
|
|
object N5: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object miStore: TMenuItem
|
|
Caption = '&Store'
|
|
Hint = 'Saves the demo settings to the current storage'
|
|
OnClick = miStoreClick
|
|
end
|
|
object miRestore: TMenuItem
|
|
Caption = '&Restore'
|
|
Hint = 'Restores the demo settings from the current storage'
|
|
OnClick = miRestoreClick
|
|
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 = 332
|
|
Top = 8
|
|
end
|
|
object cxPropertiesStore: TcxPropertiesStore
|
|
Components = <
|
|
item
|
|
Component = LookAndFeelController
|
|
Properties.Strings = (
|
|
'Kind'
|
|
'Name'
|
|
'NativeStyle'
|
|
'Tag')
|
|
end
|
|
item
|
|
Component = lcbCreator
|
|
Properties.Strings = (
|
|
'Properties.DropDownListStyle'
|
|
'Properties.ImmediateDropDown')
|
|
end
|
|
item
|
|
Component = lcbOwner
|
|
Properties.Strings = (
|
|
'Properties.DropDownListStyle'
|
|
'Properties.ImmediateDropDown')
|
|
end
|
|
item
|
|
Component = lcbProject
|
|
Properties.Strings = (
|
|
'Properties.DropDownListStyle')
|
|
end
|
|
item
|
|
Component = miEditMode
|
|
Properties.Strings = (
|
|
'Checked')
|
|
end
|
|
item
|
|
Component = miPickMode
|
|
Properties.Strings = (
|
|
'Checked')
|
|
end
|
|
item
|
|
Component = miStandardMode
|
|
Properties.Strings = (
|
|
'Checked')
|
|
end>
|
|
StorageName = 'cxPropertiesStore.ini'
|
|
Left = 364
|
|
Top = 8
|
|
end
|
|
object cxStorageActiveStore: TcxPropertiesStore
|
|
Components = <
|
|
item
|
|
Component = cxPropertiesStore
|
|
Properties.Strings = (
|
|
'Active'
|
|
'StorageName'
|
|
'StorageType')
|
|
end
|
|
item
|
|
Component = miIniStoreType
|
|
Properties.Strings = (
|
|
'Checked')
|
|
end
|
|
item
|
|
Component = miMemoryStoreType
|
|
Properties.Strings = (
|
|
'Checked')
|
|
end
|
|
item
|
|
Component = miRegistryStoreType
|
|
Properties.Strings = (
|
|
'Checked')
|
|
end
|
|
item
|
|
Component = miStorageActive
|
|
Properties.Strings = (
|
|
'Checked')
|
|
end
|
|
item
|
|
Component = miStoringGridLookFeel
|
|
Properties.Strings = (
|
|
'Checked'
|
|
'Enabled')
|
|
end>
|
|
StorageName = 'cxStorageActiveStore.INI'
|
|
Left = 400
|
|
Top = 8
|
|
end
|
|
end
|