nifty:FDELPHI/MES/16/206 で自分で出したサンプルコード
「テキストを縦書き（回転）描画する」
の補足（バグ取りとも言う...）です。

　当フォーラムＦＡＱで紹介されている

「フォントの逆回転防止」（nifty:FDELPHI/MES/15/359）

を適用しないと正常に表示＆印刷されない場合があります。
　修正個所は、

  // フォント情報の変更（この場合は表示角度：反時計回り）
  lfText.lfEscapement := 270 * 10; // 任意の角度を指定可能
  lfText.lfOrientation := lfText.lfEscapement;

の後に１行追加して、

  // フォント情報の変更（この場合は表示角度：反時計回り）
  lfText.lfEscapement := 270 * 10; // 任意の角度を指定可能
  lfText.lfOrientation := lfText.lfEscapement;
  lfText.lfClipPrecision := lfText.lfClipPrecision or CLIP_LH_ANGLES;

とします。

2001/01/24、河邦 正（GCC02240@nifty.com）
（http://member.nifty.ne.jp/kht0000、NIFTY外へ私作のComponentの
公開用）
 


Original document by 河邦 正         氏 ID:(GCC02240)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。