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

RxFPC:on calc RxDBGrid footer row sum also use ftFMTBcd - tnx. brick08

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7173 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2019-10-28 10:09:21 +00:00
parent 5bd2fd23eb
commit fbcd001982
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/rx/trunk/rxdb/rxdbgrid.pas
View File

@ -1457,7 +1457,7 @@ begin
if Assigned(F) then if Assigned(F) then
begin begin
if F.DataType in [ftSmallint, ftInteger, ftWord, ftFloat, ftCurrency, if F.DataType in [ftSmallint, ftInteger, ftWord, ftFloat, ftCurrency,
ftDate, ftTime, ftDateTime, ftTimeStamp, ftLargeint, ftBCD] then ftDate, ftTime, ftDateTime, ftTimeStamp, ftLargeint, ftBCD, ftFMTBcd] then
begin begin
if F.DataType in [ftDate, ftTime, ftDateTime, ftTimeStamp] then if F.DataType in [ftDate, ftTime, ftDateTime, ftTimeStamp] then
begin begin
@ -1972,7 +1972,7 @@ begin
if Assigned(F) then if Assigned(F) then
begin begin
if F.DataType in [ftSmallint, ftInteger, ftWord, ftFloat, ftCurrency, if F.DataType in [ftSmallint, ftInteger, ftWord, ftFloat, ftCurrency,
ftDate, ftTime, ftDateTime, ftTimeStamp, ftLargeint, ftBCD] then ftDate, ftTime, ftDateTime, ftTimeStamp, ftLargeint, ftBCD, ftFMTBcd] then
begin begin
if F.DataType in [ftDate, ftTime, ftDateTime, ftTimeStamp] then if F.DataType in [ftDate, ftTime, ftDateTime, ftTimeStamp] then
begin begin