🚀 go-pugleaf

元記事を書いた浅野＠防大です。

>坂本＠アンリツです。
>この話題は、MS-Windows依存の話題ですので、
>  fj.os.ms-windows.programming
>にポストするべきものであると思います。

すみませんでした。ＷＩｎｄｏｗｓ依存なのかどうかもわからなかった
もので、Ｄｅｌｐｈｉでできるのかどうか知りたかったわけです。
以後、注意したいと思います。
しかしながら、Ｄｅｌｐｈｉの話題でもあると考えられるので、
こういった場合、クロスポストする方が良いと考えますが、いかがでしょう？

>
>とりあえず、上記はMS-Windows APIのCreateFontを使用すれば可能です。
>Form1のOnPaintで以下のように記述すれば実現できると思います。
>
>Procedure TForm1.Paint(Sender: TObject);
>var
>  Tmp: array [0..63] of Char;
>begin
>  Canvas.Font.Handle := CreateFont(16, 0, 900, 0, FW_DONTCARE, 0, 0, 0,
>      DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS,
>      DEFAULT_QUALITY, DEFAULT_PITCH, StrPCopy(Tmp, Font.Name));
>  Canvas.TextOut(Width div 2, Height div 2, '縦書き');
>end;

他の方からもメールで、以上のようにＷｉｎｄｏｗｓＡＰＩでＦｏｎｔを作成すれば
良いということを教えていただきました。

坂本様、メールしてくださった有馬様、岡本様ありがとうございました。

失礼しました。