(lazarus)用BGRABitmap渲染前面的TAChart，让它更好看

最新推荐文章于 2021-01-17 16:38:15 发布

翻译最新推荐文章于 2021-01-17 16:38:15 发布 · 1.7k 阅读

文章标签：

#lazarus #图表 #chart

Lazarus 专栏收录该内容

171 篇文章

订阅专栏

本博客详细介绍了如何使用CodeTyphonIns5.2.1开发工具在设计状态下，通过双击chart并自定义事件，实现创建并绘制自定义3D柱状图的过程。

设计状态下，双击chart，弹出series窗口，选中Chart1BarSeries1，增加Chart1BarSeries1BeforeDrawBar事件：

procedure TForm1.BeforeDrawBarHandler(ASender: TBarSeries; ACanvas: TCanvas;
  const ARect: TRect; APointIndex, AStackIndex: Integer;
var ADoDefaultDrawing: Boolean);
begin
  ADoDefaultDrawing:= false;
  DrawPhong3DBar(ASender, ACanvas, ARect, APointIndex);
end;

编译运行：