目标区域Rect2,原区域Rect1
fx:=:Round(GetDeviceCaps(Printer.Handle,LOGPIXELSX)/Screen.PixelsPerinch);
fy:=:Round(GetDeviceCaps(Printer.Handle,LOGPIXELSY)/Screen.PixelsPerinch);
Rect2.Left:=Rect1.Left*fx;
Rect2.Top:=Rect1.Top*fy;
Rect2.Right:=Rect1.Right*fx;
Rect2.Bottom:=Rect1.Bottom*fy;
将原来的bitmap拉伸调到rect2上
把本来打到Rect1上的东西按比例调到Rect2就行了。(本代码未经测试)
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货