lazarus/ide/procedurelist.lfm

object ProcedureListForm: TProcedureListForm
  Left = 93
  Height = 327
  Top = 186
  Width = 638
  HorzScrollBar.Page = 637
  VertScrollBar.Page = 326
  ActiveControl = cbObjects
  Caption = 'Procedure List - '
  ClientHeight = 327
  ClientWidth = 638
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  OnResize = FormResize
  OnShow = FormShow
  Position = poDefault
  object StatusBar: TStatusBar
    Height = 24
    Top = 303
    Width = 638
    Panels = <    
      item
        Width = 400
      end    
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object TB: TToolBar
    Height = 26
    Width = 638
    Caption = 'TB'
    Flat = True
    TabOrder = 1
    object tbAbout: TToolButton
      Left = 136
      Hint = 'About'
      Top = 2
      Caption = 'tbAbout'
      ImageIndex = 9
      ParentShowHint = False
      ShowHint = True
      OnClick = tbAboutClick
    end
    object ToolButton2: TToolButton
      Left = 131
      Top = 2
      Width = 5
      Caption = 'ToolButton2'
      Style = tbsDivider
    end
    object tbJumpTo: TToolButton
      Left = 108
      Hint = 'Jump To Selection'
      Top = 2
      Caption = 'Goto'
      ImageIndex = 5
      ParentShowHint = False
      ShowHint = True
      OnClick = LVDblClick
    end
    object ToolButton4: TToolButton
      Left = 103
      Top = 2
      Width = 5
      Caption = 'ToolButton4'
      Style = tbsDivider
    end
    object tbFilterAny: TToolButton
      Left = 80
      Hint = 'Filter by matching any part of method'
      Top = 2
      Caption = 'tbFilterAny'
      Down = True
      Grouped = True
      ImageIndex = 8
      ParentShowHint = False
      ShowHint = True
      Style = tbsCheck
    end
    object tbFilterStart: TToolButton
      Left = 57
      Hint = 'Filter by matching with start of method'
      Top = 2
      Caption = 'tbFilterStart'
      Grouped = True
      ImageIndex = 7
      ParentShowHint = False
      ShowHint = True
      Style = tbsCheck
    end
    object ToolButton7: TToolButton
      Left = 52
      Top = 2
      Width = 5
      Caption = 'ToolButton7'
      Style = tbsDivider
    end
    object tbChangeFont: TToolButton
      Left = 29
      Hint = 'Change Font'
      Top = 2
      Caption = 'tbChangeFont'
      ImageIndex = 4
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton9: TToolButton
      Left = 24
      Top = 2
      Width = 5
      Caption = 'ToolButton9'
      Style = tbsDivider
    end
    object tbCopy: TToolButton
      Left = 1
      Hint = 'Copy method name to the clipboard'
      Top = 2
      Caption = 'tbCopy'
      ImageIndex = 6
      ParentShowHint = False
      ShowHint = True
      OnClick = tbCopyClick
    end
  end
  object pnlHeader: TPanel
    Height = 38
    Top = 26
    Width = 638
    Align = alTop
    BevelOuter = bvNone
    ClientHeight = 38
    ClientWidth = 638
    Color = clLime
    ParentColor = False
    TabOrder = 2
    object pnlObjects: TPanel
      Left = 256
      Height = 38
      Width = 382
      Align = alClient
      BevelOuter = bvNone
      ClientHeight = 38
      ClientWidth = 382
      ParentColor = False
      TabOrder = 0
      object lblObjects: TLabel
        AnchorSideTop.Control = cbObjects
        AnchorSideTop.Side = asrCenter
        Left = 8
        Height = 17
        Top = 10
        Width = 68
        Caption = '&Objects'
        ParentColor = False
      end
      object cbObjects: TComboBox
        Left = 64
        Height = 21
        Top = 8
        Width = 311
        Anchors = [akTop, akLeft, akRight]
        AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
        MaxLength = 0
        OnChange = cbObjectsChange
        Sorted = True
        Style = csDropDownList
        TabOrder = 0
      end
    end
    object pnlSearch: TPanel
      Height = 38
      Width = 256
      Align = alLeft
      BevelOuter = bvNone
      ClientHeight = 38
      ClientWidth = 256
      ParentColor = False
      TabOrder = 1
      object lblSearch: TLabel
        AnchorSideTop.Control = edMethods
        AnchorSideTop.Side = asrCenter
        Left = 11
        Height = 17
        Top = 11
        Width = 63
        Caption = '&Search'
        ParentColor = False
      end
      object edMethods: TEdit
        Left = 68
        Height = 23
        Top = 8
        Width = 180
        Anchors = [akTop, akLeft, akRight]
        OnChange = edMethodsChange
        OnKeyDown = edMethodsKeyDown
        OnKeyPress = edMethodsKeyPress
        TabOrder = 0
      end
    end
  end
  object LV: TListView
    Height = 239
    Top = 64
    Width = 638
    Align = alClient
    Columns = <    
      item
      end    
      item
        Caption = 'Procedure'
        Width = 300
      end    
      item
        Caption = 'Type'
      end    
      item
        Caption = 'Line'
      end>
    HideSelection = False
    Items.LazData = {
      4C0000000100000000000000FFFFFFFFFFFFFFFF03000000000000000E000000
      54466F726D2E54657374466F75720800000046756E6374696F6E020000003234
      FFFFFFFFFFFFFFFFFFFFFFFF
    }
    ReadOnly = True
    RowSelect = True
    ScrollBars = ssAutoBoth
    TabOrder = 0
    ViewStyle = vsReport
    OnDblClick = LVDblClick
    OnKeyPress = edMethodsKeyPress
    OnSelectItem = LVSelectItem
  end
end