home *** CD-ROM | disk | FTP | other *** search
- object PieForm: TPieForm
- Left = 113
- Top = 40
- Width = 615
- Height = 439
- ActiveControl = CheckBox1
- Caption = 'TeeChart Pie Series Demo'
- 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 = 133
- Top = 0
- Width = 474
- Height = 412
- AllowPanning = pmNone
- AllowZoom = False
- BackWall.Brush.Color = clWhite
- BackWall.Brush.Style = bsClear
- BackWall.Pen.Visible = False
- Foot.Alignment = taLeftJustify
- Foot.Font.Color = clRed
- Foot.Font.Height = -12
- Foot.Font.Name = 'Arial'
- Foot.Font.Style = [fsItalic]
- Foot.Frame.Color = clScrollBar
- Foot.Text.Strings = (
- '')
- Gradient.Direction = gdBottomTop
- Gradient.EndColor = 8454016
- Gradient.StartColor = 8454143
- Gradient.Visible = True
- Title.AdjustFrame = False
- Title.Alignment = taRightJustify
- Title.Font.Color = clBlue
- Title.Font.Height = -16
- Title.Font.Name = 'Arial'
- Title.Font.Style = [fsBold, fsItalic]
- Title.Frame.Color = clScrollBar
- Title.Text.Strings = (
- 'Pie Chart Series Demo.')
- AxisVisible = False
- BottomAxis.Grid.Color = clScrollBar
- BottomAxis.LabelsAngle = 90
- BottomAxis.LabelsFont.Color = clTeal
- BottomAxis.LabelsFont.Height = -12
- BottomAxis.LabelsFont.Name = 'Arial'
- BottomAxis.LabelsFont.Style = []
- BottomAxis.EndPosition = 100.000000000000000000
- BottomAxis.Title.Caption = 'Stock Market Date'
- BottomAxis.Title.Font.Color = clGreen
- BottomAxis.Title.Font.Height = -16
- BottomAxis.Title.Font.Name = 'Arial'
- BottomAxis.Title.Font.Style = [fsItalic]
- Chart3DPercent = 50
- ClipPoints = False
- Frame.Visible = False
- LeftAxis.Grid.Color = clScrollBar
- LeftAxis.LabelsFont.Color = clWhite
- LeftAxis.LabelsFont.Height = -13
- LeftAxis.LabelsFont.Name = 'Arial'
- LeftAxis.LabelsFont.Style = []
- LeftAxis.EndPosition = 100.000000000000000000
- LeftAxis.Title.Caption = 'Stock Price'
- LeftAxis.Title.Font.Color = clNavy
- LeftAxis.Title.Font.Height = -15
- LeftAxis.Title.Font.Name = 'Arial'
- LeftAxis.Title.Font.Style = [fsBold]
- RightAxis.Grid.Color = clScrollBar
- RightAxis.EndPosition = 100.000000000000000000
- TopAxis.Grid.Color = clScrollBar
- TopAxis.EndPosition = 100.000000000000000000
- View3DOptions.Elevation = 315
- View3DOptions.Orthogonal = False
- View3DOptions.Rotation = 360
- View3DWalls = False
- Align = alClient
- Color = clSilver
- TabOrder = 0
- OnMouseMove = Chart1MouseMove
- object PieSeries1: TPieSeries
- Cursor = 2020
- Marks.ArrowLength = 8
- Marks.Style = smsLabelPercent
- Marks.Visible = True
- SeriesColor = clRed
- OnClick = PieSeries1Click
- ExplodeBiggest = 35
- OtherSlice.Style = poBelowPercent
- OtherSlice.Text = 'Other'
- OtherSlice.Value = 5.000000000000000000
- PieValues.DateTime = False
- PieValues.Name = 'Y'
- PieValues.Multiplier = 1.000000000000000000
- PieValues.Order = loNone
- Left = 78
- Top = 94
- end
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 133
- Height = 412
- Align = alLeft
- TabOrder = 1
- object Shape1: TShape
- Left = 14
- Top = 40
- Width = 107
- Height = 33
- end
- object CheckBox1: TCheckBox
- Left = 15
- Top = 6
- Width = 114
- Height = 29
- Caption = '&Animate !!!'
- Color = clSilver
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- TabOrder = 0
- OnClick = CheckBox1Click
- end
- object BitBtn3: TBitBtn
- Left = 20
- Top = 368
- Width = 89
- Height = 29
- TabOrder = 3
- Kind = bkClose
- end
- object RadioGroup1: TRadioGroup
- Left = 12
- Top = 260
- Width = 109
- Height = 93
- Caption = 'Legend Position:'
- ItemIndex = 1
- Items.Strings = (
- 'Left'
- 'Right'
- 'Top'
- 'Bottom')
- TabOrder = 5
- OnClick = RadioGroup1Click
- end
- object RadioGroup2: TRadioGroup
- Left = 12
- Top = 88
- Width = 109
- Height = 161
- Caption = 'Efects:'
- Color = clSilver
- ParentColor = False
- TabOrder = 8
- end
- object CheckBox2: TCheckBox
- Left = 20
- Top = 112
- Width = 41
- Height = 17
- Caption = '&3D'
- State = cbChecked
- TabOrder = 1
- OnClick = CheckBox2Click
- end
- object CheckBox3: TCheckBox
- Left = 20
- Top = 138
- Width = 61
- Height = 17
- Caption = '&Circled'
- TabOrder = 2
- OnClick = CheckBox3Click
- end
- object CheckBox4: TCheckBox
- Left = 20
- Top = 164
- Width = 97
- Height = 17
- Caption = 'Use &Patterns'
- TabOrder = 4
- OnClick = CheckBox4Click
- end
- object CheckBox5: TCheckBox
- Left = 20
- Top = 190
- Width = 61
- Height = 17
- Caption = '&Marks'
- State = cbChecked
- TabOrder = 6
- OnClick = CheckBox5Click
- end
- object CheckBox6: TCheckBox
- Left = 20
- Top = 216
- Width = 65
- Height = 17
- Caption = '&Gradient'
- State = cbChecked
- TabOrder = 7
- OnClick = CheckBox6Click
- end
- end
- object Timer1: TTimer
- Enabled = False
- Interval = 1
- OnTimer = Timer1Timer
- Left = 114
- Top = 294
- end
- end
-