浏览代码

Fix 70995453.

Martijn Laan 2 月之前
父节点
当前提交
a590303dde
共有 2 个文件被更改,包括 2 次插入3 次删除
  1. 1 3
      Projects/Src/IDE.HelperFunc.pas
  2. 1 0
      Projects/Src/IDE.MainForm.pas

+ 1 - 3
Projects/Src/IDE.HelperFunc.pas

@@ -139,9 +139,7 @@ procedure InitFormTheme(Form: TForm);
   begin
     for var I := 0 to ParentControl.ControlCount-1 do begin
       var Control := ParentControl.Controls[I];
-      if Control is TPanel then
-        (Control as TPanel).Color := FormTheme.Colors[tcBack]
-      else if Control is TListBox then
+      if Control is TListBox then
         InitListBoxDarkTheme(Control as TListBox)
       else if (Control is TButton) or (Control is TRadioButton) or (Control is TCheckBox) then begin
         { Not actually used at the moment since only TMainForm calls InitFormTheme and it doesn't

+ 1 - 0
Projects/Src/IDE.MainForm.pas

@@ -6565,6 +6565,7 @@ begin
 
   InitFormTheme(Self);
   ToolbarPanel.Color := FTheme.Colors[tcToolBack];
+  BodyPanel.Color := FTheme.Colors[tcBack];
 
   if FTheme.Dark then begin
     ThemedToolbarVirtualImageList.ImageCollection := ImagesModule.DarkToolBarImageCollection;