pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxDBGrid - sort marker for custom sorting - patch from zoltanleo

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2944 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2014-04-18 11:43:18 +00:00
parent 9ada7c687b
commit 99872da4e3
1 changed files with 15 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
components/rx/trunk/rxdbgrid.pas
View File

@ -3373,10 +3373,21 @@ begin
begin
if (FSortColumns.Count>0) and (FSortColumns[0] = ACollumn) then
begin
if FSortColumns[0].FSortOrder = smUp then
FSortColumns[0].FSortOrder := smDown
if Assigned(FSortEngine) then
begin
if FSortColumns[0].FSortOrder = smUp then
FSortColumns[0].FSortOrder := smDown
else
FSortColumns[0].FSortOrder := smUp;
end
else
FSortColumns[0].FSortOrder := smUp;
begin
case ACollumn.FSortOrder of
smNone: ACollumn.FSortOrder := smUp;
smUp: ACollumn.FSortOrder := smDown;
smDown: ACollumn.FSortOrder := smNone;
end;
end;
end
else
begin
@ -3386,7 +3397,7 @@ begin
end;
CollumnSortListUpdate;
if (FSortEngine <> nil) then
if Assigned(FSortEngine) then
CollumnSortListApply;
end
else