Delphi 5 for Professionals/DELPHI5.iso/Runimage/Delphi50/Help/Examples/Combobox/combform.dfm/combform.txt

Text File | 1999-08-11 | 4.5 KB | 228 lines

object ComboForm: TComboForm
  Left = 200
  Top = 108
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'ComboBox demo'
  ClientHeight = 281
  ClientWidth = 611
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 288
    Top = 48
    Width = 82
    Height = 13
    Caption = 'Current selection:'
  end
  object Label2: TLabel
    Left = 305
    Top = 82
    Width = 65
    Height = 13
    Caption = 'Current index:'
  end
  object Label3: TLabel
    Left = 241
    Top = 116
    Width = 129
    Height = 13
    Caption = 'Length of current selection:'
  end
  object Label4: TLabel
    Left = 321
    Top = 150
    Width = 49
    Height = 13
    Caption = 'Edit string:'
  end
  object Label5: TLabel
    Left = 271
    Top = 176
    Width = 99
    Height = 13
    Caption = 'Length of Edit String:'
  end
  object Bevel1: TBevel
    Left = 0
    Top = 0
    Width = 611
    Height = 2
    Align = alTop
  end
  object CbDrop: TComboBox
    Left = 40
    Top = 48
    Width = 178
    Height = 21
    ItemHeight = 13
    Items.Strings = (
      'in'
      'this'
      'box'
      'we'
      'have'
      'a'
      'list'
      'of'
      'strings')
    TabOrder = 0
    Visible = False
    OnChange = ComboChange
  end
  object CbDropList: TComboBox
    Left = 40
    Top = 48
    Width = 178
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    Items.Strings = (
      'Closer'
      'Still'
      'Substance'
      'Little Earthquakes'
      'Under the Pink'
      'Boys for Pele')
    TabOrder = 1
    Visible = False
    OnChange = ComboChange
  end
  object CbSimple: TComboBox
    Left = 40
    Top = 48
    Width = 178
    Height = 129
    Style = csSimple
    ItemHeight = 13
    Items.Strings = (
      'Return of the Native'
      'Jude the Obscure'
      'One Hundred Years of Solitude'
      'The Autumn of the Patriarch'
      'Idoru'
      'Neuromancer')
    TabOrder = 2
    OnChange = ComboChange
  end
  object EdCursel: TEdit
    Left = 384
    Top = 48
    Width = 178
    Height = 21
    ReadOnly = True
    TabOrder = 3
  end
  object EdCuridx: TEdit
    Left = 384
    Top = 80
    Width = 178
    Height = 21
    ReadOnly = True
    TabOrder = 4
  end
  object EdCurlen: TEdit
    Left = 384
    Top = 112
    Width = 178
    Height = 21
    ReadOnly = True
    TabOrder = 5
  end
  object EdEdit: TEdit
    Left = 384
    Top = 144
    Width = 178
    Height = 21
    ReadOnly = True
    TabOrder = 6
  end
  object EdEditlen: TEdit
    Left = 384
    Top = 176
    Width = 178
    Height = 21
    ReadOnly = True
    TabOrder = 7
  end
  object MainMenu1: TMainMenu
    Left = 8
    Top = 8
    object ComboStyle: TMenuItem
      Caption = '&ComboBox'
      OnClick = ComboStyleClick
      object CmSimple: TMenuItem
        Caption = '&Simple'
        OnClick = CmSimpleClick
      end
      object CmDrop: TMenuItem
        Caption = '&Dropdown'
        OnClick = CmDropClick
      end
      object CmDropList: TMenuItem
        Caption = 'Dropdown &list'
        OnClick = CmDropListClick
      end
    end
    object Add1: TMenuItem
      Caption = '&Add'
      object CmAddString: TMenuItem
        Caption = '&String...'
        OnClick = CmAddStringClick
      end
      object CmAddStringAt: TMenuItem
        Caption = 'String &at...'
        OnClick = CmAddStringAtClick
      end
    end
    object Search1: TMenuItem
      Caption = '&Find'
      object CmFindString: TMenuItem
        Caption = '&String...'
        OnClick = CmFindStringClick
      end
      object CmFindIndex: TMenuItem
        Caption = '&Index...'
        OnClick = CmFindIndexClick
      end
    end
    object CmDelete: TMenuItem
      Caption = '&Delete'
      object CmDelString: TMenuItem
        Caption = '&String...'
        OnClick = CmDelStringClick
      end
      object CmDelIndex: TMenuItem
        Caption = '&Index...'
        OnClick = CmDelIndexClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object CmClear: TMenuItem
        Caption = '&All'
        OnClick = CmClearClick
      end
    end
    object CmList: TMenuItem
      Caption = '&List'
      OnClick = CmListClick
      object CmShowList: TMenuItem
        Caption = '&Show'
        OnClick = CmShowListClick
      end
      object CmSortList: TMenuItem
        Caption = 'So&rt'
        OnClick = CmSortListClick
      end
    end
  end
end