RxFPC:fix sort dialog on RxDBGrid - tnx user ZeosFirebird

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8118 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2021-10-20 06:39:44 +00:00
parent 98884e4cad
commit b4ac9bc07d
2 changed files with 8 additions and 1 deletions

View File

@ -6488,6 +6488,13 @@ begin
rxSortByForm.CheckBox1.Checked := rdgCaseInsensitiveSort in FOptionsRx;
if rxSortByForm.Execute(Self, FSortListField) then
begin
for i:=0 to Columns.Count-1 do
begin
FColumn:=Columns[i];
FColumn.FSortPosition:=0;
FColumn.FSortOrder:=smNone;
end;
for i := 0 to FSortListField.Count - 1 do
begin
S1:=FSortListField.Strings[i];

View File

@ -25,7 +25,7 @@
Copyright (c) 1998 Master-Bank
translate to Lazarus by alexs in 2005 - 2020"/>
<License Value="LGPL"/>
<Version Major="3" Minor="3" Release="5" Build="231"/>
<Version Major="3" Minor="3" Release="6" Build="232"/>
<Files Count="70">
<Item1>
<Filename Value="registerrx.pas"/>