TPanelの中で右クリック
カスタム スタイルの編集を選択
出てきた画面で、何も変更せず名前を付けて保存で、左図の内容が書き込まれた
フアイルが出来る
← の部分をテキスト エデイタ−で変更。再びカスタム スタイルの編集を選択から
今度は変更したフアイルを読み込み、変更をクリック、再ビルドをすれば、変更が適用され、
標準でない変わったパネルが出来る
デモ画面 タイトルのないForm、楕円形のPanel、文字色の変わったButtonなど
Ｆｏｒｍはオブジェクト インスペクトで
Ｆｉｌｌ→Ｂｉｔｍａｐ→Ｂｉｔｍａｐで画像を、Ｔｒａｎｓｐａｒｅｎｃｙ→ｔｒｕｅに設定してあります。
Ｐａｎｅｌは TEllipse に設定、色はｄｅｆａｌｔのままです。
ＢｕｔｔｏｎはＴＴｅｘｔの色を設定し直してあります。
|
<![CDATA[
Ｐａｎｅｌ ｓｔｙｌｅ設定フアイル
object TLayout
Align = alClient
Height = 731.000000000000000000
Position.Y = 33.000000000000000000
Width = 939.000000000000000000
object TRectangle ← TRoundRect TEllipse など変更可能
StyleName = 'Panel1Style1'
DesignVisible = False
Fill.Color = xFFF4F4F4 ← 背景色 変更可能
Height = 50.000000000000000000
HitTest = False
Stroke.Color = xFF979797 ← 枠の色 変更可能
Width = 50.000000000000000000
end
end
]]>
|