Do cell text formatting for decimal and binary columns, also in DataGridEnsureFullRow(). Fixes issue #1784.

This commit is contained in:
Ansgar Becker
2010-03-20 00:03:34 +00:00
parent 63bb7ae022
commit 939425dc19

View File

@ -3411,7 +3411,11 @@ begin
if Data.RecordCount = 0 then
raise Exception.Create('Unable to find row.');
for i:=0 to Length(DataGridResult.Columns)-1 do begin
Row.Cells[i].Text := Data.Col(i);
case DataGridResult.Columns[i].DatatypeCat of
dtcInteger, dtcReal: Row.Cells[i].Text := FormatNumber(Data.Col(i), False);
dtcBinary: Row.Cells[i].Text := GetBlobContent(Data, i);
else Row.Cells[i].Text := Data.Col(i);
end;
Row.Cells[i].IsNull := Data.IsNull(i);
end;
Row.HasFullData := True;