名前
題名
▼ satoさん > ▼ 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　が逆ではないでしょうか。（チョット頭が混乱してきました） > よろしくお願いします。 >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link