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

解決

さんでーマン 2007-04-06 23:46:31 No: 25665

お世話になります。

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

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

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

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

Mr.XRAY URL 2007-04-07 09:29:59 No: 25666

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

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

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

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

さんでーマン 2007-04-08 19:48:09 No: 25667

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

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

さんでーマン 2007-04-12 09:15:31 No: 25668

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