Delphi Programming / Object Pascal
サイトのトップページへ リンクのページへ ロゴマーク
[掲載 2000年12月12日] [更新 2009年10月09日] 印刷プレビュー制御コンポーネント
   
印刷プレビュー制御コンポーネント
フォント関係の設定
動作確認等 -







フォントサイズ


FontSize(S)

文字列 (テキスト) の描画に使用するフォントサイズを実数のポイント数で指定します.TCanvas の TFont に対して Size を指定する方法だと,プリンタの解像度によって表示する文字の大きさが違ってしまいます.このメソッドは,TFont.Height 値に換算 することによりこの現象を回避しています.

著者の環境でリソースの減少が発生したため,内部フォントオブジェクトを作成して設定を行っていましたが,現在は単に TCanvas のフォント設定となっています (Ver3.0から).


引数 説明
S Double フォントのサイズ指定
小数点以下の値も指定可能


リスト1
FontSizeメソッドのコード
procedure TplPrev.FontSize(S:Double);
begin
  if FCanvas = nil then exit;
  FCanvas.Font.Height := -RoundOff(S * 254.0 / 72.0);
end;




フォントの高さ


FontHeight(V)

引数 説明
V Integer フォントの高さで 0.1 mm 単位の値




フォントの名前


FontName(V)

引数 説明
V String フォント名を文字列で指定


リスト2
フォントをMS P明朝にする例
 plPrev1.FontName('MS P明朝');




フォントの色


FontColor(V)

引数 説明
V TColor TFont の Color プロパティと同じ




フォントのスタイル


FontStyle(V)

引数 説明
V TFontStyles TFont の Style プロパティと同じで,以下の値の集合で指定
fsBold
fsItalic
fsUnderline
fsStrikeout


リスト3
それまでのスタイルを無効にしてデフォルトの設定にする例
 plPrev1.FontStyle([]);




フォントの Charset


FontCharset(V)

引数 説明
V TFontCharset TFontのCharsetプロパティと同じ.


リスト4
設定例
plPrev1.FontCharset(ANSI_CHARSET);