home *** CD-ROM | disk | FTP | other *** search
- object StackedForm: TStackedForm
- Left = 166
- Top = 40
- Width = 553
- Height = 432
- Caption = 'Stacked Bars'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- Scaled = False
- OnCreate = FormCreate
- TextHeight = 13
- object Chart1: TChart
- Left = 0
- Top = 33
- Width = 411
- Height = 372
- BackWall.Brush.Color = clWhite
- BackWall.Color = 8454016
- BackWall.Size = 11
- BottomWall.Color = 16512
- BottomWall.Size = 10
- Foot.Font.Color = clRed
- Foot.Font.Height = -12
- Foot.Font.Name = 'Arial'
- Foot.Font.Style = [fsItalic]
- Foot.Frame.Color = clScrollBar
- Gradient.Direction = gdRightLeft
- Gradient.StartColor = 16744576
- LeftWall.Color = clBlue
- LeftWall.Size = 10
- Title.Frame.Color = clScrollBar
- Title.Text.Strings = (
- 'TChart Component')
- BackColor = 8454016
- BottomAxis.DateTimeFormat = 'M/d/yy'
- BottomAxis.EndPosition = 100.000000000000000000
- BottomAxis.Title.Caption = 'Sales Date'
- Chart3DPercent = 65
- LeftAxis.MinorTickCount = 1
- LeftAxis.MinorTickLength = 5
- LeftAxis.MinorTicks.Color = clBlue
- LeftAxis.EndPosition = 100.000000000000000000
- LeftAxis.TickLength = 8
- LeftAxis.Ticks.Color = clYellow
- LeftAxis.Title.Caption = 'Quantity'
- Legend.Alignment = laBottom
- Legend.Font.Color = clBlack
- Legend.Font.Height = -12
- Legend.Font.Name = 'Arial'
- Legend.Font.Style = []
- RightAxis.EndPosition = 100.000000000000000000
- TopAxis.EndPosition = 100.000000000000000000
- View3DOptions.Elevation = 347
- View3DOptions.Orthogonal = False
- View3DOptions.Perspective = 52
- View3DOptions.Rotation = 346
- View3DOptions.Zoom = 91
- View3DOptions.ZoomText = False
- Align = alClient
- BevelInner = bvRaised
- BevelOuter = bvNone
- BorderWidth = 14
- TabOrder = 0
- object BarSeries1: TBarSeries
- Marks.ArrowLength = 20
- Marks.Visible = False
- SeriesColor = clRed
- MultiBar = mbNone
- 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 = 108
- Top = 4
- end
- object BarSeries2: TBarSeries
- Marks.ArrowLength = 20
- Marks.Visible = False
- SeriesColor = clYellow
- MultiBar = mbNone
- 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 = 141
- Top = 4
- end
- object BarSeries3: TBarSeries
- Marks.ArrowLength = 20
- Marks.Visible = False
- SeriesColor = clAqua
- MultiBar = mbNone
- 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 = 172
- Top = 4
- end
- end
- object Panel1: TPanel
- Left = 411
- Top = 33
- Width = 134
- Height = 372
- Align = alRight
- TabOrder = 1
- object Label1: TLabel
- Left = 7
- Top = 5
- Width = 32
- Height = 13
- Caption = '&Series:'
- FocusControl = ComboBox1
- end
- object Shape1: TShape
- Left = 47
- Top = 52
- Width = 34
- Height = 29
- OnMouseUp = Shape1MouseUp
- end
- object Button1: TButton
- Left = 17
- Top = 86
- Width = 99
- Height = 29
- Caption = 'S&croll Series'
- TabOrder = 0
- OnClick = Button1Click
- end
- object RadioGroup2: TRadioGroup
- Left = 13
- Top = 150
- Width = 108
- Height = 139
- Caption = '&Bar Style:'
- ItemIndex = 0
- Items.Strings = (
- 'Rectangle'
- 'Pyramid'
- 'InvPyramid'
- 'Cilinder'
- 'Ellipse'
- 'Arrow'
- 'Gradient')
- TabOrder = 1
- OnClick = RadioGroup2Click
- end
- object ComboBox1: TComboBox
- Left = 9
- Top = 23
- Width = 116
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 2
- OnChange = ComboBox1Change
- end
- object CheckBox1: TCheckBox
- Left = 9
- Top = 123
- Width = 120
- Height = 19
- Caption = '&Animate !!!'
- Font.Color = clRed
- Font.Height = -19
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 3
- OnClick = CheckBox1Click
- end
- object BitBtn3: TBitBtn
- Left = 25
- Top = 325
- Width = 89
- Height = 33
- TabOrder = 4
- Kind = bkClose
- end
- object CheckBox2: TCheckBox
- Left = 43
- Top = 296
- Width = 50
- Height = 17
- Caption = '3D'
- State = cbChecked
- TabOrder = 5
- OnClick = CheckBox2Click
- end
- end
- object TeeCommander1: TTeeCommander
- Left = 0
- Top = 0
- Width = 545
- Height = 33
- Panel = Chart1
- Align = alTop
- TabOrder = 2
- object ComboBox2: TComboBox
- Left = 420
- Top = 5
- Width = 116
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- 'Behind'
- 'Side to Side'
- 'Stacked'
- 'Stacked 100%')
- TabOrder = 3
- OnChange = ComboBox2Change
- end
- end
- object Timer1: TTimer
- Enabled = False
- Interval = 1
- OnTimer = Timer1Timer
- Left = 52
- Top = 66
- end
- end
-