paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 08:12:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Allow loading images from stream

Browse Source 
git-svn-id: trunk@38924 -
This commit is contained in:
michael 2018-05-05 21:44:54 +00:00
parent b169e1bfc3
commit ef63bbfbad
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fcl-report/src/fpreport.pp
View File

@ -2065,6 +2065,7 @@ type
procedure ReadElement(AReader: TFPReportStreamer); override; procedure ReadElement(AReader: TFPReportStreamer); override;
procedure WriteElement(AWriter: TFPReportStreamer; AOriginal: TFPReportElement = nil); override; procedure WriteElement(AWriter: TFPReportStreamer; AOriginal: TFPReportElement = nil); override;
procedure LoadFromFile(const AFileName: string); procedure LoadFromFile(const AFileName: string);
Procedure LoadFromStream(const AStream: TStream; aHandler: TFPCustomImageReaderClass);
procedure LoadPNGFromStream(AStream: TStream); procedure LoadPNGFromStream(AStream: TStream);
procedure LoadImage(const AImageData: Pointer; const AImageDataSize: LongWord); procedure LoadImage(const AImageData: Pointer; const AImageDataSize: LongWord);
end; end;
@ -5451,6 +5452,17 @@ begin
ImageID:=R.Images[I].ID; ImageID:=R.Images[I].ID;
end; end;
procedure TFPReportCustomImage.LoadFromStream(const AStream: TStream; aHandler: TFPCustomImageReaderClass);
var
R : TFPCustomReport;
i : integer;
begin
R:=Report;
I:=R.Images.AddFromStream(aStream,aHandler,True);
ImageID:=R.Images[I].ID;
end;
procedure TFPReportCustomImage.LoadPNGFromStream(AStream: TStream); procedure TFPReportCustomImage.LoadPNGFromStream(AStream: TStream);
var var