object Popup: TPopup
  Left = 0
  Top = 0
  BorderStyle = bsNone
  Caption = 'Popup'
  ClientHeight = 568
  ClientWidth = 211
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = 'Arial'
  Font.Style = []
  FormStyle = fsStayOnTop
  KeyPreview = True
  OldCreateOrder = False
  Position = poDesigned
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FomDestroy
  PixelsPerInch = 144
  TextHeight = 17
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 211
    Height = 568
    Align = alClient
    BevelKind = bkFlat
    BevelOuter = bvNone
    Caption = 'Panel1'
    TabOrder = 0
    object ScrollingCtrl: TScrollingCtrl
      Left = 0
      Top = 0
      Width = 207
      Height = 564
      Align = alClient
      AutoShowEditor = False
      ColorItemDefault = clMenu
      ColorItemFocused = clSkyBlue
      ColorItemSelected = clSkyBlue
      DefaultItemHeight = 21
      Color = clMenu
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      HideSelection = False
      HorzSpace = 2
      ParentBackground = False
      ParentColor = False
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 0
      TabStop = True
      TopOffset = 2
      VertSpace = 0
      OnContextPopup = ScrollingCtrlContextPopup
      OnKeyDown = ScrollingCtrlKeyDown
    end
  end
  object PopupMenu1: TPopupMenu
    AutoPopup = False
    OnPopup = PopupMenu1Popup
    Left = 56
    Top = 120
    object mnuEdit: TMenuItem
      Caption = '&Edit'
      ShortCut = 13
      OnClick = mnuEditClick
    end
    object mnuInsert: TMenuItem
      Caption = '&Insert'
      ShortCut = 45
      OnClick = mnuInsertClick
    end
    object mnuDelete: TMenuItem
      Caption = 'Dele&te'
      ShortCut = 46
      OnClick = mnuDeleteClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object mnuMoveUp: TMenuItem
      Caption = 'Move &Up'
      ShortCut = 16469
      OnClick = mnuMoveUpClick
    end
    object mnuMoveDown: TMenuItem
      Caption = 'Move &Down'
      ShortCut = 16452
      OnClick = mnuMoveDownClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object mnuMakePopup: TMenuItem
      Caption = 'Make &Popup'
      ShortCut = 16464
      OnClick = mnuMakePopupClick
    end
    object mnuMakeMenuItem: TMenuItem
      Caption = 'Un&make Popup'
      ShortCut = 16461
      OnClick = mnuMakeMenuItemClick
    end
  end
end
