home *** CD-ROM | disk | FTP | other *** search
- object MiniForm: TMiniForm
- Left = 275
- Top = 141
- Width = 192
- Height = 136
- Hint = 'Please Resize Me !!!'
- Caption = 'Mini-Tee-Charts. Enjoy !!!'
- Font.Color = clWindowText
- Font.Height = -14
- Font.Name = 'System'
- Font.Style = []
- PixelsPerInch = 96
- ShowHint = True
- OnCreate = FormCreate
- OnResize = FormResize
- TextHeight = 16
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 97
- Height = 109
- Align = alLeft
- TabOrder = 0
- object Chart1: TChart
- Left = 1
- Top = 57
- Width = 95
- Height = 51
- BackWall.Brush.Color = clWhite
- BackWall.Brush.Style = bsClear
- BackWall.Pen.Visible = False
- Foot.Font.Color = clRed
- Foot.Font.Height = -12
- Foot.Font.Name = 'Arial'
- Foot.Font.Style = [fsItalic]
- Foot.Frame.Color = clScrollBar
- MarginBottom = 0
- MarginLeft = 0
- MarginRight = 0
- MarginTop = 0
- Title.Frame.Color = clScrollBar
- Title.Text.Strings = (
- 'TChart Component')
- Title.Visible = False
- BottomAxis.Visible = False
- Chart3DPercent = 30
- Frame.Visible = False
- LeftAxis.Visible = False
- Legend.Visible = False
- RightAxis.Visible = False
- TopAxis.Visible = False
- View3DWalls = False
- Align = alClient
- TabOrder = 0
- object LineSeries1: TLineSeries
- Marks.ArrowLength = 8
- Marks.Visible = False
- SeriesColor = clRed
- Pointer.InflateMargins = True
- Pointer.Style = psRectangle
- Pointer.Visible = False
- XValues.DateTime = True
- XValues.Name = 'X'
- XValues.Multiplier = 1.000000000000000000
- XValues.Order = loAscending
- YValues.DateTime = False
- YValues.Name = 'Y'
- YValues.Multiplier = 1.000000000000000000
- YValues.Order = loNone
- Left = 15
- Top = 74
- end
- object LineSeries2: TLineSeries
- Marks.ArrowLength = 8
- Marks.Visible = False
- SeriesColor = clGreen
- AfterDrawValues = LineSeries2AfterDrawValues
- Pointer.InflateMargins = True
- Pointer.Style = psRectangle
- Pointer.Visible = False
- XValues.DateTime = True
- XValues.Name = 'X'
- XValues.Multiplier = 1.000000000000000000
- XValues.Order = loAscending
- YValues.DateTime = False
- YValues.Name = 'Y'
- YValues.Multiplier = 1.000000000000000000
- YValues.Order = loNone
- Left = 58
- Top = 75
- end
- end
- object Chart2: TChart
- Left = 1
- Top = 1
- Width = 95
- Height = 56
- BackWall.Brush.Color = clWhite
- BackWall.Brush.Style = bsClear
- BackWall.Pen.Visible = False
- Foot.Font.Color = clRed
- Foot.Font.Height = -12
- Foot.Font.Name = 'Arial'
- Foot.Font.Style = [fsItalic]
- Foot.Frame.Color = clScrollBar
- MarginBottom = 0
- MarginLeft = 0
- MarginRight = 0
- MarginTop = 0
- Title.Frame.Color = clScrollBar
- Title.Text.Strings = (
- 'TChart Component')
- Title.Visible = False
- BottomAxis.Visible = False
- Chart3DPercent = 25
- Frame.Visible = False
- LeftAxis.Visible = False
- Legend.Visible = False
- RightAxis.Visible = False
- TopAxis.Visible = False
- View3D = False
- View3DWalls = False
- Align = alTop
- TabOrder = 1
- object BarSeries1: TBarSeries
- ColorEachPoint = True
- Marks.ArrowLength = 20
- Marks.Visible = False
- SeriesColor = clRed
- BarPen.Visible = False
- Dark3D = False
- XValues.DateTime = True
- XValues.Name = 'X'
- XValues.Multiplier = 1.000000000000000000
- XValues.Order = loAscending
- YValues.DateTime = False
- YValues.Name = 'Y'
- YValues.Multiplier = 1.000000000000000000
- YValues.Order = loNone
- Left = 34
- Top = 13
- end
- end
- end
- object Panel2: TPanel
- Left = 97
- Top = 0
- Width = 87
- Height = 109
- Align = alClient
- TabOrder = 1
- object Chart3: TChart
- Left = 1
- Top = 1
- Width = 85
- Height = 56
- AllowPanning = pmNone
- AllowZoom = False
- BackWall.Brush.Color = clWhite
- BackWall.Brush.Style = bsClear
- BackWall.Pen.Visible = False
- Foot.Font.Color = clRed
- Foot.Font.Height = -12
- Foot.Font.Name = 'Arial'
- Foot.Font.Style = [fsItalic]
- Foot.Frame.Color = clScrollBar
- MarginBottom = 0
- MarginLeft = 0
- MarginRight = 0
- MarginTop = 0
- Title.Frame.Color = clScrollBar
- Title.Text.Strings = (
- 'TChart Component')
- Title.Visible = False
- AxisVisible = False
- BottomAxis.Visible = False
- ClipPoints = False
- Frame.Visible = False
- LeftAxis.Visible = False
- Legend.Visible = False
- RightAxis.Visible = False
- TopAxis.Visible = False
- View3DOptions.Elevation = 315
- View3DOptions.Orthogonal = False
- View3DOptions.Rotation = 360
- View3DWalls = False
- Align = alTop
- TabOrder = 0
- object PieSeries1: TPieSeries
- Marks.ArrowLength = 8
- Marks.Style = smsLabelPercent
- Marks.Visible = False
- SeriesColor = clRed
- Circled = True
- OtherSlice.Text = 'Other'
- PieValues.DateTime = False
- PieValues.Name = 'Y'
- PieValues.Multiplier = 1.000000000000000000
- PieValues.Order = loNone
- Left = 134
- Top = 13
- end
- end
- object Chart4: TChart
- Left = 1
- Top = 57
- Width = 85
- Height = 51
- BackWall.Brush.Color = clWhite
- BackWall.Brush.Style = bsClear
- BackWall.Pen.Visible = False
- Foot.Font.Color = clRed
- Foot.Font.Height = -12
- Foot.Font.Name = 'Arial'
- Foot.Font.Style = [fsItalic]
- Foot.Frame.Color = clScrollBar
- MarginBottom = 0
- MarginLeft = 0
- MarginRight = 0
- MarginTop = 0
- Title.Frame.Color = clScrollBar
- Title.Text.Strings = (
- 'TChart Component')
- Title.Visible = False
- BottomAxis.Visible = False
- Frame.Visible = False
- LeftAxis.Visible = False
- Legend.Visible = False
- RightAxis.Visible = False
- TopAxis.Visible = False
- View3D = False
- View3DWalls = False
- Align = alClient
- TabOrder = 1
- object AreaSeries1: TAreaSeries
- Marks.ArrowLength = 8
- Marks.Visible = False
- SeriesColor = clRed
- AreaLinesPen.Visible = False
- DrawArea = True
- XValues.DateTime = True
- XValues.Name = 'X'
- XValues.Multiplier = 1.000000000000000000
- XValues.Order = loAscending
- YValues.DateTime = False
- YValues.Name = 'Y'
- YValues.Multiplier = 1.000000000000000000
- YValues.Order = loNone
- Left = 111
- Top = 77
- end
- object LineSeries3: TLineSeries
- Marks.ArrowLength = 8
- Marks.Visible = False
- SeriesColor = clGreen
- AfterDrawValues = LineSeries3AfterDrawValues
- Pointer.InflateMargins = True
- Pointer.Style = psRectangle
- Pointer.Visible = False
- XValues.DateTime = True
- XValues.Name = 'X'
- XValues.Multiplier = 1.000000000000000000
- XValues.Order = loAscending
- YValues.DateTime = False
- YValues.Name = 'Y'
- YValues.Multiplier = 1.000000000000000000
- YValues.Order = loNone
- Left = 164
- Top = 79
- end
- end
- end
- object Timer1: TTimer
- Interval = 1
- OnTimer = Timer1Timer
- Left = 84
- Top = 43
- end
- end
-