轉帖|其它|編輯:郝浩|2012-11-01 14:51:45.000|閱讀 1759 次
概述:TeeChart 7 前可以通過類似于Chart1.Export.SaveToJPEGFile的方法把TChart存成需要的圖像格式,但到TeeChart 7后就沒有Export屬性了。下面我用代碼示例總結一下導出各種圖像格式時的設置方法
# 界面/圖表報表/文檔/IDE等千款熱門軟控件火熱銷售中 >>
我們都知道用Delphi第三方圖表工具 TeeChart 可以導出很多種圖像格式,TeeChart 7 前可以通過類似于Chart1.Export.SaveToJPEGFile的方法把TChart存成需要的圖像格式,但到TeeChart 7后就沒有Export屬性了。下面我用代碼示例總結一下導出各種圖像格式時的設置方法:
TeeChart提供導出BMP、WMF的方法,直接調用即可,示例如下:
Chart1.SaveToBitmapFile('c:\1.bmp');
Chart1.SaveToMetafile('c:\1.wmf');
TeeChart導出JPG(JPEG)也比較簡單,在本單元中uses TeeJPEG單元,然后執行TeeJPEG中的TeeSaveToJPEG或TeeSaveToJPEGFile。示例如下:
//注意要包含TeeJPEG才可以 implementationuses TeeJPEG; procedure TForm1.Button2Click(Sender: TObject); begin TeeSaveToJPEG(Chart1, 'c:\1.jpg', -1, -1);//后面的兩個參數是寬和高,如果用TeeChart的寬、高可以設為-1.end;
TeeChart導出GIF較復雜一些,代碼示例:
//注意要包含TeeGIF才可以 implementationuses 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;
注:上面的例子對于TeeChart的圖像導出很有代表意義,其實所有格式的導出到可以用上例的方式,只是把TGIFExportFormat換成需要的格式即可,因為所有的導出都對應一種格式。
上面例子中,生成一個導出的格式類對象,設置此格式要導出的Chart,如果有必要再設定導出的選項。導出選項要特別提醒一下,所有導出格式的導出選項都是通過格式類的Options()函數得到的窗體進行設置的,這點比較奇怪。
GIF導出必須設定frm.CBReduction.ItemIndex,因為此項缺省為0,導出時會報“Color Table error....”的錯誤,所以必須設為非0的值,每個值代表什么意思,自己可以查一下。
TeeChart導出PCX同導出GIF極其類似,代碼示例如下:
//注意要包含TeePCX才可以 implementationuses TeePCX; procedure TForm1.Button4Click(Sender: TObject); var exp : TPCXExportFormat; begin exp := TPCXExportFormat.Create; exp.Panel := Chart1; exp.SaveToFile('c:\1.pcx'); exp.Free; end;
TeeChart可以直接導出到HTM,在本單元中uses TeeVMLCanvas單元,然后執行TeeVMLCanvas中的TeeSaveToVMLFile即可。示例如下:
//注意要包含TeeVMLCanvas才可以 implementationuses TeeVMLCanvas; procedure TForm1.Button5Click(Sender: TObject); begin TeeSaveToVMLFile(Chart1, 'c:\1.html'); end;
TeeChart可以很容易導出到PNG,在本單元中uses TeePNG單元,然后執行TeePNG中的TeeSaveToPNG即可。示例如下:
//注意要包含TeePNG才可以 implementationuses TeePNG; procedure TForm1.Button7Click(Sender: TObject); begin TeeSaveToPNG(Chart1, 'c:\1.png'); end;
注意:保存PNG格式需要LPng.dll,所以為了能正常運行上例代碼需下載安裝LPng.dll。
本文總結了TeeChart 導出圖像時的各種方法,每種方式都給出了代碼示例,希望對使用TeeChart的朋友有所幫助。
本站文章除注明轉載外,均為本站原創或翻譯。歡迎任何形式的轉載,但請務必注明出處、不得修改原文相關鏈接,如果存在內容上的異議請郵件反饋至chenjj@fc6vip.cn
文章轉載自:百度空間