paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 13:29:27 +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

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

@ -2051,7 +2051,7 @@ type
protected
procedure DoWriteLocalProperties(AWriter: TFPReportStreamer; AOriginal: TFPReportElement = nil); override;
Procedure RecalcLayout; override;
function PrepareObject(aRTParent: TFPReportElement): TFPReportElement; override;
function PrepareObject(aRTParent: TFPReportElement): TFPReportElement; override;
property Image: TFPCustomImage read GetImage write SetImage;
property ImageID: integer read FImageID write SetImageID;
property Stretched: boolean read FStretched write SetStretched;
@ -2065,6 +2065,7 @@ type
procedure ReadElement(AReader: TFPReportStreamer); override;
procedure WriteElement(AWriter: TFPReportStreamer; AOriginal: TFPReportElement = nil); override;
procedure LoadFromFile(const AFileName: string);
Procedure LoadFromStream(const AStream: TStream; aHandler: TFPCustomImageReaderClass);
procedure LoadPNGFromStream(AStream: TStream);
procedure LoadImage(const AImageData: Pointer; const AImageDataSize: LongWord);
end;
@ -5451,6 +5452,17 @@ begin
ImageID:=R.Images[I].ID;
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);
var