From d0f1cf308881386224d04619aa4c871ec59a3cc3 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Sun, 29 Nov 2015 19:30:12 +0000
Subject: [PATCH] packagetabs: fix compilation after r50520 #19206bce93

git-svn-id: trunk@50524 -
---
 components/packagetabs/packagetabs_impl.pas | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

diff --git a/components/packagetabs/packagetabs_impl.pas b/components/packagetabs/packagetabs_impl.pas
index d175775930..049f421bf3 100644
--- a/components/packagetabs/packagetabs_impl.pas
+++ b/components/packagetabs/packagetabs_impl.pas
@@ -772,7 +772,6 @@ begin
           xBtn.Parent := FPanel;
           xBtn.Editor := xEditor;
           xBtn.OnMouseDown := @TabButtonMouseDown;
-          xBtn.ControlStyle := xBtn.ControlStyle + [csDoubleClicks];
           xBtn.PopupMenu := FTabButtonMenu;
           xBtn.Down := xEditor = xOldActive;
           if xBtn.Down then
@@ -971,14 +970,9 @@ var
   xBtn: TPackageTabButton;
 begin
   xBtn := (Sender as TPackageTabButton);
-  if (not IDEEnvironmentOptions.UseDoubleClickToCloseTabs and (Button = mbMiddle))
-  or (    IDEEnvironmentOptions.UseDoubleClickToCloseTabs and (Button = mbLeft) and (ssDouble in Shift))
-  then begin
-    LazarusIDE.DoCloseEditorFile(xBtn.Editor, [cfSaveFirst]);
-  end else
-  if (Button = mbLeft) then
-  begin
-    FWindow.ActiveEditor := xBtn.Editor;
+  case Button of
+    mbLeft: FWindow.ActiveEditor := xBtn.Editor;
+    mbMiddle: LazarusIDE.DoCloseEditorFile(xBtn.Editor, [cfSaveFirst]);
   end;
 end;