فهرست منبع

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
   begin
     for var I := 0 to ParentControl.ControlCount-1 do begin
     for var I := 0 to ParentControl.ControlCount-1 do begin
       var Control := ParentControl.Controls[I];
       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)
         InitListBoxDarkTheme(Control as TListBox)
       else if (Control is TButton) or (Control is TRadioButton) or (Control is TCheckBox) then begin
       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
         { 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);
   InitFormTheme(Self);
   ToolbarPanel.Color := FTheme.Colors[tcToolBack];
   ToolbarPanel.Color := FTheme.Colors[tcToolBack];
+  BodyPanel.Color := FTheme.Colors[tcBack];
 
 
   if FTheme.Dark then begin
   if FTheme.Dark then begin
     ThemedToolbarVirtualImageList.ImageCollection := ImagesModule.DarkToolBarImageCollection;
     ThemedToolbarVirtualImageList.ImageCollection := ImagesModule.DarkToolBarImageCollection;