paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 07:00:32 +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; end;
// adjust sorted column // adjust sorted column
if IsColumn and (FSortColumn>=0) then if IsColumn and (FSortColumn>=0) then begin
if Between(FSortColumn, FromIndex, ToIndex) then begin if Between(FSortColumn, FromIndex, ToIndex) then begin
if FSortColumn=FromIndex then if FSortColumn=FromIndex then
FSortColumn := ToIndex FSortColumn := ToIndex
@ -6582,6 +6582,8 @@ begin
else else
Inc(FSortColumn); Inc(FSortColumn);
end; end;
end else
FSortColumn := -1;
end; end;
procedure TCustomGrid.DoOPDeleteColRow(IsColumn: Boolean; index: Integer); procedure TCustomGrid.DoOPDeleteColRow(IsColumn: Boolean; index: Integer);