浏览代码

Status bar mouse move bug fix

Arthur Yefimov 3 年之前
父节点
当前提交
bf12b44096
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      src/OV.Mod

+ 1 - 1
src/OV.Mod

@@ -1306,7 +1306,7 @@ BEGIN p := c;
   IF c = c.app.menu THEN c := GetMenuAt(c.app, x, y)
   IF c = c.app.menu THEN c := GetMenuAt(c.app, x, y)
   ELSIF c = c.app.statusbar THEN c := GetStatusbarAt(c.app, x, y)
   ELSIF c = c.app.statusbar THEN c := GetStatusbarAt(c.app, x, y)
   END;
   END;
-  IF (c = NIL) & (p = p.app.statusbar) THEN UnsetFocus(c.app);
+  IF (c = NIL) & (p = p.app.statusbar) THEN UnsetFocus(p.app)
   ELSIF (c # NIL) & (buttons = {G.btnLeft}) & (c.status = normal) THEN
   ELSIF (c # NIL) & (buttons = {G.btnLeft}) & (c.status = normal) THEN
     IF c.parent.parent = NIL THEN (* Top level menu *)
     IF c.parent.parent = NIL THEN (* Top level menu *)
       IF c.do.mouseDown # NIL THEN c.do.mouseDown(c, x, y, G.btnLeft) END
       IF c.do.mouseDown # NIL THEN c.do.mouseDown(c, x, y, G.btnLeft) END