umain.dfm

内存管理程序

object Form1: TForm1
  Left = 240
  Top = 144
  Caption = 'Big Brain Demo'
  ClientHeight = 411
  ClientWidth = 520
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  DesignSize = (
    520
    411)
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 0
    Top = 120
    Width = 65
    Height = 13
    Caption = 'ThreadCount:'
  end
  object Label2: TLabel
    Left = 16
    Top = 168
    Width = 32
    Height = 13
    Caption = 'Label2'
  end
  object Memo1: TMemo
    Left = 104
    Top = 8
    Width = 185
    Height = 89
    Lines.Strings = (
      'Memo1')
    TabOrder = 0
  end
  object Memo2: TMemo
    Left = 304
    Top = 8
    Width = 185
    Height = 89
    Lines.Strings = (
      'Memo1')
    TabOrder = 1
  end
  object Memo3: TMemo
    Left = 104
    Top = 104
    Width = 185
    Height = 89
    Lines.Strings = (
      'Memo1')
    TabOrder = 2
  end
  object Memo4: TMemo
    Left = 304
    Top = 104
    Width = 185
    Height = 89
    Lines.Strings = (
      'Memo1')
    TabOrder = 3
  end
  object Go: TButton
    Left = 8
    Top = 16
    Width = 75
    Height = 25
    Caption = 'Go'
    TabOrder = 4
    OnClick = GoClick
  end
  object Chart1: TChart
    Left = 3
    Top = 202
    Width = 513
    Height = 201
    AllowPanning = pmNone
    AllowZoom = False
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    BackWall.Pen.Visible = False
    Title.Text.Strings = (
      'Memory distribution across threads.  Red is common pool.')
    AxisVisible = False
    ClipPoints = False
    Frame.Visible = False
    View3DOptions.Elevation = 315
    View3DOptions.Orthogonal = False
    View3DOptions.Perspective = 0
    View3DOptions.Rotation = 360
    View3DWalls = False
    BevelOuter = bvNone
    TabOrder = 5
    Anchors = [akLeft, akTop, akRight, akBottom]
    object Series1: TPieSeries
      Marks.ArrowLength = 8
      Marks.Visible = True
      SeriesColor = clRed
      OtherSlice.Text = 'Other'
      PieValues.DateTime = False
      PieValues.Name = 'Pie'
      PieValues.Multiplier = 1.000000000000000000
      PieValues.Order = loNone
    end
  end
  object cbFeedBack: TCheckBox
    Left = 3
    Top = 54
    Width = 97
    Height = 17
    Caption = 'Memo FeedBack'
    TabOrder = 6
  end
  object Edit1: TEdit
    Left = 8
    Top = 136
    Width = 33
    Height = 21
    TabOrder = 7
    Text = '1'
  end
  object UpDown1: TUpDown
    Left = 41
    Top = 136
    Width = 16
    Height = 21
    Associate = Edit1
    Min = 1
    Max = 4
    Position = 1
    TabOrder = 8
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 24
    Top = 88
  end
  object XPManifest1: TXPManifest
    Left = 88
    Top = 104
  end
end