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

解決

m-menu  2005-05-22 00:53:43  No: 14921  IP: [192.*.*.*]

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

編集    削除
kkk  2005-05-22 11:14:44  No: 14922  IP: [192.*.*.*]

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

編集    削除
m-menu  2005-05-23 04:03:38  No: 14923  IP: [192.*.*.*]

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

編集    削除
とおりゃんせ  2005-05-23 13:36:48  No: 14924  IP: [192.*.*.*]

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

編集    削除
m-menu  2005-05-24 01:31:16  No: 14925  IP: [192.*.*.*]

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

編集    削除
kkk  2005-05-24 02:06:31  No: 14926  IP: [192.*.*.*]

それならとりあえずチェック方法を書いておきます。
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  IP: [192.*.*.*]

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

編集    削除