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