editorslookupdemomain.dfm

delphi的的三方控件

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