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

fpvectorial: freed PDF document

Browse Source
This commit is contained in:
Moritz Lamprecht 2025-07-28 09:10:39 +00:00 committed by Maxim Ganetsky
parent 6dd448b1e2
commit b495717b01
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpvectorial/pdfvectorialwriter.pas
View File

@ -136,6 +136,7 @@ type
procedure AddImage(AImage: TvRasterImage; ABox: TvBoundBox); procedure AddImage(AImage: TvRasterImage; ABox: TvBoundBox);
public public
constructor Create; override; constructor Create; override;
destructor Destroy; override;
procedure WriteToFile(AFileName: String; AData: TvVectorialDocument); override; procedure WriteToFile(AFileName: String; AData: TvVectorialDocument); override;
procedure WriteToStream(AStream: TStream; AData: TvVectorialDocument); override; procedure WriteToStream(AStream: TStream; AData: TvVectorialDocument); override;
end; end;
@ -810,6 +811,12 @@ begin
gTTFontCache.BuildFontCache; gTTFontCache.BuildFontCache;
end; end;
destructor TvPDFVectorialWriter.Destroy;
begin
inherited;
FDocument.Free;
end;
procedure TvPDFVectorialWriter.WriteToFile(AFileName: String; AData: TvVectorialDocument); procedure TvPDFVectorialWriter.WriteToFile(AFileName: String; AData: TvVectorialDocument);
var var
OStream: TFileStream; OStream: TFileStream;