Ver código fonte

Allow VCL to style menus on old versions of Windows.

Martijn Laan 1 mês atrás
pai
commit
92f72b0386
1 arquivos alterados com 4 adições e 2 exclusões
  1. 4 2
      Projects/Compil32.dpr

+ 4 - 2
Projects/Compil32.dpr

@@ -255,8 +255,10 @@ begin
       Title := SCompilerFormCaption;
   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(TMainForm, MainForm);