Przeglądaj źródła

Prevent beep when using Alt+Enter to open the Properties dialog

Source commit: d3197f78a1f0b711329d07b3b0077dffc062fc91
Martin Prikryl 4 lat temu
rodzic
commit
bd96e71826
1 zmienionych plików z 2 dodań i 1 usunięć
  1. 2 1
      source/packages/my/NortonLikeListView.pas

+ 2 - 1
source/packages/my/NortonLikeListView.pas

@@ -547,8 +547,9 @@ procedure TCustomNortonLikeListView.WMSysCommand(var Message: TWMSysCommand);
 begin
   // Ugly workaround to avoid Windows beeping when Alt+Grey +/- are pressed
   // (for (Us)Select File with Same Ext commands)
+  // The same for Alt+Enter (for Properties)
   if (Message.CmdType = SC_KEYMENU) and
-     ((Message.Key = Word('+')) or (Message.Key = Word('-'))) then
+     ((Message.Key = Word('+')) or (Message.Key = Word('-')) or (Message.Key = VK_RETURN)) then
   begin
     Message.Result := 1;
   end