LCL, reverts r33070 #4e9eda7a16: added option to move selection with right click, issue #18115

git-svn-id: trunk@33118 -

lcl/dbgrids.pas

@@ -66,9 +66,8 @@ type
     dgHeaderHotTracking,
     dgHeaderPushedLook,
     dgPersistentMultiSelect,
-    dgAutoSizeColumns,
-    dgCanSelectAnyButton                // Any mouse button (not just left)
-                                         // moves the selection to clicked cell
+    dgAutoSizeColumns
+
   );
   TDbGridOptions = set of TDbGridOption;
 
@@ -1015,11 +1014,6 @@ begin
     else
       Exclude(OldOptions, goHeaderPushedLook);
 
-    if dgCanSelectAnyButton in FOptions then
-      Include(OldOptions, goCanSelectAnyButton)
-    else
-      Exclude(OldOptions, goCanSelectAnyButton);
-
     if (dgIndicator in ChangedOptions) then begin
       if (dgIndicator in FOptions) then
         FixedCols := FixedCols + 1
@@ -2232,7 +2226,7 @@ begin
     exit;
   end;
 
-  if (button<>mbLeft) and not (dgCanSelectAnyButton in FOptions) then begin
+  if button<>mbLeft then begin
     doInherited;
     exit;
   end;

lcl/grids.pas

@@ -104,9 +104,7 @@ type
     goHeaderPushedLook,   // Header cells looks pushed when clicked
     goSelectionActive,    // Setting grid.Selection moves also cell cursor
     goFixedColSizing,     // Allow to resize fixed columns
-    goDontScrollPartCell, // clicking partially visible cells will not scroll
-    goCanSelectAnyButton  // Not only left mouse button, but also right and
-                               // middle buttons move selection to clicked cell
+    goDontScrollPartCell  // clicking partially visible cells will not scroll
   );
   TGridOptions = set of TGridOption;
 
@@ -5720,8 +5718,7 @@ var
 begin
   inherited MouseDown(Button, Shift, X, Y);
 
-  if (csDesigning in componentState) or
-          not ((goCanSelectAnyButton in FOptions) or (ssLeft in Shift)) then
+  if (csDesigning in componentState) or not (ssLeft in Shift) then
     Exit;
 
   {$IfDef dbgGrid} DebugLn('MouseDown INIT'); {$Endif}