请教：如何得到这个比例因子？(100分)

inforum · 2002-09-23

要在纸上画10CM的线，我这样做
SetMapMode(Printer.Handle , MM_LOMETRIC);
Printer.BeginDoc;
Printer.Canvas.MoveTo(100, 50);
Printer.Canvas.LineTo(1100,50);
Printer.EndDoc;
可是打出来只有8.5CM，好象是分辨率的缘故，
请问具体怎么做才能使得打出来也是10CM？

huazai · 2002-09-23

看看这个，应该可以：

代码:

 Printer.BeginDoc; // **
         with Printer do
         try
            ScaleX := GetDeviceCaps(Handle, logPixelsX) div
               PixelsPerInch;
            ScaleY := GetDeviceCaps(Handle, logPixelsY) div
               PixelsPerInch;
            R := Rect(0, 0, childform.Image1.Picture.Width * ScaleX,
               childform.Image1.Picture.Height * ScaleY);
            Canvas.StretchDraw(R, childform.Image1.Picture.Graphic); // ** &amp;Ograve;&amp;ordf;&amp;Agrave;&amp;shy;&amp;Eacute;ì
         finally
            EndDoc; // **

caiguoxin · 2002-09-23

inforum · 2002-09-24

Re:huazai
您的方法不对，打出来结果太长了
如果用div，ScaleX为3

欢迎各位经过测试后回答，谢谢！

inforum · 2002-09-28

该问题自己已解决，原来很简单。
仓促提出，真不好意思

inforum · 2003-10-21

抱歉，1年前该问题自己已解决，只是忘了结帖。

主要设置纸张大小，然后将TCanvas通过StretchDraw画到指定的大小内

inforum · 2003-10-21

多人接受答案了。

来如风 · 2003-10-21

你是怎么解决的？告诉我好吗？我正好学学

请教：如何得到这个比例因子？(100分)

inforum

Unregistered / Unconfirmed

huazai

Unregistered / Unconfirmed

caiguoxin

Unregistered / Unconfirmed

inforum

Unregistered / Unconfirmed

inforum

Unregistered / Unconfirmed

inforum

Unregistered / Unconfirmed

inforum

Unregistered / Unconfirmed

来如风

Unregistered / Unconfirmed

Similar threads