From 179a41e343e929aa32bc9084f0f05d8bc92e2cd4 Mon Sep 17 00:00:00 2001
From: dmitry <dmitry@lazarus-ide.org>
Date: Wed, 18 Jul 2018 04:11:31 +0000
Subject: [PATCH] cocoa: blocking up/down events for scrollbox

git-svn-id: trunk@58557 -
---
 lcl/interfaces/cocoa/cocoawsforms.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lcl/interfaces/cocoa/cocoawsforms.pp b/lcl/interfaces/cocoa/cocoawsforms.pp
index 7f2d129785..f897722aa4 100644
--- a/lcl/interfaces/cocoa/cocoawsforms.pp
+++ b/lcl/interfaces/cocoa/cocoawsforms.pp
@@ -379,6 +379,7 @@ begin
   scrollcon.isCustomRange := true;
 
   lcl := TLCLCommonCallback.Create(docview, AWinControl);
+  lcl.BlockCocoaUpDown := true;
   docview.callback := lcl;
   docview.setAutoresizingMask(NSViewWidthSizable or NSViewHeightSizable);
   scrollcon.callback := lcl;