名前
題名
▼ Mr.XRAYさん > ▼ Syakeさん，どうも > > こちらでは，現象を確認できるコードがまだできていません． > そこで，もう１つお願いしたいのですが． > plPrev.pasの中に > plAdjustFontという関数があります． > これを実行しないようにするとどうなるか確認していただければ > と思います． > 今のところの予想では，フォントサイズの設定が正常に行われていない > 可能性がある気がします． > > procedure TCustomplPrev.plAdjustFont(Canvas: TCanvas); > var > tm : TTextMetric; > lf : TLogFont; > begin > exit; // 例えばこんな感じで... > GetObject(Canvas.Font.Handle, SizeOf(lf), @lf); > if lf.lfWidth = 0 then begin > GetTextMetrics(Canvas.Handle, tm); > lf.lfWidth := -lf.lfHeight * tm.tmAveCharWidth div tm.tmHeight; > Canvas.Font.Handle := CreateFontIndirect(lf); > end; > end; > > フォントサイズをほんの少し(小数点以下)大きくすると下の行のようになる > プレビュー画面の拡大，縮小でも確認可能
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link