3,098
回編集
(→注意事項) |
編集の要約なし |
||
7行目: | 7行目: | ||
==Windows 10 のダークモードの隠し API 研究== | ==Windows 10 のダークモードの隠し API 研究== | ||
下記は Delphi でダークモードの API | 下記は Delphi でダークモードの API を呼び出す実験で作成した Delphi XE2 のソースコード (雑) です。 | ||
アプリケーションの起動時に 1 度、AllowDarkModeForApp を呼び出しておけばメインメニューなどは Windows 10 のダークモードの設定の ON・OFF | アプリケーションの起動時に 1 度、AllowDarkModeForApp を呼び出しておけばメインメニューなどは Windows 10 のダークモードの設定の ON・OFF に連動して色が変わりました。 | ||
また、AllowDarkModeForWindow を使用すれば TButton や TComboBox などに対してもダークモードを有効にできるらしいのですが、私の環境ではうまく動きませんでした。 | また、AllowDarkModeForWindow を使用すれば TButton や TComboBox などに対してもダークモードを有効にできるらしいのですが、私の環境ではうまく動きませんでした。 | ||
25行目: | 25行目: | ||
{$IFEND} | {$IFEND} | ||
const | const | ||
114行目: | 111行目: | ||
まだ、TCoolBar や TToolBar は挙動不審、TStatusBar、TPageControl、TCheckBox、TRadioButton などは未対応ということで実用レベルには達していませんが、今後、Microsoft さんが対応を進めてくれることを望みます。 | まだ、TCoolBar や TToolBar は挙動不審、TStatusBar、TPageControl、TCheckBox、TRadioButton などは未対応ということで実用レベルには達していませんが、今後、Microsoft さんが対応を進めてくれることを望みます。 | ||
[[ファイル:dark-mode-2.png|border]] | |||
==注意事項== | ==注意事項== | ||
この記事の内容は Windows 10 1809 のみで動作するであろう非公開 API を使用した裏技的な方法ですので、今後、API の仕様が変更されたりそもそも使用できなくなる可能性もありますから、実験目的以外では使用しないほうが良いと思います。 | この記事の内容は Windows 10 1809 のみで動作するであろう非公開 API を使用した裏技的な方法ですので、今後、API の仕様が変更されたりそもそも使用できなくなる可能性もありますから、実験目的以外では使用しないほうが良いと思います。 |