掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
QuickReportのプレビュー画面が、PCのディスプレイの拡大縮小の設定によって小さくなります (ID：150932)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
stack overflow に以下のような書き込みがあるのを見つけました． QRPrntr.pas 内の CreateMetafileCanvas メソッドのコードで メタファイルの DPI ( PixelsPerInch ) の値を変更する方法です． 参考になるかもしれません． コードを転載しておきます． https://stackoverflow.com/questions/25924614/quick-report-displaying-or-printing-a-report-incorrectly-with-windows-font-size I found a working solution! Patch for QRPrntr.pas: procedure TQRPrinter.CreateMetafileCanvas; function scaleToNativeDeskRes(pVal: Integer): Integer; var tTemp: HDC; begin tTemp := GetDC(0); try Result := Round((pVal * GetDeviceCaps(tTemp, VERTRES)) / GetDeviceCaps(tTemp, DESKTOPVERTRES)); finally ReleaseDC(0, tTemp); end; end; begin ... FMetafile.Width := scaleToNativeDeskRes(XSize(PaperWidthValue)); FMetafile.Height := scaleToNativeDeskRes(YSize(PaperLengthValue)); FCanvas := TMetafileCanvas.Create(FMetafile, 0); FCanvas.Font.PixelsPerInch := MetafileDPI; ... end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.