RxFPC:fix format integer value in RxDBGrid footer row

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5631 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2017-01-12 08:40:43 +00:00
parent 49cbe4ab65
commit a2825db869
1 changed files with 1 additions and 1 deletions
--- a/components/rx/trunk/rxdbgrid.pas
+++ b/components/rx/trunk/rxdbgrid.pas
@ -1249,7 +1249,7 @@ begin
          if FDisplayFormat = '' then
            Result := IntToStr(Round(FTestValue))
          else
-            Result := Format(FDisplayFormat, [Round(FTestValue)]);
+            Result := FormatFloat(FDisplayFormat, FTestValue);
        end
        else
        begin