From d3184470edef2ac2724686a56ca055532bcc4aa0 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 23 Jun 2013 12:57:58 +0000
Subject: [PATCH] IDE: component palette: right click does not select component
 and bring form to front

git-svn-id: trunk@41820 -
---
 ide/componentpalette.pas | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/ide/componentpalette.pas b/ide/componentpalette.pas
index 2e38e0f0ed..19a706ce2f 100644
--- a/ide/componentpalette.pas
+++ b/ide/componentpalette.pas
@@ -276,13 +276,16 @@ end;
 procedure TComponentPalette.ComponentBtnMouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
 begin
-  if ssShift in Shift then
-    SelectionMode := csmMulty
-  else
-    SelectionMode := csmSingle;
-  SelectButton(TComponent(Sender));
-  if Assigned(OnClassSelected) then
-    OnClassSelected(Self);
+  if Button=mbLeft then
+  begin
+    if ssShift in Shift then
+      SelectionMode := csmMulty
+    else
+      SelectionMode := csmSingle;
+    SelectButton(TComponent(Sender));
+    if Assigned(OnClassSelected) then
+      OnClassSelected(Self);
+  end;
 end;
 
 procedure TComponentPalette.ComponentBtnMouseUp(Sender: TObject; Button: TMouseButton;