[あすかぜ・ねっと]あすかぜ・ねっと自作ソフトCassava > サポート掲示板

Cassava Editor サポート掲示板

スレッド一覧に戻る返信

[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]

要望ありがとうございます。
ダークモード対応は少し試してみたのですが、ツールバーアイコンをダークモード用に切り替えたりするのがなかなか面倒くさく、後回しにしたまま今に至ります。。。
やる気のある時にまた再チャレンジしたいと思います。

スレッド一覧に戻る返信