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

RxDBGrid: fix work TRxCollumn.SortFields

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2904 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2014-03-13 19:54:30 +00:00
parent a05c182b2c
commit d4dd5203a8
4 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2579,7 +2579,7 @@ var
begin
if (FSortColumns.Count = 0) then exit;
FSortingNow:=true;
if FSortColumns.Count>1 then
if (FSortColumns.Count>1) or (Pos(';', FSortColumns[0].GetSortFields)>0) then
begin
SetLength(Asc, FSortColumns.Count);
for i := 0 to FSortColumns.Count - 1 do