我有一个DBChart
5PieSerie
就可以了。注意最后一个饼图是如何被截断的。我能做些什么来避免这种情况吗?我正在使用 TeeChart Standard v2011.03.32815 VCL;除了更改颜色主题外,我没有更改图表的任何属性。
这是包含DBChart
object frmAdminStats: TfrmAdminStats
Left = 0
Top = 0
Width = 730
Height = 610
BiDiMode = bdRightToLeft
DoubleBuffered = True
ParentBiDiMode = False
ParentDoubleBuffered = False
TabOrder = 0
object DBChart1: TDBChart
Left = 0
Top = 0
Width = 730
Height = 610
AllowPanning = pmNone
Foot.Font.Name = 'Tahoma'
SubFoot.Font.Name = 'Tahoma'
SubTitle.Font.Name = 'Tahoma'
Title.Font.Name = 'Tahoma'
Title.Text.Strings = (
'')
Title.Visible = False
BottomAxis.LabelsFont.Name = 'Tahoma'
BottomAxis.Title.Font.Name = 'Tahoma'
DepthAxis.LabelsFont.Name = 'Tahoma'
DepthAxis.Title.Font.Name = 'Tahoma'
DepthTopAxis.LabelsFont.Name = 'Tahoma'
DepthTopAxis.Title.Font.Name = 'Tahoma'
LeftAxis.LabelsFont.Name = 'Tahoma'
LeftAxis.Title.Font.Name = 'Tahoma'
Legend.Font.Name = 'Tahoma'
Legend.ResizeChart = False
Legend.TextStyle = ltsPlain
Legend.Title.Font.Name = 'Tahoma'
Legend.Transparent = True
Legend.Visible = False
Panning.MouseWheel = pmwNone
RightAxis.LabelsFont.Name = 'Tahoma'
RightAxis.Title.Font.Name = 'Tahoma'
TopAxis.LabelsFont.Name = 'Tahoma'
TopAxis.Title.Font.Name = 'Tahoma'
View3DOptions.Elevation = 315
View3DOptions.Orthogonal = False
View3DOptions.Perspective = 0
View3DOptions.Rotation = 360
Zoom.Allow = False
OnAfterDraw = DBChart1AfterDraw
OnBeforeDrawChart = DBChart1BeforeDrawChart
Align = alClient
TabOrder = 0
OnClick = DBChart1Click
ColorPaletteIndex = 13
object Series1: TPieSeries
LegendTitle = #1580#1606#1587#1740#1578
Cursor = crHandPoint
Marks.Arrow.Visible = True
Marks.Callout.Brush.Color = clBlack
Marks.Callout.Arrow.Visible = True
Marks.Visible = True
Title = #1580#1606#1587#1740#1578
XValues.Order = loAscending
YValues.Name = 'Pie'
YValues.Order = loNone
OnClick = Series1Click
ExplodeBiggest = 15
Frame.InnerBrush.BackColor = clRed
Frame.InnerBrush.Gradient.EndColor = clGray
Frame.InnerBrush.Gradient.MidColor = clWhite
Frame.InnerBrush.Gradient.StartColor = 4210752
Frame.InnerBrush.Gradient.Visible = True
Frame.MiddleBrush.BackColor = clYellow
Frame.MiddleBrush.Gradient.EndColor = 8553090
Frame.MiddleBrush.Gradient.MidColor = clWhite
Frame.MiddleBrush.Gradient.StartColor = clGray
Frame.MiddleBrush.Gradient.Visible = True
Frame.OuterBrush.BackColor = clGreen
Frame.OuterBrush.Gradient.EndColor = 4210752
Frame.OuterBrush.Gradient.MidColor = clWhite
Frame.OuterBrush.Gradient.StartColor = clSilver
Frame.OuterBrush.Gradient.Visible = True
Frame.Visible = False
Frame.Width = 4
OtherSlice.Legend.Visible = False
PiePen.Visible = False
RotationAngle = 75
end
object Series2: TPieSeries
Cursor = crHandPoint
Marks.Arrow.Visible = True
Marks.Callout.Brush.Color = clBlack
Marks.Callout.Arrow.Visible = True
Marks.Visible = True
SeriesColor = clRed
Title = #1576#1740#1605#1607' '#1711#1586#1575#1585#1575#1606
XValues.Order = loAscending
YValues.Name = 'Pie'
YValues.Order = loNone
OnClick = Series1Click
ExplodeBiggest = 15
Frame.InnerBrush.BackColor = clRed
Frame.InnerBrush.Gradient.EndColor = clGray
Frame.InnerBrush.Gradient.MidColor = clWhite
Frame.InnerBrush.Gradient.StartColor = 4210752
Frame.InnerBrush.Gradient.Visible = True
Frame.MiddleBrush.BackColor = clYellow
Frame.MiddleBrush.Gradient.EndColor = 8553090
Frame.MiddleBrush.Gradient.MidColor = clWhite
Frame.MiddleBrush.Gradient.StartColor = clGray
Frame.MiddleBrush.Gradient.Visible = True
Frame.OuterBrush.BackColor = clGreen
Frame.OuterBrush.Gradient.EndColor = 4210752
Frame.OuterBrush.Gradient.MidColor = clWhite
Frame.OuterBrush.Gradient.StartColor = clSilver
Frame.OuterBrush.Gradient.Visible = True
Frame.Visible = False
Frame.Width = 4
OtherSlice.Legend.Visible = False
PiePen.Visible = False
RotationAngle = 75
end
object Series3: TPieSeries
LegendTitle = #1576#1740#1605#1607' '#1711#1586#1575#1585#1575#1606' '#1605#1705#1605#1604
Cursor = crHandPoint
Marks.Arrow.Visible = True
Marks.Callout.Brush.Color = clBlack
Marks.Callout.Arrow.Visible = True
Marks.Visible = True
Title = #1576#1740#1605#1607' '#1711#1586#1575#1585#1575#1606' '#1605#1705#1605#1604
XValues.Order = loAscending
YValues.Name = 'Pie'
YValues.Order = loNone
OnClick = Series1Click
ExplodeBiggest = 15
Frame.InnerBrush.BackColor = clRed
Frame.InnerBrush.Gradient.EndColor = clGray
Frame.InnerBrush.Gradient.MidColor = clWhite
Frame.InnerBrush.Gradient.StartColor = 4210752
Frame.InnerBrush.Gradient.Visible = True
Frame.MiddleBrush.BackColor = clYellow
Frame.MiddleBrush.Gradient.EndColor = 8553090
Frame.MiddleBrush.Gradient.MidColor = clWhite
Frame.MiddleBrush.Gradient.StartColor = clGray
Frame.MiddleBrush.Gradient.Visible = True
Frame.OuterBrush.BackColor = clGreen
Frame.OuterBrush.Gradient.EndColor = 4210752
Frame.OuterBrush.Gradient.MidColor = clWhite
Frame.OuterBrush.Gradient.StartColor = clSilver
Frame.OuterBrush.Gradient.Visible = True
Frame.Visible = False
Frame.Width = 4
OtherSlice.Legend.Visible = False
PiePen.Visible = False
RotationAngle = 75
end
object Series4: TPieSeries
Cursor = crHandPoint
Marks.Arrow.Visible = True
Marks.Callout.Brush.Color = clBlack
Marks.Callout.Arrow.Visible = True
Marks.Visible = True
Title = #1662#1586#1588#1705#1575#1606
XValues.Order = loAscending
YValues.Name = 'Pie'
YValues.Order = loNone
OnClick = Series1Click
ExplodeBiggest = 15
Frame.InnerBrush.BackColor = clRed
Frame.InnerBrush.Gradient.EndColor = clGray
Frame.InnerBrush.Gradient.MidColor = clWhite
Frame.InnerBrush.Gradient.StartColor = 4210752
Frame.InnerBrush.Gradient.Visible = True
Frame.MiddleBrush.BackColor = clYellow
Frame.MiddleBrush.Gradient.EndColor = 8553090
Frame.MiddleBrush.Gradient.MidColor = clWhite
Frame.MiddleBrush.Gradient.StartColor = clGray
Frame.MiddleBrush.Gradient.Visible = True
Frame.OuterBrush.BackColor = clGreen
Frame.OuterBrush.Gradient.EndColor = 4210752
Frame.OuterBrush.Gradient.MidColor = clWhite
Frame.OuterBrush.Gradient.StartColor = clSilver
Frame.OuterBrush.Gradient.Visible = True
Frame.Visible = False
Frame.Width = 4
OtherSlice.Legend.Visible = False
PiePen.Visible = False
RotationAngle = 75
end
object Series5: TPieSeries
Cursor = crHandPoint
Marks.Arrow.Visible = True
Marks.Callout.Brush.Color = clBlack
Marks.Callout.Arrow.Visible = True
Marks.Visible = True
Title = #1576#1582#1588' '#1607#1575
XValues.Order = loAscending
YValues.Name = 'Pie'
YValues.Order = loNone
OnClick = Series1Click
ExplodeBiggest = 15
Frame.InnerBrush.BackColor = clRed
Frame.InnerBrush.Gradient.EndColor = clGray
Frame.InnerBrush.Gradient.MidColor = clWhite
Frame.InnerBrush.Gradient.StartColor = 4210752
Frame.InnerBrush.Gradient.Visible = True
Frame.MiddleBrush.BackColor = clYellow
Frame.MiddleBrush.Gradient.EndColor = 8553090
Frame.MiddleBrush.Gradient.MidColor = clWhite
Frame.MiddleBrush.Gradient.StartColor = clGray
Frame.MiddleBrush.Gradient.Visible = True
Frame.OuterBrush.BackColor = clGreen
Frame.OuterBrush.Gradient.EndColor = 4210752
Frame.OuterBrush.Gradient.MidColor = clWhite
Frame.OuterBrush.Gradient.StartColor = clSilver
Frame.OuterBrush.Gradient.Visible = True
Frame.Visible = False
Frame.Width = 4
OtherSlice.Legend.Visible = False
PiePen.Visible = False
RotationAngle = 75
end
end
object qStats: TADOQuery
Connection = dmLabData.ADOConnection
ExecuteOptions = [eoAsyncExecute]
Parameters = <>
Left = 48
Top = 40
end
object tmAdminStats: TJvTimer
Enabled = False
Interval = 5000
OnTimer = tmAdminStatsTimer
Left = 48
Top = 112
end
end