paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 05:20:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, activate selection if selection is set while goSelectionActive option is specified, patch with changes from wp, issue #25835

Browse Source 
git-svn-id: trunk@44389 -
This commit is contained in:
jesus 2014-03-09 22:16:05 +00:00
parent 10d67b7628
commit bf25a41cc8
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/grids.pas
View File

@ -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;