From 4cb1999e170f4f74855c5c0d53bef5afe42bae72 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Mon, 5 Feb 2007 22:41:43 +0000
Subject: [PATCH] LCL: changed order: first OnPopup and then MouseUp (bug
 #8274)

git-svn-id: trunk@10594 -
---
 lcl/include/control.inc | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index 3f3f855306..3961c98b49 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -1922,10 +1922,10 @@ begin
     MouseCapture := False;
   end;
   
+  if CheckMenuPopup(Message.pos) then
+    Message.Result := 1;
+
   DoMouseUp(Message, mbRight);
-  if Message.Result = 0 then 
-    if CheckMenuPopup(Message.pos) then
-      Message.Result := 1;
 end;
 
 {------------------------------------------------------------------------------