▼ Mr.XRAYさん
お世話になります。
Delphiサンプルプログラム集
012_プリンタ解像度と用紙サイズ等の取得
procedure TForm1.ComboBox1CloseUp(Sender: TObject);
・
・
・
//上下左右のオフセット
inc(i);
TempInt := GetDeviceCaps(PrtHandle, PHYSICALOFFSETY);
TempDouble := TempInt * 25.4 / XDPI; ←●
StringGrid1.Cells[2, i] := Format('%8.1f [mm]',[TempDouble]);
inc(i);
TempInt := GetDeviceCaps(PrtHandle, PHYSICALOFFSETY) +
GetDeviceCaps(PrtHandle, VERTRES);
TempDouble := TempInt * 25.4 / XDPI; ←●
StringGrid1.Cells[2, i] := Format('%8.1f [mm]', [TempDouble]);
inc(i);
TempInt := GetDeviceCaps(PrtHandle, PHYSICALOFFSETX);
TempDouble := TempInt * 25.4 / YDPI; ←■
StringGrid1.Cells[2, i] := Format('%8.1f [mm]', [TempDouble]);
inc(i);
TempInt := GetDeviceCaps(PrtHandle, PHYSICALOFFSETX) +
GetDeviceCaps(PrtHandle, HORZRES);
TempDouble := TempInt * 25.4 / YDPI; ←■
StringGrid1.Cells[2, i] := Format('%8.1f [mm]', [TempDouble]);
のドットをmmに変換するところですが、
←●のXDPI
←■のYDPI が逆ではないでしょうか。(チョット頭が混乱してきました)
よろしくお願いします。
|