关于图表打印问题!(出了两张,郁闷) ( 积分: 50 )

  • 主题发起人 主题发起人 riren
  • 开始时间 开始时间
R

riren

Unregistered / Unconfirmed
GUEST, unregistred user!
try
LockWindowUpdate(chart1.Handle);
chart1.BackColor:=clwhite;
chart1.PrintOrientation(poLandscape);
chart1.Print;
chart1.BackColor:=clblack;
LockWindowUpdate(0);
except
end;

代码别人那拷的,也不知道什么意思,谁顺便解释一下
 
try
LockWindowUpdate(chart1.Handle);
chart1.BackColor:=clwhite;
chart1.PrintOrientation(poLandscape);
chart1.Print;
chart1.BackColor:=clblack;
LockWindowUpdate(0);
except
end;

代码别人那拷的,也不知道什么意思,谁顺便解释一下
 
try
LockWindowUpdate(chart1.Handle);//锁定控件chart1,不进行更新显示
chart1.BackColor:=clwhite;
//设置背景色为白色
chart1.PrintOrientation(poLandscape);
//设置纸张为横向
chart1.Print;
//打印
chart1.BackColor:=clblack;
//又把背景色改回黑色
LockWindowUpdate(0);    //解除更新锁定
except
end;
 
那为什么为打印出两张啊
 
晕,怎么问到我这贴了
谁知道为什么会打印出两张来啊
 
可能其他地方调用了打印代码吧,你可以在打印代码处设置断点,执行完Print就知道结果了
 
TO 踏浪99
就这一个按钮,我只点了这个按钮而已,按钮也没做什么连接啊,就这么点代码啊
procedure TchartFrm.Button6Click(Sender: TObject);
begin
try
LockWindowUpdate(charthis.Handle);
charthis.BackColor:=clwhite;
charthis.PrintOrientation(poLandscape);
charthis.Print;
charthis.BackColor:=clblack;
LockWindowUpdate(0);
except
end;
end;
 
........................
 
charthis.PrintOrientation(poLandscape);//横着打
charthis.Print;//竖着打
 
多人接受答案了。
 
后退
顶部