ボタンに文字列を色付きで縦書きにするには？

解決

さんでーマン  2007-04-06 14:46:31  No: 25665  IP: 192.*.*.*

お世話になります。

Button1.WordWrap   := True;  // 縦書きにできます。
Button1.Font.Color := clRed; // 無効のようです。

BitBtn1.WordWrap   := True;  // 無効のようです。
BitBtn1.Font.Color := clRed; // 文字が赤くなります。

Button1, BitBtn1 ともに望み通りになりません。
これってバグ？仕様？

ボタンに赤色の文字を縦書きにしたいのですが、
何か良い方法はないでしょうか？
よろしくお願いします。

編集 削除
Mr.XRAY  URL  2007-04-07 00:29:59  No: 25666  IP: 192.*.*.*

>Button1, BitBtn1 ともに望み通りになりません。
>これってバグ？仕様？

仕様です。DelphiというよりWindowsの仕様です。
ボタンコンポーネントはWindowsの標準ボタンコントロールを使って作られて
います。これがそうなっているためです。

TBitBtnやTPanelで代用するか、自分で作成(コンポーネントですね)か、
他の方が作成したコンポーネントを利用するかですね。
コンポーネントであれは、以下を探せばあります。

http://www.delphianworld.com/

# 私「常連」でいいのかな?

編集 削除
さんでーマン  2007-04-08 10:48:09  No: 25667  IP: 192.*.*.*

Mr.XRAY様、ありがとうございます。

Windowsの仕様だったんですね。
すっきりしました。
まだコンポーネントの自作は無理っぽいので、
とりあえず Panel で代用します。
今後ともよろしくお願いします。

編集 削除
さんでーマン  2007-04-12 00:15:31  No: 25668  IP: 192.*.*.*

解決チェックを忘れていました。

編集 削除