![[あすかぜ・ねっと]](/image/asukaze.png "あすかぜ・ねっと"){kind=small}
あすかぜ・ねっと[502] ダークモード
ダーク [2019/06/01 14:14:42]
背景色のことではなく丸ごとダークになりませんか？
当たり前だけど背景色変えても周りがグレーで
Re: [502] ダークモード
あすかぜ [2019/06/01 19:52:24]
ご意見ありがとうございます。
現状ではタイトルバーやツールバー、ステータスバーの色は設定できないですね。
変更可能にできるかどうか調べてみたいと思います。
Re: [502] ダークモード
大石剛司 [2021/07/11 09:45:27]
大石です。
Delphi 10.3 の「Comunity Edition」を使用していますが、テーマは使用する事ができます。
拙作のアプリでは、「Windows」「Carbon」「Charcoal Dark Slate」「Windows Dark」を使用しています。
■「プロジェクト」の「オプション」「アプリケーション」「表示」の「カスタムスタイル」で事前に使用するテーマをチェックします。
「プロジェクト」の「ソース表示」で以下を追加します。
あと、自前の INIファイルの 'VclStyle' 'Text' に 'Windows' 等を設定しておきます。
ただ、テーマの切替は、アプリの起動時にしか設定できません。
program BonsFMmini;
uses
Vcl.Forms,
Main in 'Main.pas' {FormMain},
IniFiles,
Vcl.Themes,
Vcl.Styles,
{$R *.res}
function SetVCLStyle: Boolean;
var
IniFile: TIniFile;
sStr1: String;
begin
Result := TRUE;
//確保
IniFile := TIniFile.Create (System.SysUtils.ChangeFileExt(ParamStr(0), '.ini'));
//スタイル
sStr1 := IniFile.ReadString ('VclStyle', 'Text', 'Windows');
//破棄
IniFile.Free;
//判定
if sStr1 = 'Windows' then
begin
;
end
else if sStr1 = 'Carbon' then
begin
TStyleManager.TrySetStyle('Carbon');
end
else if sStr1 = 'Charcoal Dark Slate' then
begin
TStyleManager.TrySetStyle('Charcoal Dark Slate');
end
else if sStr1 = 'Windows10 Dark' then
begin
TStyleManager.TrySetStyle('Windows10 Dark');
end
else
begin
;
end;
end;
begin
//VCLスタイルを設定
SetVCLStyle;
//通常処理
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TFormMain, FormMain);
Application.Run;
end.
■あと、色設定が必要な箇所は自前で設定しています。
FListViewColorDark := StringToColor(IniFile.ReadString('FListView', 'Windows10 Dark', '$000000'));
FormMain.Color := FListViewColorDark;
Panel5.Color := FListViewColorDark;
ListView1.Color := FListViewColorDark;
よろしくお願いします。
Re: [502] ダークモード
あすかぜ [2021/07/11 10:24:11]
大石様、情報ありがとうございます。
試してみたいと思います。
Re: [502] ダークモード
やまやま [2021/11/01 20:56:00]
ダークモード実装お願いできると幸いです。
Re: [502] ダークモード
あすかぜ [2021/11/01 21:18:21]
要望ありがとうございます。
ダークモード対応は少し試してみたのですが、ツールバーアイコンをダークモード用に切り替えたりするのがなかなか面倒くさく、後回しにしたまま今に至ります。。。
やる気のある時にまた再チャレンジしたいと思います。
Re: [502] ダークモード
あすかぜ [2021/12/31 11:27:34]
Ver.2.4 β3 で、ダークモードを選択できるようにしました。
https://www.asukaze.net/soft/cassava/history/2_4dev.html
よろしくお願いします。
Re: [502] ダークモード
やまやま [2021/12/31 23:58:47]
ダークモード実装ありがとうございます。最高です