你的意思是什么?你要加这个点吗? 给你一点东西,做参考。 With Chart do begin Icon.Handle := LoadIcon(HInstance,'OurwayIcon'); Caption:=pChart.sFormCaption; ctOrientation := pChart.tPaperState; iMax:=Length(pChart.stValue); myChart.Legend.Visible:=false; //去掉右边"直线图,方块图"的说明 with myChart.Title do begin Text.Clear; Font:=Chart.Font; Font.Size:=16; Font.Style:=[fsBold]; Text.Add(pChart.sTitle); Text.Add(''); end; //设置页脚的标题以及字体 with myChart.Foot do begin Text.Clear; Font:=Chart.Font; Text.Text:=pChart.sFoot; Text.Insert(0,''); for i:=0 to Text.Count-1 do Text.Strings[i]:=Format('%-40s',[Text.Strings[i]]); end; //设置左边的标题以及标题的字体 myChart.LeftAxis.Title.Font.Name:='@宋体'; myChart.LeftAxis.Title.Font.Size:=10; myChart.LeftAxis.Title.Angle:=270; myChart.LeftAxis.Title.Caption:=pChart.sYLabel; //设置方块条底部的字体 myChart.BottomAxis.LabelsFont:=Chart.Font; myChart.BottomAxis.Title.Caption:=pChart.sXLabel; myChart.SeriesList.Clear; myChart.AddSeries(TBarSeries.Create(myChart)); for i:=0 to iMax-1 do myChart.Series[0].Add(pChart.stValue[i].dValues,pChart.stValue[i].sName); myChart.AddSeries(TPieSeries.Create(myChart)); for i:=0 to iMax-1 do if pChart.stValue[i].dValues<>0 then myChart.Series[1].Add(pChart.stValue[i].dValues,pChart.stValue[i].sName); myChart.AddSeries(TLineSeries.Create(myChart)); for i:=0 to iMax-1 do myChart.Series[2].Add(pChart.stValue[i].dValues,pChart.stValue[i].sName); with (myChart.Series[0] as TBarSeries) do begin ColorEachPoint:=true; Marks.Style := smsValue; //标签显示当前值 end; with (myChart.Series[1] as TPieSeries) do begin Marks.Style:= smsLabelPercent; end; //设置直线图 with (myChart.Series[2] as TLineSeries) do begin Marks.Style := smsValue; //标签显示当前值 Marks.Visible := True; Marks.ArrowLength := 24; SeriesColor := clRed; //设置线的颜色 Color:=clBlack; Pointer.InflateMargins := True; Pointer.Visible := True; //线的转折点显示标记 Pointer.Style := psDiamond; //标记为棱形 end; myChart.AllowZoom:=false; myChart.AllowPanning:=pmNone; myChart.AnimatedZoom:=false; end;
给你一点东西,做参考。
With Chart do
begin
Icon.Handle := LoadIcon(HInstance,'OurwayIcon');
Caption:=pChart.sFormCaption;
ctOrientation := pChart.tPaperState;
iMax:=Length(pChart.stValue);
myChart.Legend.Visible:=false; //去掉右边"直线图,方块图"的说明
with myChart.Title do
begin
Text.Clear;
Font:=Chart.Font;
Font.Size:=16;
Font.Style:=[fsBold];
Text.Add(pChart.sTitle);
Text.Add('');
end;
//设置页脚的标题以及字体
with myChart.Foot do
begin
Text.Clear;
Font:=Chart.Font;
Text.Text:=pChart.sFoot;
Text.Insert(0,'');
for i:=0 to Text.Count-1 do
Text.Strings[i]:=Format('%-40s',[Text.Strings[i]]);
end;
//设置左边的标题以及标题的字体
myChart.LeftAxis.Title.Font.Name:='@宋体';
myChart.LeftAxis.Title.Font.Size:=10;
myChart.LeftAxis.Title.Angle:=270;
myChart.LeftAxis.Title.Caption:=pChart.sYLabel;
//设置方块条底部的字体
myChart.BottomAxis.LabelsFont:=Chart.Font;
myChart.BottomAxis.Title.Caption:=pChart.sXLabel;
myChart.SeriesList.Clear; myChart.AddSeries(TBarSeries.Create(myChart));
for i:=0 to iMax-1 do
myChart.Series[0].Add(pChart.stValue[i].dValues,pChart.stValue[i].sName); myChart.AddSeries(TPieSeries.Create(myChart));
for i:=0 to iMax-1 do
if pChart.stValue[i].dValues<>0 then
myChart.Series[1].Add(pChart.stValue[i].dValues,pChart.stValue[i].sName); myChart.AddSeries(TLineSeries.Create(myChart));
for i:=0 to iMax-1 do
myChart.Series[2].Add(pChart.stValue[i].dValues,pChart.stValue[i].sName); with (myChart.Series[0] as TBarSeries) do
begin
ColorEachPoint:=true;
Marks.Style := smsValue; //标签显示当前值
end; with (myChart.Series[1] as TPieSeries) do
begin
Marks.Style:= smsLabelPercent;
end; //设置直线图
with (myChart.Series[2] as TLineSeries) do
begin
Marks.Style := smsValue; //标签显示当前值
Marks.Visible := True;
Marks.ArrowLength := 24;
SeriesColor := clRed; //设置线的颜色
Color:=clBlack;
Pointer.InflateMargins := True;
Pointer.Visible := True; //线的转折点显示标记
Pointer.Style := psDiamond; //标记为棱形
end;
myChart.AllowZoom:=false;
myChart.AllowPanning:=pmNone;
myChart.AnimatedZoom:=false;
end;
TBarSeries 条形图 (myChart.AddSeries(TBarSeries.Create(myChart));)
TPieSeries 饼图
TLineSeries 折线图
根据添加的顺序,
Series[0]为TBarSeries
Series[1]为TPieSeries
Series[2]为TLineSeries