浏览代码

FIX: Disappear main menu icons

Alexander Koblov 9 年之前
父节点
当前提交
7f4542849e
共有 1 个文件被更改,包括 4 次插入1 次删除
  1. 4 1
      src/fmain.pas

+ 4 - 1
src/fmain.pas

@@ -968,6 +968,8 @@ begin
     lastWindowState:=WindowState;
   // frost_asm end
 
+  UpdateActionIcons;
+
   UpdateWindowView;
 
 {$IFDEF LCLQT}
@@ -2450,6 +2452,8 @@ var
   iconImg: TPicture;
   actionName: TComponentName;
 begin
+  if not gIconsInMenus then Exit;
+
   actionLst.Images := nil;
   pmTabMenu.Images := nil;
   mnuMain.Images := nil;
@@ -4603,7 +4607,6 @@ begin
       UpdateFreeSpace(fpRight);
     end;
 
-    if gIconsInMenus then UpdateActionIcons;
     UpdateHotDirIcons; // Preferable to be loaded even if not required in popupmenu *because* in the tree it's a must, especially when checking for missing directories
     ShowTrayIcon(gAlwaysShowTrayIcon);