PC Expert 29/Pce29cd.iso/RUNIMAGE/DELPHI40/DEMOS/TEECHART/LASTVALU.DFM/LASTVALU.txt

Text File | 1998-06-16 | 5KB | 214 lines

object DigitalForm: TDigitalForm
  Left = 90
  Top = 41
  Width = 615
  Height = 436
  Caption = 'TeeChart Digital Series Example'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poDefault
  WindowState = wsMaximized
  OnCreate = FormCreate
  TextHeight = 13
  object Chart1: TChart
    Left = 161
    Top = 0
    Width = 446
    Height = 409
    AnimatedZoom = True
    AnimatedZoomSteps = 16
    BottomWall.Color = clWhite
    BottomWall.Size = 6
    Foot.Font.Color = clRed
    Foot.Font.Height = -11
    Foot.Font.Name = 'Arial'
    Foot.Font.Style = [fsItalic]
    Foot.Frame.Color = clScrollBar
    LeftWall.Color = 8454143
    LeftWall.Size = 4
    Title.Frame.Color = clScrollBar
    Title.Text.Strings = (
      'We'#39're testing that new Pentium...'
      'It seems has good health !!!')
    BackColor = 8454016
    BottomAxis.Grid.Color = 8388863
    Frame.Color = clNavy
    Frame.Width = 2
    LeftAxis.Grid.Color = clSilver
    Legend.Font.Color = clBlack
    Legend.Font.Height = -19
    Legend.Font.Name = 'Arial'
    Legend.Font.Style = [fsBold, fsItalic]
    Legend.LegendStyle = lsLastValues
    OnGetLegendText = Chart1GetLegendText
    Align = alClient
    TabOrder = 0
    object LineSeries1: TLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      Title = 'Pipeline Signal'
      SeriesColor = clBlue
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      Stairs = True
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      Left = 175
      Top = 130
    end
    object LineSeries2: TLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      Title = 'RAM Cycles'
      SeriesColor = clYellow
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      Stairs = True
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      Left = 105
      Top = 132
    end
    object LineSeries3: TLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      Title = 'PCI Status'
      SeriesColor = clGreen
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      Stairs = True
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      Left = 107
      Top = 86
    end
    object LineSeries4: TLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      Title = 'I/O Timing'
      SeriesColor = clRed
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      Stairs = True
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      Left = 173
      Top = 88
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 161
    Height = 409
    Align = alLeft
    TabOrder = 1
    object CheckBox1: TCheckBox
      Left = 20
      Top = 13
      Width = 119
      Height = 18
      Caption = 'Animate !!!'
      Font.Color = clBlack
      Font.Height = -19
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = CheckBox1Click
    end
    object CheckBox2: TCheckBox
      Left = 20
      Top = 69
      Width = 78
      Height = 18
      Caption = 'View 3D'
      State = cbChecked
      TabOrder = 1
      OnClick = CheckBox2Click
    end
    object CheckBox3: TCheckBox
      Left = 20
      Top = 45
      Width = 126
      Height = 18
      Caption = 'Last Values in Legend'
      State = cbChecked
      TabOrder = 2
      OnClick = CheckBox3Click
    end
    object BitBtn3: TBitBtn
      Left = 32
      Top = 351
      Width = 89
      Height = 33
      TabOrder = 3
      Kind = bkClose
    end
    object CheckBox4: TCheckBox
      Left = 20
      Top = 93
      Width = 78
      Height = 18
      Caption = 'Z Order'
      TabOrder = 4
      OnClick = CheckBox4Click
    end
    object Memo1: TMemo
      Left = 20
      Top = 136
      Width = 121
      Height = 169
      Lines.Strings = (
        'Line Series can be used '
        'as "step" Series by '
        'setting '
        'the Stairs property.'
        ''
        'In this demo several '
        'Line Series are '
        'displayed '
        'on same Z order.')
      TabOrder = 5
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 1
    OnTimer = Timer1Timer
    Left = 170
    Top = 10
  end
end