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

    设计状态下，双击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;

编译运行：

源码：http://pan.baidu.com/s/1mgkP0Dy

---------------------------------------------

开发工具：CodeTyphonIns5.2.1 下载 http://pan.baidu.com/s/1i38Civb （548M）

2015.2.17