AppMethodに挑戦(16)TPanelの色を変えて配置する件。

appmethod(C++Builder/Delphi)の、最初に迷うところのひとつとして、
Colorプロパティが無いことが上げられる。
で、どうやら、『スタイル』なるもので設定するようだということがわかる。
しかし、そもそもスタイルをどうやって変更するのかというと、
これがなかなか面倒なのだ。
で、TPanelを３つ配置して、それぞれの色を変えることをやってみる。
いやいや。。。。３時間くらいかかりましたよ＾＾；＾＾；
信じられん！
まぁ、こういうことです。


まず、スタイルを変更するために、TStyleBookなるコントロールを貼り付けないとダメなのだ。
次に、FormのStyleBookプロパティにそれを設定するのだ。
しかし、貼り付けたスタイルをどうするかというと、スタイルファイルを読み込ませる必要があるのだ。
で、結論だけ順を追うと、、

（１）C:\Program Files (x86)\Embarcadero\Studio\14.0\Redist\styles\Fmxから、*.styleをひとつCopyする。
（２）色を追加するために、そのファイルにスタイルを追加する（後述）
（３）TStyleBookをFormに貼り付ける
（４）FormのStyleBookプロパティにそれを設定する。
（５）はりつけたStyleBookコントロールをダブルクリックする
（６）『読み込み』ボタンを押して、Copy＆修正したスタイルファイルを読み込む
（７）『適用して閉じる』ボタンで戻る
（８）コントロールのstyleLookUpで追加したスタイルを設定する。

である。
なぜか、（５）の段階でスタイルを追加する方法がわからなかったため、（１）（２）の方法をとった。
本当はやり方があるのかもしれない。
※"コントロールを右クリックして『カスタムスタイルの編集』を選択"という情報が
WEB上にありますが、そもそもそのメニューが出てこないのです＾＾；＾＾；


で、スタイルの追加について。。
まず、TPanelで選択できるスタイルは２つしかない。
『panelstyle』と『calloutpanelstyle』である。
そして、Copyしたスタイルファイルを見ると、これらが定義されている。
『calloutpanelstyle』については、こんな記述だった。
うん。Fill.Colorとか設定してあるので、なんかちょっと安心だ。

  object TCalloutRectangle
    StyleName = 'calloutpanelstyle'
    Fill.Color = xFF0000f0
    Height = 50.000000000000000000
    HitTest = False
    Stroke.Color = xFF085F30
    Width = 50.000000000000000000
    CalloutWidth = 23.000000000000000000
    CalloutLength = 11.000000000000000000
  end

そこでこれごとコピペする。
そんでもって、色とStyleNameを変える。
こんな感じ。

  object TCalloutRectangle
    StyleName = 'calloutpanelstyle2'
    Fill.Color = xFFf00000
    Height = 50.000000000000000000
    HitTest = False
    Stroke.Color = xFF085F30
    Width = 50.000000000000000000
    CalloutWidth = 23.000000000000000000
    CalloutLength = 11.000000000000000000
  end

そうすると、styleLookUpプロパティを設定するとき、
これも一覧に出てくる。



めでたしめでたし(o^^o)