With FChart do
begin
with Chart1.Title do
begin
Text.Clear;
Font:=Font;
Font.Size:=16;
Font.Style:=[fsBold];
Text.Add(pChart.sTitle);
Text.Add('');
Text.Add('');
end;
//设置页脚的标题以及字体
with Chart1.Foot do
begin
Text.Clear;
Font:=Font;
Font.Size:=12;
Text.Add(pChart.sXLabel);
end;
//设置左边的标题以及标题的字体
Chart1.LeftAxis.Title.Font:=Font;
Chart1.LeftAxis.Title.Caption:=pChart.sYLabel;
//设置方块条底部的字体
Chart1.BottomAxis.LabelsFont:=Font;
Chart1.BottomAxis.LabelsFont.Size:=8;
//添加值
Chart1.AddSeries(TBarSeries.Create(Chart1));
Chart1.Series[0].Add(100,'成绩',clRed); end;
begin
with Chart1.Title do
begin
Text.Clear;
Font:=Font;
Font.Size:=16;
Font.Style:=[fsBold];
Text.Add(pChart.sTitle);
Text.Add('');
Text.Add('');
end;
//设置页脚的标题以及字体
with Chart1.Foot do
begin
Text.Clear;
Font:=Font;
Font.Size:=12;
Text.Add(pChart.sXLabel);
end;
//设置左边的标题以及标题的字体
Chart1.LeftAxis.Title.Font:=Font;
Chart1.LeftAxis.Title.Caption:=pChart.sYLabel;
//设置方块条底部的字体
Chart1.BottomAxis.LabelsFont:=Font;
Chart1.BottomAxis.LabelsFont.Size:=8;
//添加值
Chart1.AddSeries(TBarSeries.Create(Chart1));
Chart1.Series[0].Add(100,'成绩',clRed); end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货