Haruyuki Mohri Blog(Delphi)

毛利春幸のブログ

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
  1. --/--/--(--) --:--:--|
  2. スポンサー広告

Delphi XE6 Styleの変更

今(2014年06月) Delphi XE6を買うと "VCL Premium Style Pack"がダウンロードできます
試す方法ですが
ダウンロード後 「Diamond.vsf, Jet.vsf, Sterling.vsf」3つのファイルを
「 C:\Users\Public\Documents\Embarcadero\Studio\14.0\Styles\ 」ここにコピーします
XE6を起動し 「VCLフォームアプリケーション」を実行します
Newprojectdelphi0624VCL

適当にボタンやグリッドなど配置して メニューから[プロジェクト][オプション]で[アプリケーション][表示]を見ると
カスタムスタイル項目に 先ほどダウンロードした Diamond, Jet, Sterlingがある事が解ります
それぞれの項目にチェックを入れて「デフォルトスタイル」で初期のStyleを決めます
delphiStylesetting0624

[F9]実行するとデフォルトスタイルが実行されます
delphijetStyle0624
Jetスタイルのデザインで実行されました

チェック入れた他のスタイルも切替たいので
ボタンにスタイル切替のコードを入れてみます

uses に Vcl.Themesを 追加します
TStyleManager.ActiveStyle.Nameで現在のスタイルの状態が文字列で解ります
別のスタイルにセットする場合はTStyleManager.SetStyle()と言うclass methodが使えます
delphicodeStyle0624
このように実行すれば Styleをボタンイベントで切り替える事ができます

TStyleManager.StyleNames を呼べばTArrayでStyle名一覧を取得する事もできます

スポンサーサイト
  1. 2014/06/24(火) 20:31:20|
  2. Delphi

Profile

Twitter...

最近の記事

ブログ内検索

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。