浏览代码

Correct MacOSX

Seenkao 4 年之前
父节点
当前提交
249e26bfba
共有 1 个文件被更改,包括 2 次插入4 次删除
  1. 2 4
      Zengl_SRC/src/zgl_application.pas

+ 2 - 4
Zengl_SRC/src/zgl_application.pas

@@ -1063,10 +1063,8 @@ eventLoop:
     NSFlagsChanged:
     NSFlagsChanged:
       begin
       begin
         modFlags := ev.modifierFlags;
         modFlags := ev.modifierFlags;
-        if (modFlags and NSAlphaShiftKeyMask) > 0 then
-          key_WorkDown(K_CAPSLOCK)
-        else
-          key_WorkUp(K_CAPSLOCK);
+        if ((modFlags and NSAlphaShiftKeyMask) > 0) or ((modFlags and 256) > 0) then
+          key_WorkDown(K_CAPSLOCK);
         if (modFlags and NSShiftKeyMask) > 0 then
         if (modFlags and NSShiftKeyMask) > 0 then
         begin
         begin
           if (modFlags and 2) > 0 then
           if (modFlags and 2) > 0 then