From bf25a41cc83cc00ff67083cc9ecacfa41d46dc13 Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Sun, 9 Mar 2014 22:16:05 +0000
Subject: [PATCH] LCL, activate selection if selection is set while
 goSelectionActive option is specified, patch with changes from wp, issue
 #25835

git-svn-id: trunk@44389 -
---
 lcl/grids.pas | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/lcl/grids.pas b/lcl/grids.pas
index 715bc89dd7..f640e70df1 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -5226,8 +5226,6 @@ begin
 end;
 
 procedure TCustomGrid.SetSelection(const AValue: TGridRect);
-var
-  OldSelectActive: boolean;
 begin
   if goRangeSelect in Options then
   with AValue do begin
@@ -5240,11 +5238,9 @@ begin
       if fRange.Left<FixedCols then fRange.Left := FixedCols;
       if fRange.Top<FixedRows then fRange.Top := FixedRows;
       if goSelectionActive in Options then begin
-        OldSelectActive := FSelectActive;
         FPivot := FRange.TopLeft;
         FSelectActive := True;
         MoveExtend(false, FRange.Right, FRange.Bottom);
-        FSelectActive := OldSelectActive;
       end;
       Invalidate;
     end;