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

LCL/Grids: Hide sort arrow when rows are rearranged in a column-sorted grid.

Browse Source 
git-svn-id: trunk@62665 -
This commit is contained in:
wp 2020-02-23 11:51:44 +00:00
parent 74fb203f39
commit 275e406278
1 changed files with 3 additions and 1 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
if IsColumn and (FSortColumn>=0) then begin
if Between(FSortColumn, FromIndex, ToIndex) then begin
if FSortColumn=FromIndex then
FSortColumn := ToIndex
@ -6582,6 +6582,8 @@ begin
else
Inc(FSortColumn);
end;
end else
FSortColumn := -1;
end;
procedure TCustomGrid.DoOPDeleteColRow(IsColumn: Boolean; index: Integer);