请问怎么在delphi中打印某个指定区域的屏幕

Posted 2023-05-16

比如，将显示屏左边部分全部打印出来

参考技术A var
ACanvas: TCanvas;
begin
ACanvas := TControlCanvas.Create;
TControlCanvas(ACanvas).Control := Panel1;
Image1.Canvas.CopyRect(Image1.ClientRect, ACanvas, Panel1.ClientRect);
end;

with Printer do
begin
BeginDoc;
Panel1.PaintTo(Handle, 10, 10);
EndDoc;
end;
http://bbs.csdn.net/topics/310211482本回答被提问者采纳 参考技术B 先实现截屏，保存为图片，再打印这个图片

Wpf中，怎样获取Canva中指定区域上都有哪些控件？

问题描述：一个Canvas上有很多的控件（如TextBox，TextBlock，Button等）,有个名为tb1的TextBlock，怎样获取与tb1有重叠部分的所有其他控件？

参考技术A 遍历，用VisualTreeHelper取控件的Rect
跟tb1的Rect做Intersect
如果得到的不是Empty就是相交本回答被提问者采纳 参考技术B 不知道有没有更好点的办法。
下面是个比较麻烦的法子：
遍历Canvas.Children中所有的控件，用Canvas.GetTop()之类的方法取出坐标，然后判断坐标点是否在区域中。如果符合要求，就添加到一个临时的结果列表中。追问

谢谢你的回答。
现在问题变成了已知两个矩形区域（顶点坐标已知），判断是否有重叠区域。
但是两个矩形有重叠区域 并不等价于“一个矩形存在一个顶点在另一个矩形区域”，如果两个矩形成“十字形”交叉重叠，这个貌似不太好判断（如果去计算边是否交点，开销有点大）。

追答

除非Canvas中的控件实在太多（成百上千个），否则我觉得对于能跑动WPF的机器来说，这点开销还是可以接受的。
RayNCC 说的这个办法（rect.Intersect()，用于查找当前矩形和指定矩形的将领）应该是最合适的，建议将RayNCC 这个采纳为最佳答案。
——话说我还真没想过使用Rect类的现成方法。惭愧惭愧。今儿又学了一招。