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

LCL/grids: Undo r62665 #275e406278

Browse Source 
git-svn-id: trunk@62675 -
This commit is contained in:
wp 2020-02-26 22:31:38 +00:00
parent 7b68c36225
commit ac24214ca9
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/grids.pas
View File

@ -6572,7 +6572,7 @@ begin
end;
// adjust sorted column
if IsColumn and (FSortColumn>=0) then begin
if IsColumn and (FSortColumn>=0) then
if Between(FSortColumn, FromIndex, ToIndex) then begin
if FSortColumn=FromIndex then
FSortColumn := ToIndex
@ -6582,8 +6582,6 @@ begin
else
Inc(FSortColumn);
end;
end else
FSortColumn := -1;
end;
procedure TCustomGrid.DoOPDeleteColRow(IsColumn: Boolean; index: Integer);