![]() TPanelの中で右クリック カスタム スタイルの編集を選択 出てきた画面で、何も変更せず名前を付けて保存で、左図の内容が書き込まれた フアイルが出来る ← の部分をテキスト エデイタ−で変更。再びカスタム スタイルの編集を選択から 今度は変更したフアイルを読み込み、変更をクリック、再ビルドをすれば、変更が適用され、 標準でない変わったパネルが出来る デモ画面 タイトルのないForm、楕円形のPanel、文字色の変わったButtonなどFormはオブジェクト インスペクトで Fill→Bitmap→Bitmapで画像を、Transparency→trueに設定してあります。 Panelは TEllipse に設定、色はdefaltのままです。 ButtonはTTextの色を設定し直してあります。 |
Panel style設定フアイル
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
|