ListUnit.fmx

object ListForm: TListForm
  Left = 532
  Top = 178
  Caption = 'List'
  ClientHeight = 452
  ClientWidth = 393
  Position = poOwnerFormCenter
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  object Panel1: TPanel
Position.X = 0.000000000000000000
Position.Y = 411.000000000000000000
    Width = 393
    Height = 41
    Align = alBottom
    TabOrder = 1
    object btOK: TButton
Position.X = 230.000000000000000000
Position.Y = 9.000000000000000000
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Text = 'OK'
      Enabled = False
      ModalResult = 1
      TabOrder = 0
    end
    object btCancel: TButton
Position.X = 311.000000000000000000
Position.Y = 9.000000000000000000
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Cancel = True
      Text = 'Cancel'
      ModalResult = 2
      TabOrder = 1
    end
  end
  object pnSearch: TPanel
Position.X = 0.000000000000000000
Position.Y = 0.000000000000000000
    Width = 393
    Height = 46
    Align = alTop
    TabOrder = 2
    object edSearchMask: TEdit
Position.X = 6.000000000000000000
Position.Y = 18.000000000000000000
      Width = 377
      Height = 21
      TabOrder = 0
      OnChange = edSearchMaskChange
    end
object edSearchMask_LBL: TLabel
Position.X = 6.000000000000000000
Position.Y = 4.000000000000000000
Width = 62
Height = 13
Text = 'Search mask'
WordWrap = False
end
  end
  object lvList: TListView
Position.X = 0.000000000000000000
Position.Y = 46.000000000000000000
    Width = 393
    Height = 365
    Align = alClient
    Columns = <
      item
        Caption = 'ID'
      end
      item
        Caption = 'Value'
      end>
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = '@Arial Unicode MS'
    Font.Style = []
    HideSelection = False
    ReadOnly = True
    RowSelect = True
    ParentFont = False
    SortType = stData
    TabOrder = 0
    ViewStyle = vsReport
    OnChange = lvList2Change
    OnColumnClick = lvListColumnClick
    OnDblClick = lvList2DblClick
  end
end