source: VisualSwapcodes/Unit1.dfm

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 506
  ClientWidth = 677
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 306
    Top = 0
    Width = 8
    Height = 506
    AutoSnap = False
    Beveled = True
    ExplicitLeft = 312
  end
  object vst: TVirtualStringTree
    Left = 314
    Top = 0
    Width = 363
    Height = 506
    Align = alClient
    AnimationDuration = 0
    Header.AutoSizeIndex = 0
    Header.Font.Charset = DEFAULT_CHARSET
    Header.Font.Color = clWindowText
    Header.Font.Height = -11
    Header.Font.Name = 'Tahoma'
    Header.Font.Style = []
    Header.Options = [hoColumnResize, hoVisible]
    TabOrder = 0
    TreeOptions.SelectionOptions = [toFullRowSelect]
    OnGetText = vstGetText
    Columns = <
      item
        MaxWidth = 250
        MinWidth = 100
        Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
        Position = 0
        Width = 190
        WideText = 'Type'
      end
      item
        MaxWidth = 120
        MinWidth = 80
        Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
        Position = 1
        Width = 80
        WideText = 'Address'
      end
      item
        MaxWidth = 100
        MinWidth = 50
        Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
        Position = 2
        WideText = 'Size'
      end>
  end
  object list: TListBox
    Left = 0
    Top = 0
    Width = 306
    Height = 506
    Align = alLeft
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    Sorted = True
    TabOrder = 1
    OnClick = listClick
  end
end