Преглед на файлове

Make spHiddenFilesCount's dropdown button look good in dark mode.

Martijn Laan преди 2 месеца
родител
ревизия
7f2fa108ff
променени са 1 файла, в които са добавени 6 реда и са изтрити 2 реда
  1. 6 2
      Projects/Src/IDE.MainForm.pas

+ 6 - 2
Projects/Src/IDE.MainForm.pas

@@ -1153,7 +1153,7 @@ begin
   ThemedMarkersAndACVirtualImageList.AutoFill := True;
 
   UpdateThemeData(True);
-
+  
   SetWindowSubclass(StatusBar.Handle, @DarkStatusBarSubclassProc, 0, DWORD_PTR(Self));
 
   FMenuBitmaps := TMenuBitmaps.Create;
@@ -6573,6 +6573,7 @@ begin
     ThemedMarkersAndACVirtualImageList.ImageCollection := ImagesModule.LightMarkersAndACImageCollection;
   end;
 
+  UpdateThemeData(True);
   UpdateBevel1Visibility;
   UpdateMarginsAndAutoCompleteIcons;
 
@@ -6626,7 +6627,10 @@ begin
   if Open and UseThemes then begin
     FProgressThemeData := OpenThemeData(Handle, 'Progress');
     FMenuThemeData := OpenThemeData(Handle, 'Menu');
-    FToolbarThemeData := OpenThemeData(Handle, 'Toolbar');
+    if FTheme.Dark then
+      FToolbarThemeData := OpenThemeData(Handle, 'DarkMode::Toolbar');
+    if FToolbarThemeData = 0 then
+      FToolbarThemeData := OpenThemeData(Handle, 'Toolbar');
     FStatusBarThemeData := OpenThemeData(Handle, 'Status');
   end;
 end;