home *** CD-ROM | disk | FTP | other *** search
- object CummuForm: TCummuForm
- Left = 141
- Top = 75
- Width = 493
- Height = 417
- Caption = 'teeMach, SL --- Chart Templates'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- OnCreate = FormCreate
- TextHeight = 13
- object Label1: TLabel
- Left = 104
- Top = 8
- Width = 205
- Height = 20
- Caption = 'Histogram Chart Example'
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label3: TLabel
- Left = 8
- Top = 352
- Width = 460
- Height = 13
- Caption =
- 'The green Line Series is a Cumulative Sum function of the red Ba' +
- 'r Series values.'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Chart1: TChart
- Left = 8
- Top = 40
- Width = 465
- Height = 305
- BackWall.Brush.Color = clWhite
- BackWall.Color = 8454143
- BackWall.Pen.Color = clBlue
- BackWall.Pen.Width = 2
- Title.Text.Strings = (
- 'Histogram')
- BackColor = 8454143
- BottomAxis.Grid.Visible = False
- BottomAxis.EndPosition = 100.000000000000000000
- Frame.Color = clBlue
- Frame.Width = 2
- LeftAxis.Axis.Visible = False
- LeftAxis.Grid.Visible = False
- LeftAxis.EndPosition = 100.000000000000000000
- LeftAxis.TickLength = 8
- LeftAxis.Title.Caption = 'Sales'
- LeftAxis.Title.Font.Color = clBlack
- LeftAxis.Title.Font.Height = -12
- LeftAxis.Title.Font.Name = 'Arial'
- LeftAxis.Title.Font.Style = [fsBold]
- Legend.Alignment = laBottom
- RightAxis.Automatic = False
- RightAxis.AutomaticMinimum = False
- RightAxis.Axis.Visible = False
- RightAxis.Grid.Color = clSilver
- RightAxis.Grid.Style = psSolid
- RightAxis.LabelsFont.Color = clBlack
- RightAxis.LabelsFont.Height = -12
- RightAxis.LabelsFont.Name = 'Arial'
- RightAxis.LabelsFont.Style = []
- RightAxis.MinorTickLength = 4
- RightAxis.EndPosition = 100.000000000000000000
- RightAxis.TickLength = 9
- RightAxis.Title.Caption = 'Cummulative Sales'
- RightAxis.Title.Font.Color = clBlack
- RightAxis.Title.Font.Height = -15
- RightAxis.Title.Font.Name = 'Arial'
- RightAxis.Title.Font.Style = [fsBold]
- TopAxis.EndPosition = 100.000000000000000000
- View3D = False
- Color = clSilver
- TabOrder = 0
- object Series1: TBarSeries
- Marks.Arrow.Color = clBlue
- Marks.Arrow.Width = 2
- Marks.ArrowLength = 20
- Marks.BackColor = 16777088
- Marks.Visible = False
- SeriesColor = clRed
- Title = 'Sales'
- XValues.DateTime = False
- XValues.Name = 'X'
- XValues.Multiplier = 1.000000000000000000
- XValues.Order = loAscending
- YValues.DateTime = False
- YValues.Name = 'Bar'
- YValues.Multiplier = 1.000000000000000000
- YValues.Order = loNone
- end
- object Series2: TLineSeries
- Marks.ArrowLength = 8
- Marks.BackColor = 16777088
- Marks.Font.Color = clNavy
- Marks.Font.Height = -11
- Marks.Font.Name = 'Arial'
- Marks.Font.Style = []
- Marks.Frame.Color = clNavy
- Marks.Frame.Width = 2
- Marks.Style = smsValue
- Marks.Visible = True
- DataSource = Series1
- SeriesColor = clGreen
- Title = 'Cummulative Sales'
- VertAxis = aRightAxis
- LinePen.Style = psDot
- Pointer.HorizSize = 6
- Pointer.InflateMargins = True
- Pointer.Style = psDiamond
- Pointer.VertSize = 6
- Pointer.Visible = 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
- object TeeFunction1: TCumulative
- Period = 1.000000000000000000
- end
- end
- end
- object Button1: TButton
- Left = 8
- Top = 8
- Width = 75
- Height = 25
- Caption = '&Edit Chart...'
- TabOrder = 1
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 400
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Close'
- TabOrder = 2
- OnClick = Button2Click
- end
- end
-