david
637d8e92fd
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@26 05c56307-c608-d34a-929d-697000501d7a
606 lines
17 KiB
Plaintext
606 lines
17 KiB
Plaintext
inherited EditorsLookupDemoMainForm: TEditorsLookupDemoMainForm
|
|
Left = 345
|
|
Top = 204
|
|
VertScrollBar.Range = 0
|
|
BorderIcons = [biSystemMenu, biMinimize]
|
|
BorderStyle = bsSingle
|
|
Caption = 'ExpressVerticalGrid EditorsLookup Demo'
|
|
ClientHeight = 336
|
|
ClientWidth = 548
|
|
Color = 15451300
|
|
ShowHint = True
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
inherited lbDescrip: TLabel
|
|
Width = 548
|
|
Height = 48
|
|
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'See Help/About for other things to try.'
|
|
Color = 12937777
|
|
Font.Color = clWhite
|
|
end
|
|
inherited sbMain: TStatusBar
|
|
Top = 317
|
|
Width = 548
|
|
end
|
|
inherited memAboutText: TMemo
|
|
Left = 536
|
|
Top = 208
|
|
Lines.Strings = (
|
|
'In this demo you can:'
|
|
''
|
|
'- Customize the demo as you wish (see the Options menu)'
|
|
' '
|
|
|
|
'- Set the Storage Location to IniFile, Registry or Memory (see S' +
|
|
'torage/Storage Location)'
|
|
' '
|
|
|
|
'- Store/Restore the demo settings in/from the current properties' +
|
|
' storage (see Storage/Store and Storage/Restore)'
|
|
' '
|
|
|
|
'- Activate/Deactivate auto saving of the demo settings before cl' +
|
|
'osing the demo (see Storage/Save the settings before closing the' +
|
|
' demo)'
|
|
''
|
|
'- Use data-aware lookup editors'
|
|
''
|
|
|
|
'- Change the Project'#39's Name via the Project lookup editor (using' +
|
|
' incremental filtering)'
|
|
''
|
|
|
|
'- Switch between the Edit, Standard and Pick lookup modes. (see ' +
|
|
'Options/Lookup Options):'
|
|
''
|
|
|
|
'Edit mode: switches the '#39'Issue Creator'#39' and '#39'Issue Owner'#39' editor' +
|
|
' to edit mode. Type some text and press Enter (or set focus to a' +
|
|
'nother control). You will see the NewUser form.'
|
|
''
|
|
|
|
'Standard mode: switches the '#39'Project Name'#39', '#39'Issue Creator'#39' and ' +
|
|
#39'Issue Owner'#39' editors to the standard mode. Focus on either edit' +
|
|
'or and press a letter key. The editor will automatically locate ' +
|
|
'the first record with a value starting with the typed letter.'
|
|
''
|
|
|
|
'Pick mode: switches the '#39'Project Name'#39', '#39'Issue Creator'#39' and '#39'Iss' +
|
|
'ue Owner'#39' editors to incremental filtering mode. Select the cont' +
|
|
'ent of a cell and type some text. A dropdown window will be open' +
|
|
'ed and records will be filtered according to the typed text.'
|
|
''
|
|
|
|
'- See the relationship between the editor'#39's properties and the d' +
|
|
'atasets in use.')
|
|
TabOrder = 2
|
|
end
|
|
object pnlEditors: TPanel [3]
|
|
Left = 0
|
|
Top = 48
|
|
Width = 548
|
|
Height = 269
|
|
Align = alClient
|
|
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.IncrementalFiltering = 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.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 = 255
|
|
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 = 20
|
|
Width = 36
|
|
Height = 13
|
|
Caption = 'Project:'
|
|
end
|
|
object Label10: TLabel
|
|
Left = 268
|
|
Top = 20
|
|
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.IncrementalFiltering = False
|
|
Properties.KeyFieldNames = 'ID'
|
|
Properties.ListColumns = <
|
|
item
|
|
Width = 200
|
|
FieldName = 'NAME'
|
|
end
|
|
item
|
|
Caption = 'Manager'
|
|
Width = 100
|
|
FieldName = 'Manager'
|
|
end>
|
|
Properties.ListSource = EditorsLookupDemoDataDM.dsProjects
|
|
Style.StyleController = EditorsLookupDemoDataDM.StyleController
|
|
TabOrder = 0
|
|
end
|
|
object lcbOwner: TcxDBLookupComboBox
|
|
Left = 332
|
|
Top = 16
|
|
Width = 191
|
|
Height = 21
|
|
DataBinding.DataField = 'OWNERID'
|
|
DataBinding.DataSource = EditorsLookupDemoDataDM.dsItems
|
|
Properties.DropDownListStyle = lsEditList
|
|
Properties.ImmediateDropDown = False
|
|
Properties.IncrementalFiltering = 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.StyleController = EditorsLookupDemoDataDM.StyleController
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
end
|
|
inherited mmMain: TMainMenu
|
|
inherited miOptions: TMenuItem
|
|
Caption = 'Options'
|
|
object LookupOptions1: TMenuItem [0]
|
|
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 [1]
|
|
Caption = '-'
|
|
end
|
|
end
|
|
object miStorage: TMenuItem [2]
|
|
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
|
|
end
|
|
object cxPropertiesStore: TcxPropertiesStore
|
|
Components = <
|
|
item
|
|
Component = actShowDemoDescription
|
|
Properties.Strings = (
|
|
'Checked')
|
|
end
|
|
item
|
|
Component = cxLookAndFeelController
|
|
Properties.Strings = (
|
|
'Kind'
|
|
'Name'
|
|
'NativeStyle'
|
|
'Tag')
|
|
end
|
|
item
|
|
Component = lbDescrip
|
|
Properties.Strings = (
|
|
'Visible')
|
|
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 = miFlat
|
|
Properties.Strings = (
|
|
'Checked')
|
|
end
|
|
item
|
|
Component = miNativeStyle
|
|
Properties.Strings = (
|
|
'Checked')
|
|
end
|
|
item
|
|
Component = miPickMode
|
|
Properties.Strings = (
|
|
'Checked')
|
|
end
|
|
item
|
|
Component = miStandard
|
|
Properties.Strings = (
|
|
'Checked')
|
|
end
|
|
item
|
|
Component = miStandardMode
|
|
Properties.Strings = (
|
|
'Checked')
|
|
end
|
|
item
|
|
Component = miUltraFlat
|
|
Properties.Strings = (
|
|
'Checked')
|
|
end>
|
|
StorageName = 'cxPropertiesStore.ini'
|
|
Left = 8
|
|
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 = 352
|
|
Top = 8
|
|
end
|
|
end
|