首页 > 数据库技术 > 详细

主窗体里面打开子窗体&&打印饼图《Delphi 6数据库开发典型实例》--图表的绘制

时间:2015-04-28 15:54:49      阅读:175      评论:0      收藏:0      [点我收藏+]

\Delphi 6数据库开发典型实例\图表的绘制

1、在主窗体里面打开子窗体:ShowForm(Tfrm_Print);

procedure Tfrm_Main.ShowForm(AFormClass:TFormClass);
begin
with AFormClass.Create(Self) do
try
ShowModal;  // 阻塞或者模态窗口,只有你把当前窗口关闭后,才能去操作父亲窗口。
finally
Free;
end;
end;

//这个例子打开有异常,提示单元chart 引用本身,

因为工程命名为program Chart;和所用的控件类名称 Tchart冲突了,

将工程名改成program MyChart; 编译即可。

2、打印饼图;

技术分享
 1 implementation
 2 uses printers;
 3 {$R *.dfm}
 4 
 5 procedure Tfrm_Print.btn_PrintClick(Sender: TObject);
 6 var h,w:longint;
 7 begin
 8   Screen.Cursor := crHourGlass;
 9   try
10     Printer.BeginDoc;
11     try
12       h:=Printer.PageHeight;
13       w:=Printer.PageWidth;
14 
15       Chart1.PrintPartial(  Rect(  w div 10,
16                                    h div 3 ,
17                                    w - (w div 10),
18                                    h - (h div 10) ));
19 
20       Printer.EndDoc;
21     except
22       on Exception do
23       begin
24         Printer.Abort;
25         Printer.EndDoc;
26         raise;
27       end;
28     end;
29   finally
30     Screen.Cursor:=crDefault;
31   end;
32 end;
打印饼图

技术分享

主窗体里面打开子窗体&&打印饼图《Delphi 6数据库开发典型实例》--图表的绘制

原文:http://www.cnblogs.com/rogge7/p/4463081.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!