tchart 保存为图像

 

很容易实现的,先用Chart1->TeeCreateBitmap()返回是BITMAP的类型,有这个不就成了吗?或者有个更好的的办法,

 

 

Chart1->CopyToClipboardBitmap();直接到系统剪切板上,到EXCEL里一帖就行了。呵呵。

=====================

Chart1.SaveToBitmapFile('d://test.bmp'); 直接保存为bmp格式图像

---------------------------------------------------------------------------
procedure TMainForm.Button1Click(Sender: TObject);
begin
     Chart1.Print();
end; procedure
----------------------------------------------------------------
TMainForm.Button3Click(Sender: TObject);
begin
     SaveDialog1.Execute;
     Chart1.SaveToBitmapFile(SaveDialog1.FileName+'.bmp');
end;


 

 

. TChart7前的版本

TChart7前的TChart可以通过类似于Chart1.Export.SaveToJPEGFile的方法把TChart存成需要的图像格式,但到TChart7后TChart就没有Export属性了,要导出图像要用下面的方法。我尽量用代码说明问题,如果细节不够的话,自己可以查询相应的源代码进行学习。

2. TChart7导出BMP、WMF

TChart7提供导出BMP、WMF的方法,直接调用即可,例子如下:

Chart1.SaveToBitmapFile('c:/1.bmp');
Chart1.SaveToMetafile('c:/1.wmf');

3. TChart7导出JPG(JPEG)

TChart7导出JPG(JPEG)也比较简单,在本单元中uses TeeJPEG单元,然后执行TeeJPEG中的TeeSaveToJPEG或TeeSaveToJPEGFile。例子如下:

//注意要包含TeeJPEG才可以。
implementation
uses
TeeJPEG;

procedure TForm1.Button2Click(Sender: TObject);
begin
TeeSaveToJPEG(Chart1, 'c:/1.jpg', -1, -1);//后面的两个参数是宽和高,如果用TeeChart的宽、高可以设为-1.
end;

4. TChart7导出GIF

TChart7导出GIF比较复杂一些,还是用代码举例吧。

//注意要包含TeeGIF才可以。
implementation
uses
TeeGIF;

procedure TForm1.Button3Click(Sender: TObject);
var
exp : TGIFExportFormat;
frm : TTeeGIFOptions;
begin
exp := TGIFExportFormat.Create;
exp.Panel := Chart1;
frm := TTeeGIFOptions(exp.Options());
frm.CBReduction.ItemIndex := 3;
exp.SaveToFile('c:/1.gif');
exp.Free;
end;

稍微解释一下,上面的例子对于TChart7的图像导出很有代表意义,其实所有格式的导出到可以用上例的方式,只是把TGIFExportFormat换成需要的格式即可,因为所有的导出都对应一种格式。

上面例子中,生成一个导出的格式类对象,设置此格式要导出的Chart,如果有必要再设定导出的选项。导出选项要特别提醒一下,所有导出格式的导出选项都是通过格式类的Options()函数得到的窗体进行设置的,这点比较奇怪。

GIF导出是必须设定frm.CBReduction.ItemIndex,因为此项缺省为0,导出是会报“Color Table error....”的错误,所以必须设为非零的值,每个值代表什么意思,自己可以查一下。

5. TChart7导出PCX

TChart7导出PCX同导出GIF极其类似,代码示例如下:

//注意要包含TeePCX才可以。
implementation
uses
TeePCX;

procedure TForm1.Button4Click(Sender: TObject);
var
exp : TPCXExportFormat;
begin
exp := TPCXExportFormat.Create;
exp.Panel := Chart1;
exp.SaveToFile('c:/1.pcx');
exp.Free;
end;

6. TChart7导出HTM

TTChart7可以直接导出到HTM,在本单元中uses TeeVMLCanvas单元,然后执行TeeVMLCanvas中的TeeSaveToVMLFile即可。示例如下:

//注意要包含TeeVMLCanvas才可以。
implementation
uses
TeeVMLCanvas;
procedure TForm1.Button5Click(Sender: TObject);
begin
TeeSaveToVMLFile(Chart1, 'c:/1.html');
end;

7. TChart7导出PNG

TTChart7可以很容易导出到PNG,在本单元中uses TeePNG单元,然后执行TeePNG中的TeeSaveToPNG即可。示例如下:

//注意要包含TeePNG才可以。
implementation
uses
TeePNG;

procedure TForm1.Button7Click(Sender: TObject);
begin
TeeSaveToPNG(Chart1, 'c:/1.png');
end;

要注意的是,保存PNG格式需要LPng.dll,所以为了能正常运行上例代码需下载安装LPng.dll。

8. 结语

本文给出了TeeChart7导出图像时的方法,每种方式都给出了代码示例,希望对使用TChart7的图像导出进行汇总。

Delphi 10 是一种用于开发 Windows 应用程序的集成开发环境(IDE),其中包含了许多可用于创建图表的组件,其中之一就是 TChart。 TChart 是一个功能强大的图表控件,它允许开发人员轻松地在 Delphi 10 中创建各种类型的图表,如折线图、柱状图、饼图等。TChart 提供了丰富的属性和方法,以方便开发人员自定义图表的外观和行为。 要在 Delphi 10 中使用 TChart,首先需要将该控件添加到窗体中。选择一个适当的容器控件(如 TPanel),然后将 TChart 控件拖放到窗体上。接下来,可以使用属性编辑器或代码来设置图表的属性,例如图表标题、轴标签、图例等。 在将 TChart 添加到窗体后,可以使用 TChart 控件的系列属性来添加要显示的数据。每个数据系列对应于图表中特定的数据集,它可以包含一个或多个数据点。可以通过编辑系列的属性或使用代码来设置数据的值。 一旦设置了图表的属性和数据,可以通过调用 TChart 的方法来绘制和展示图表,例如 TChart.Paint 或 TChart.Invalidate。还可以通过调用 TChart 的其他方法来实现数据更新、缩放、平移等功能。 除了上述基本功能外,TChart 还提供了许多其他功能,如图表的导出和打印、动画效果、交互式操作等。这些功能使得开发人员能够创建出功能丰富、灵活性强的图表应用程序。 总而言之,Delphi 10 中的 TChart 控件为开发人员提供了一个强大而灵活的工具,用于创建各种类型的图表。无论是需要在商务报告中展示数据,还是需要在科学研究中可视化实验结果,TChart 都可以帮助开发人员快速实现他们的需求。
评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值