像素值如何转换为毫米值

水平方向：
mm:= Pixel / GetDeviceCaps(Canvas.Handle, LOGPIXELSX) * 25.4;
垂直方向：
mm:= Pixel / GetDeviceCaps(Canvas.Handle, LOGPIXELSY) * 25.4;
厘米数 = 像素数 / dpi * 2.54，
像素转化厘米对于显示器没意义，只有对打印机这类的输出设备才有意义。
600 dpi的打印机和1200dpi的打印机都打印一个1000像素的直线他们长度是不同的。
如果我想要把屏幕上点与点的距离转为厘米有什么好的方法呢!
回复人： ttxm(耳朵) ( ) 信誉：100 2002-12-27 18:03:00 得分:0
没有特别好的办法，思路同pazee(耙子)说的一样？
代码如下(是毫米)：
function getmmScreen:TPoint;
var
p1:TPoint;
begin
p1.X:=GetDeviceCaps(frmSize.Canvas.Handle,HORZSIZE);
p1.Y:=GetDeviceCaps(frmSize.Canvas.Handle,VERTSIZE);
Result:=p1;
end;funCtion getPixelScreen:TPoint;
var
p1:TPoint;
begin
p1.X:=screen.Width;
p1.Y:=screen.Height;
result:=p1;
end;
procedure TfrmSize.mmToPix;
begin
mmTopixX:=getPixelScreen.X / getMMScreen.X
mmTopixY:=getPixelScreen.Y / getMMScreen.Y
end;