其实通过TPaintBox控件可以绘制不同的图表,个人在这里分享一种个人认为对绘制柱形图比较简单的方式,咱们直接看代码吧!(温馨提示:在OnPaint事件中进行编码)
int i;
int x1,x2,y1,y2;
int width =PaintBox1->Width;
int height = PaintBox1->Height;
// 每一个柱状的宽度
int barWidth = 20;
//每个柱状的间隔
int barGap = 10;
//共有多少个柱状
int barCount = 12;
//柱状值后期可以设立一个vector
int barValues[] = {10,34,56,23,4,5,78,45,76,3,4,200};
TCanvas *Canvas = PaintBox1->Canvas;
//绘制柱状图
for(i = 0; i< barCount;i++)
{
// 这个案例中的绘图方式直接按照每个柱状的位置,一个一个直接画
//x1加60以及y1-50是为了定坐标轴的原点,在原点基础上就默默画好了坐标轴
//(x1,y1),(x2,y2) 两个点确定一个矩形,
x1=60+i*(barWidth+barGap);
y1 = height-50;
x2=x1+barWidth;
// 首先height-50是定y轴的高度,后面的 barValues[i]*(height-100)/200
//height-100表示根据TPaintBox控件的高度最终会留出100个像素的高度作为留白,除以200表示该柱形图最高值为200
y2 = height -50-barValues[i]*(height-100)/200;
// 矩形填充色
Canvas ->Brush ->Color = clBlue;
// 绘制矩形
Canvas->FillRect(TRect(x1,y1,x2,y2));
// 想要把数值显示在每一个矩形的上方
Canvas->Brush->Color = clWhite;
// 显示数值 画布中的TextOutW用于输出文字,所以x1为每一个矩形的开始,y2为每个矩形的高度再-20表示里该矩形高20个像素
// 由于是输入文字所以要将数值强制转换成字符串类型
Canvas->TextOutW(x1+barWidth/2-10,y2-20,IntToStr(barValues[i]));
}
效果图如图1所示,效果有点丑哈,大家可以自行设计哈哈哈哈
图1 效果图