paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

RxDBGrid - fix cacl footer row for ftLargeint fields

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2401 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75 2012-04-22 17:10:46 +00:00
parent 26f6b7f3af
commit dd694d509c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/rx/rxdbgrid.pas
View File

@ -3744,7 +3744,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] then ftDate, ftTime, ftDateTime, ftTimeStamp, ftLargeint] then
begin begin
if F.DataType in [ftDate, ftTime, ftDateTime, ftTimeStamp] then if F.DataType in [ftDate, ftTime, ftDateTime, ftTimeStamp] then
begin begin
@ -3760,7 +3760,7 @@ begin
Result := FormatDateTime(FDisplayFormat, FTestValue); Result := FormatDateTime(FDisplayFormat, FTestValue);
end end
else else
if F.DataType in [ftSmallint, ftInteger, ftWord] then if F.DataType in [ftSmallint, ftInteger, ftWord, ftLargeint] then
begin begin
if FDisplayFormat = '' then if FDisplayFormat = '' then
Result := IntToStr(Round(FTestValue)) Result := IntToStr(Round(FTestValue))