スタイルデザイナーの外でFireMonkeyスタイルのコントロールを編集するには？

Question

このシナリオでは、RADStudio XE2経由でFireMonkey HDアプリケーションにデフォルトのボタンを作成しました。次に、「Style1」という名前のボタンのカスタムスタイルを作成しました。このスタイルはデフォルトのボタンスタイルと非常によく似ていますが、TTextコントロールの横にはTImageコントロールがあります。

簡単に言えば、テキストの横に画像があるボタンです。

ここで、ボタンのTImageコントロールに画像を適用しますか？ TImageコントロールVIAのスタイルデザイナーにイメージを適用すると、スタイルを使用する他のコントロールも同じイメージを取得するためです。

Answer 1

実行時に実行できます。 最初にTImageスタイルオブジェクトの名前をつけなければなりません。あなたがFindStyleResourceを使用して、名前でそれを見つけることができる後に「btnimg」 ：

procedure LoadImage(btn : TButton; imgFileName : string); 
var img : TImage; 
begin 
    img := btn.FindStyleResource('btnimg') as TImage; 

    if not assigned(img) then exit; 

    img.bitmap.LoadFromFile(imgFileName); 
end; 

Answer 2

あなたは、この機能は準備ができて延持つ私のTBitmapSpeedButton制御、に興味があるかもしれない： http://monkeystyler.com/blog/entry/my-first-firemonkey-custom-control-tbitmapspeedbutton プラスから画像をロードするための更新スタイルリソース： http://monkeystyler.com/blog/entry/tbitmapspeedbutton-loading-images-from-the-style