* propagate ixDescending in bufdataset. Patch by Hert van Zwietering, Mantis #20043

git-svn-id: trunk@19496 -

packages/fcl-db/src/base/bufdataset.pas

@@ -916,7 +916,7 @@ begin
         AField := TField(IndexFields[FieldNr]);
         ProcessFieldCompareStruct(AField,DBCompareStruct[FieldNr]);
 
-        DBCompareStruct[FieldNr].Desc := (DescIndexFields.IndexOf(AField)>-1);
+        DBCompareStruct[FieldNr].Desc := (DescIndexFields.IndexOf(AField)>-1) or (ixDescending in Options);
         if (CInsIndexFields.IndexOf(AField)>-1) then
           DBCompareStruct[FieldNr].Options := [loCaseInsensitive]
         else