ピクセル値のmm取得をするには？

解決

Kikumi 2003-03-11 20:12:29 No: 3133

いつも利用させて頂いてます。

QuickReportを作成してます。(A4)
Units := MM
左マージン15mm、上マージン10mm

Var
    p : Handle;
    lpx,lpy : Integer;
    x,y : Double;

Begin
    p := Printer.Handle;
    lpx := GetDeviceCaps(p,LogPixelsX);
    lpy := GetDeviceCaps(p,LogPixelsY);

x := lpx * ??mm / 25.4;
y := lpx * ??mm / 25.4;

CanvasMoveTo(Round(x),Round(y));

としていますが、
??のmmの算出方法を知りたいのですが・・・
LogPixelsX,Yの戻値を調べて、実際に代入して
計算しても、大きく違うのですが・・

現状は、QuickReport上の見た目で少しずつ
あわせて印刷しています。

Kikumi 2003-03-11 23:19:31 No: 3134

ごめんなさい、解決しました。