containerperformancemain.dfm

全世界知名的Open Source Delphi开发组织JCL的作品。JCL包含了很多Delphi和C++Builder中的可重用单元

object MainForm: TMainForm
  Left = 402
  Top = 120
  AutoScroll = False
  Caption = 'Container Performance'
  ClientHeight = 294
  ClientWidth = 569
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = 11
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ListPerformanceGrid: TStringGrid
    Left = 0
    Top = 0
    Width = 569
    Height = 173
    Align = alClient
    DefaultColWidth = 100
    RowCount = 6
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
    TabOrder = 0
  end
  object HashPerformanceGrid: TStringGrid
    Left = 0
    Top = 173
    Width = 569
    Height = 121
    Align = alBottom
    DefaultColWidth = 100
    RowCount = 4
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
    TabOrder = 1
  end
  object MainMenu1: TMainMenu
    Left = 216
    object FileMenu: TMenuItem
      Caption = '&File'
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
    object TestMenu: TMenuItem
      Caption = '&Test'
      object mnList: TMenuItem
        Caption = 'TList'
        OnClick = mnListClick
      end
      object mnJclArrayList: TMenuItem
        Caption = 'TJclArrayList'
        OnClick = mnJclArrayListClick
      end
      object mnJclLinkedList: TMenuItem
        Caption = 'TJclLinkedList'
        OnClick = mnJclLinkedListClick
      end
      object mnJclVector: TMenuItem
        Caption = 'TJclVector'
        OnClick = mnJclVectorClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object mnBucketList: TMenuItem
        Caption = 'TBucketList'
        OnClick = mnBucketListClick
      end
      object mnJclHashMap: TMenuItem
        Caption = 'TJclHashMap'
        OnClick = mnJclHashMapClick
      end
      object mnHashedStringList: TMenuItem
        Caption = 'THashedStringList'
        OnClick = mnHashedStringListClick
      end
      object mnJclStrStrHashMap: TMenuItem
        Caption = 'TJclStrStrHashMap'
        OnClick = mnJclStrStrHashMapClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object mnAllTest: TMenuItem
        Caption = 'All'
        OnClick = mnAllTestClick
      end
    end
  end
end