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

fpvectorial: Raise exception when pdfvectorialwriter is requested to save a vectorial (non-text) page. Issue #40858.

Browse Source
This commit is contained in:
wp_xyz 2024-03-21 19:00:50 +01:00
parent 2b58463b83
commit e8c9f1f61e
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpvectorial/pdfvectorialwriter.pas
View File

@ -846,6 +846,8 @@ begin
for i := 0 to AData.GetPageCount - 1 do // iterate through pages
begin
TextPage := AData.GetPageAsText(i);
if TextPage = nil then
raise Exception.Create('No text page found.');
Empty := AddPage(TextPage);
for j := 0 to TextPage.GetEntitiesCount - 1 do // iterate through entities
begin