Delphi Tips & Tricks

procedure TForm1.Button1Click(Sender: TObject);
begin
  Canvas.Font.Handle :=CreateFont(0,              //フォントの高さ
                                  0,　　　　　　　//フォントの幅
                                  2700,           //ベースラインの角度(度の10倍)
                                  0,              //各文字の回転角度(度の10倍)
                                  FW_NORMAL,      //フォントの太さ
                                  0,              //斜体の有無
                                  0,              //下線の有無
                                  0,              //取り消し線の有無
                                  SHIFTJIS_CHARSET,
                                  OUT_DEFAULT_PRECIS,
                                  CLIP_DEFAULT_PRECIS,
                                  DEFAULT_QUALITY,
                                  DEFAULT_PITCH or FF_DONTCARE,
                                  'ＭＳ ゴシック');
　//デバイスコンテキストのグラフィックモードを変更
  SetGraphicsMode(Canvas.Handle, GM_ADVANCED);
  Canvas.TextOut(50, 20, '縦書きで出力します。');
end;