paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 13:19:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport: In TfrCustomMemoView do not convert code page when loading lines from a blob field. Issue #36264, patch from Michal Gawrycki.

Browse Source 
git-svn-id: trunk@62206 -
This commit is contained in:
juha 2019-11-06 14:19:36 +00:00
parent b0e6a399ef
commit 0ec5c3f4d8
1 changed files with 1 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/lazreport/source/lr_class.pas
View File

@ -4745,23 +4745,8 @@ begin
end;
procedure TfrCustomMemoView.GetBlob(b: TfrTField);
var
M: TMemoryStream;
begin
// todo: TBLobField.AssignTo is not implemented yet
// even if I supply a patch for 2.0.4 it will
// not be integrated because it's in RC1 now
// (I guess)
//
//Memo1.Assign(b);
M := TMemoryStream.Create;
try
TBlobField(B).SaveToStream(M);
M.Position := 0;
Memo1.LoadFromStream(M);
finally
M.Free;
end;
Memo1.Text := TBlobField(b).AsString;
end;
procedure TfrCustomMemoView.FontChange(sender: TObject);