ビジュアルスタイルが有効かどうか調べるには

解決

m-menu 2005-05-22 00:53:43 No: 14921

ビジュアルスタイルが適応されているかどうかを調べるにはどうしたらよいのでしょうか？
お願いします。

kkk 2005-05-22 11:14:44 No: 14922

ご利用の環境は？
またDelphi7未満の場合はXPテーマを実現しているコンポーネントも記述してください。

m-menu 2005-05-23 04:03:38 No: 14923

kkkさんありがとうございます。
Delphi7未満でXPスタイルは実現していません。
ただ別の方法で解決しましたので解決とさせていただきます。
ありがとうございました。

とおりゃんせ 2005-05-23 13:36:48 No: 14924

後からこのログを見る人のためにどのように解決したのかを記述していただくと良いのですが。

m-menu 2005-05-24 01:31:16 No: 14925

解決する必要がなくなったため、タイトルの問題は解決しておりません。

kkk 2005-05-24 02:06:31 No: 14926

それならとりあえずチェック方法を書いておきます。
Delphi7未満の場合は
http://www.delphi-gems.com/ThemeManager.php
の ThemeManagerをインストールしてください。
（実際にはその中のUxTheme.pasだけあればよい）

uses UxTheme,...; // <- UxThemeを追加する。

あとは
function UseThemes: Boolean;
を参照してください。
Trueでテーマ適用中です。

kkk 2005-05-24 12:30:25 No: 14927

↑は現在のＯＳがテーマ対応かを判断するものです。
Appがmanifest対応しているかの判断方法は
https://www.petitmonte.com/bbs/answers?question_id=2789
に書きました。