掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
QuickReportで枠内に入るように文字の大きさ調整 (ID:29012)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ofZさん ＞（略）〜使用経験があるのでしたら、ご存知のハズ。 あ、おっしゃるとおりですね。失礼しました（汗） さっきDelphi環境を作りました。 ジュウザさん 以下が貴方の望む解決策かどうかわかりませんが、とりあえず。 ＞（〜略）ルーチンを作りました。 ＞procedure QRTextAdjust（略〜） ＞無限ループに（〜略） これですが、サブルーチン／関数ではなく、『ベタに書いて』ください。 こちらで動作確認したテストコード（DetailBeforePrint）です。 procedure TQuickReport1.QRBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); const maxwidth = 60 ; begin (略) while (QRDBText1.Width > maxwidth) do begin QRDBText1.Font.Size:=QRDBText1.Font.Size - 1; end; end; これでうまくいく理由／サブルーチンだと無限ループに陥る理由は、だいたい 想像がつきますよね？
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.