瀏覽代碼

ctrl for right click on macos

circular17 6 年之前
父節點
當前提交
0868e7608d
共有 1 個文件被更改,包括 3 次插入1 次删除
  1. 3 1
      lazpaint/lazpaintmainform.pas

+ 3 - 1
lazpaint/lazpaintmainform.pas

@@ -1160,7 +1160,9 @@ begin
     btnMiddleDown:= true;
     if not ToolManager.ToolSleeping and not (ssAlt in Shift) then ToolManager.ToolSleep;
   end;
-  if ToolManager.ToolDown(FImageView.FormToBitmap(X,Y),btnRightDown,CurrentPressure) then
+  if ToolManager.ToolDown(FImageView.FormToBitmap(X,Y),
+      btnRightDown{$IFDEF DARWIN} or (ssCtrl in Shift){$ENDIF},
+      CurrentPressure) then
       PaintPictureNow;
   UpdateToolbar;
 end;