editorslookupdemomain.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

        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