<!-- https://github.com/oscarmorrison/md-page -->
<script src="/md-page/md-page.js"></script><noscript>
<head>
<title>メモ帳クローンをダークテーマに対応させてみる</title>
</head>
# メモ帳クローンをダークテーマに対応させてみる

---

tags: Delphi programming Pascal embarcadero objectpascal
created_at: 2022-01-06
updated_at: 2022-01-12

---
# はじめに

メモ帳がダークテーマに対応するとの事。

https://forest.watch.impress.co.jp/docs/news/1372383.html

では、**メモ帳クローン**も対応させてみましょう。Delphi でメモ帳クローンを作る記事は次の通りです。

 - [Delphi Starter Edition でメモ帳クローンを作る (前編)](./bd854e8a22cf31b636b0.md)
 - [Delphi Starter Edition でメモ帳クローンを作る (後編)](./d5c4de7d55eebca928e2.md)
 - [Delphi Starter Edition でメモ帳クローンを作る - 2nd Edition -](./525cd67aaba16681c3ba.md)
   - [[編集(E)] （1）](./f2f330ebdcb3f9f49e96.md)
   - [[編集(E)] （2）](./d40247d93533c42f4ef0.md)
   - [[書式(O)]](./4309e5fc56419a8aa05d.md)
   - [[表示(V)]](./774482e86c8380a08bf8.md)
   - [[ヘルプ(H)]](./2d82538c58ed2d16b261.md)
   - [[ファイル(F)]](./46c476859388dd566b27.md)
   - [その他の機能](./5347de15b7856f3008fc.md)
 - [Delphi Starter Edition でメモ帳クローンを作る - 番外編](./90b8500d0ca4fc286206.md)

:::note info
2022/1 現在、無償で使える Delphi は Starter Edition から、より高機能な Community Edition へと変更されています。
:::

:::note info
本記事では有償版の Delphi 11.0 Alexandria を使用しています。
:::

**See also:**

 - [Delpi Community Edition (Embarcadero)](https://www.embarcadero.com/jp/products/delphi/starter)


# やってみる

メモ帳クローンのソースコードは以下から持ってきます。

 - [https://ht-deko.com/software/notepad_clone.zip](https://ht-deko.com/software/notepad_clone.zip)

## 改変

 1. [ファイル | プロジェクトを開く...] から `notepad_clone.dproj` を開きます。
![image.png](./images/b613d499-8a73-99a9-8b1c-884afeab12eb.png)
 2. [プロジェクト | オプション] でオプションダイアログを開き、[アプリケーション | 表示] にあるカスタムスタイルで `Windows 11 Dark` (なければ `Windows 10 Dark`) にチェックを入れます。デフォルトスタイルも `Windows 11 Dark` になっている事を確認します。
![image.png](./images/dc2b131e-10c3-2180-07a8-002bbe3fef9b.png)
 3. 〔F9〕を押してコンパイルして実行します。
 ![image.png](./images/325d29cf-8969-706a-4a38-089793ed171c.png)

以上です。
![image.png](./images/a248d2af-4d89-274c-0ad3-d57f1d538d16.png)
追加の VCL テーマは GetIt パッケージマネージャ ([ツール | GetIt パッケージマネージャ...]) で探すことができます。 

# おわりに
複数の VCL スタイルにチェックを入れてコンパイルすれば、実行時にスタイルを切り替える事ができます。アプリケーション実行時に、利用可能な VCL スタイルの一覧を得るには以下のように記述します。

```delphi
uses
  ..., Vcl.Themes, VCL.Styles;

var
  StyleName: string;
begin
  // 利用可能な VCL スタイルの一覧を得る
  for StyleName in TStyleManager.StyleNames do
    begin
      ...
    end;
  ...  
end;  
```

VCL スタイルをコードで変更するには以下のように記述します。


```delphi
 // VCL スタイルを "Slate Classico" に変更
  if not TStyleManager.TrySetStyle('Slate Classico') then
    begin
      // エラー処理
    end;
```

**See also:**

 - [VCL スタイルの概要 (DocWiki)](https://docwiki.embarcadero.com/RADStudio/ja/VCL_%E3%82%B9%E3%82%BF%E3%82%A4%E3%83%AB%E3%81%AE%E6%A6%82%E8%A6%81)