You've already forked lazarus-ccr
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:
@ -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];
|
||||
|
@ -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"/>
|
||||
|
Reference in New Issue
Block a user