Delphi,你听说过吗?
不说了,这又是一个悲伤的故事,这个故事只有像笨笨这么有情怀的人才听得懂,哈哈。当年,四大编译器厂商(Borland,Watcom,MicroSoft,Symantec)混战,其情节波荡起伏,令人扼腕叹息。详情请见《Borland传奇》。
本节课采用Delphi7。虽然目前Delphi仍然活着,并且转型为跨平台的大型开发工具,同一套代码在Windows,linux,MacOS上都能运行,甚至支持Android,但是,笨笨仍然放不下和VC6同时代的经典之作Delphi7。
当然,说实话,在Delphi平台上,用CChart的必要性并不大,因为Delphi自带功能强大的TeeChart。
但由于CChart的可拓展性强,易于定制,这就可以想法实现一些TeeChart不支持的功能,满足用户的特殊需求。
下面开始。
第一步,打开Delphi7,会自动建立一个名为Form1的窗体。
第二步,导入PlotCom控件,如图。
导入完成后,在ActiveX工具条上会增加PlotCom图标。
第三步,在Form1窗体上放置一个PlotCom控件,并调整大小。
第四步,通过Object Inspector添加Form1的OnCreate函数。
代码如下。
procedure TForm1.FormCreate(Sender: TObject);
begin
PlotCtrl1.SetType(1);
PlotCtrl1.Title := '标题';
PlotCtrl1.AddPie(3);
PlotCtrl1.AddPie(2);
PlotCtrl1.AddPie(1);
PlotCtrl1.AddPie(6);
PlotCtrl1.AddPie(7);
PlotCtrl1.SetPieTitle('张', 0);
PlotCtrl1.SetPieTitle('王', 1);
PlotCtrl1.SetPieTitle('李', 2);
PlotCtrl1.SetPieTitle('赵', 3);
PlotCtrl1.SetPieTitle('陈', 4);
end;
最终效果如图。
好了,Delphi的介绍到此结束。