再加100分!(100分)

  • 主题发起人 主题发起人 avant
  • 开始时间 开始时间
A

avant

Unregistered / Unconfirmed
GUEST, unregistred user!
参见
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=260571
 
DrawGrid怎么打印?好象直接打印Canvas不行,我想先把逐个图形拷到一个image上(CopyRect),
在页交界(较长,有滚动条)处会有突变!

比方说,DrawGrid有50行,但不滚动只能一次显示20行,当我一次拷贝一行到一个
Image上时,只有当前显示部分会拷贝过去,而遮住的部分拷贝不上去,怎么回事,
我需要有建设性的意见,分不够还可以加!!!代码如下:


var
Source,Dest:TRect;
i:integer;
begin
for i:=0 to DrawGrid1.RowCount-1 do
begin
Source:=DrawGrid1.CellRect(0,i);
Source.Right:=Source.Left+DrawGrid1.DefaultColWidth*DrawGrid1.ColCount;
Dest:=Source;
Image1.Canvas.CopyRect(Dest,DrawGrid1.Canvas,Source);
end;
end;
 
应该有人会呀!
-----好不遗憾的说...
 
试试ScreenReport,
http://delphi.yesite.com
 
建立一幅保证足够大的BMP(能显示下所有DBGRID中的记录, 包括被遮掉的部分),
然后DBGrid.PaintTo(Bmp.Canvas.Handle, 0, 0);
 
接受答案了.
 
后退
顶部