home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 182
- Top = 129
- Width = 520
- Height = 377
- BorderIcons = [biSystemMenu]
- BorderStyle = bsSizeToolWin
- Caption = 'CPUGPH'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PopupMenu = PopupMenu1
- ShowHint = True
- OnActivate = FormPaint
- OnCreate = FormCreate
- OnPaint = FormPaint
- OnShow = FormPaint
- PixelsPerInch = 96
- TextHeight = 13
- object Meter1: TMeter
- Left = 0
- Top = 0
- Width = 512
- Height = 350
- Hint = 'CPU %'
- Align = alClient
- Caption = 'CPU %'
- ColorBakG = clWhite
- ColorCover = clGray
- ColorScale = clBlack
- ColorScheme = csSytem
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FrameStyle = fsEmbossed
- LimWatchHighOn = False
- LimWatchLowOn = False
- LimWatchActColor = clRed
- LimWatchPsvColor = clGray
- MeterMaxValue = 100.000000000000000000
- MeterDecPlaces = 0
- MeterNrTicks = 6
- MeterLayout = mlCirc180
- MeterShortTicks = True
- MeterScaleLine = True
- NeedleLayout.HeadSize = 20
- NeedleLayout.HeadAngle = 30
- NeedleLayout.HeadMidLeng = 20
- NeedleLayout.AnchorSize = 5
- NeedleLayout.AnchorCovered = True
- NeedleLayout.Thickness = 2
- NeedleLayout.ColorBody = clOlive
- NeedleLayout.ColorOutline = clBlack
- NeedleLayout.ShadowDx = 0
- NeedleLayout.ShadowDy = 0
- NeedleLayout.ShadowColor = clGray
- ParentFont = False
- ParentShowHint = False
- RimBottom = 2
- RimTop = 2
- RimSide = 2
- ShowHint = True
- end
- object Chart2: TChart
- Left = 0
- Top = 0
- Width = 512
- Height = 350
- Cursor = crHandPoint
- AllowZoom = False
- BottomWall.Brush.Color = 8421440
- BottomWall.Color = 8454143
- BottomWall.Size = 3
- Foot.AdjustFrame = False
- Foot.Font.Charset = DEFAULT_CHARSET
- Foot.Font.Color = clRed
- Foot.Font.Height = -11
- Foot.Font.Name = 'Arial'
- Foot.Font.Style = [fsItalic]
- Foot.Text.Strings = (
- '')
- Foot.Visible = False
- Gradient.Direction = gdLeftRight
- LeftWall.Color = 8454143
- LeftWall.Size = 3
- MarginBottom = 0
- MarginLeft = 0
- MarginRight = 0
- MarginTop = 0
- Title.AdjustFrame = False
- Title.Text.Strings = (
- 'TChart')
- Title.Visible = False
- BottomAxis.Automatic = False
- BottomAxis.AutomaticMinimum = False
- BottomAxis.Axis.Width = 1
- BottomAxis.Labels = False
- BottomAxis.MinorTickCount = 1
- BottomAxis.MinorTickLength = 3
- BottomAxis.TickLength = 3
- BottomAxis.TickOnLabelsOnly = False
- BottomAxis.RoundFirstLabel = False
- ClipPoints = False
- Frame.Width = 0
- Frame.Visible = False
- LeftAxis.Automatic = False
- LeftAxis.AutomaticMaximum = False
- LeftAxis.AutomaticMinimum = False
- LeftAxis.Axis.Width = 1
- LeftAxis.AxisValuesFormat = '###0'
- LeftAxis.Increment = 1.000000000000000000
- LeftAxis.Maximum = 100.000000000000000000
- LeftAxis.MinorTickCount = 1
- LeftAxis.MinorTickLength = 5
- LeftAxis.TickLength = 3
- LeftAxis.ExactDateTime = False
- Legend.Alignment = laLeft
- Legend.ColorWidth = 27
- Legend.Frame.Visible = False
- Legend.HorizMargin = 1
- Legend.LegendStyle = lsLastValues
- Legend.ResizeChart = False
- Legend.TextStyle = ltsRightValue
- Legend.TopPos = 0
- RightAxis.Visible = False
- TopAxis.Visible = False
- Align = alClient
- BevelOuter = bvNone
- BevelWidth = 0
- BorderWidth = 3
- BorderStyle = bsSingle
- Enabled = False
- TabOrder = 0
- TabStop = True
- object Series3: TFastLineSeries
- Marks.ArrowLength = 8
- Marks.Visible = False
- ValueFormat = 'CPU ###0'
- LinePen.Color = clMaroon
- LinePen.Width = 2
- SeriesColor = clMaroon
- 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
- end
- end
- object Timer1: TTimer
- OnTimer = Timer1Timer
- Left = 104
- Top = 72
- end
- object PopupMenu1: TPopupMenu
- Left = 136
- Top = 72
- object About1: TMenuItem
- Caption = '&About'
- OnClick = UserClick
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object NoTitle: TMenuItem
- Caption = '&No Title'
- OnClick = UserClick
- end
- object OnTop: TMenuItem
- Caption = 'Stay On &Top'
- OnClick = UserClick
- end
- object N5: TMenuItem
- Caption = '-'
- end
- object Graph: TMenuItem
- Caption = '&Graph'
- Checked = True
- RadioItem = True
- OnClick = UserClick
- end
- object UVMeter: TMenuItem
- Caption = '&UV Meter'
- RadioItem = True
- OnClick = UserClick
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object Secondstodisplay1: TMenuItem
- Caption = 'Seconds to &Plot'
- OnClick = UserClick
- end
- object DisplayAxis1: TMenuItem
- Caption = '&Display Axis'
- OnClick = UserClick
- end
- object Legend1: TMenuItem
- Caption = '&Legend'
- OnClick = UserClick
- end
- object N3DView1: TMenuItem
- Caption = '&3D View'
- OnClick = UserClick
- end
- object Colour1: TMenuItem
- Caption = 'Colo&ur'
- object ColourCPUUsage1: TMenuItem
- Caption = '&Line'
- OnClick = UserClick
- end
- object ColorBackground1: TMenuItem
- Caption = '&Background'
- OnClick = UserClick
- end
- end
- object N3: TMenuItem
- Caption = '-'
- end
- object Exit1: TMenuItem
- Caption = 'E&xit'
- OnClick = UserClick
- end
- end
- object ColorDialog1: TColorDialog
- Ctl3D = True
- Options = [cdFullOpen, cdShowHelp, cdAnyColor]
- Left = 168
- Top = 72
- end
- end
-