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

LCL/Grids: Add public method HideSortArrow (Needed when rows of sorted grid are reordered manually, https://forum.lazarus.freepascal.org/index.php/topic,48568.msg349824)

Browse Source 
git-svn-id: trunk@62644 -
This commit is contained in:
wp 2020-02-19 06:13:59 +00:00
parent ed7473f789
commit b9992c54b1
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/grids.pas
View File

@ -1323,6 +1323,7 @@ type
procedure EraseBackground(DC: HDC); override;
function Focused: Boolean; override;
function HasMultiSelection: Boolean;
procedure HideSortArrow;
procedure InvalidateCell(aCol, aRow: Integer); overload;
procedure InvalidateCol(ACol: Integer);
procedure InvalidateRange(const aRange: TRect);
@ -3276,6 +3277,12 @@ begin
end;
end;
procedure TCustomGrid.HideSortArrow;
begin
FSortColumn := -1;
InvalidateGrid;
end;
procedure TCustomGrid.doTopleftChange(DimChg: Boolean);
begin
TopLeftChanged;