Browse Source

Allow VCL to style menus on old versions of Windows.

Martijn Laan 1 month ago
parent
commit
92f72b0386
1 changed files with 4 additions and 2 deletions
  1. 4 2
      Projects/Compil32.dpr

+ 4 - 2
Projects/Compil32.dpr

@@ -255,8 +255,10 @@ begin
       Title := SCompilerFormCaption;
       Title := SCompilerFormCaption;
   end;
   end;
 
 
-  { We don't need VCL Styles for dark menus. This keeps shDialogs and shTooltips. }
-  TStyleManager.SystemHooks := TStyleManager.SystemHooks - [shMenus];
+  if Assigned(FlushMenuThemes) then begin
+    { We don't need VCL Styles for dark menus. This keeps shDialogs and shTooltips. }
+    TStyleManager.SystemHooks := TStyleManager.SystemHooks - [shMenus];
+  end;
 
 
   Application.CreateForm(TImagesModule, ImagesModule);
   Application.CreateForm(TImagesModule, ImagesModule);
   Application.CreateForm(TMainForm, MainForm);
   Application.CreateForm(TMainForm, MainForm);