TStringGridのセルに文字を縦書きするには？

解決

ぱぱ 2003-12-02 08:05:28 No: 5865

もうしわけありません。途中で間違って送信してしまいました。
TStringGridのOnCellDrawイベントを書いてフォーマットした文字列をセルに表示しております。（OnCellDrawイベントのなかでStringGrid１.CanvasにTextRectを使って表示しております）実は、非常に縦長のセルがありそれに数字や日付を縦書き表示（時計と反対周りに90度回転させたように）したいと考えておりますが、方法がわかりません。どなたかご存知の方、教えていただけますでしょうか。よろしくお願いします。
当方、週末プログラマーでつい先日DERPHI6.0personalダウンロードして使い始めたばかりです。

LupinⅢ URL 2003-12-02 20:22:04 No: 5866

ヒントになるかわかりませんが一応ここにそのようなことが記されています。
http://www2.big.or.jp/~osamu/Delphi/Tips/key.cgi?key=25#0137.txt

Halbow 2003-12-02 21:09:29 No: 5867

Halbow です。

> http://www2.big.or.jp/~osamu/Delphi/Tips/key.cgi?key=25#0137.txt

この Tips ははじめから TLogFont を組み立てていて効率よくありません。
GetObject() を使えば、現在の Canvas の Font から、描画方向だけを
変更したフォントを作れます。以下が参考になると思います。

http://halbow.cool.ne.jp/Notes/N003.html

ぱぱ 2003-12-02 22:20:42 No: 5868

Halbowさん、LupinIIIさん、早速の情報ありがとうございました。
特にHalbowさんのHPはこれからもいろいろ参考にさせて頂きます。
ありがとうございました。