I tried to burn the Annotations to Page. Unfortunatelly this does not work. Here my Code:
Code: Select all
function TBMDGDNxtAnnotation.BurnToPage: Boolean;
var
lIndex: Integer;
begin
Result := Assigned(Document);
try
if Result then begin
// Brenne die Annotationen jeder Seite
lIndex := 0;
while (lIndex < GetAnnotationManager.PageCount) and Result do begin
Result := Document.EvalGDPictureStatus(GetAnnotationManager.SelectPage(lIndex+1));
if Result then begin
Result := Document.EvalGDPictureStatus(GetAnnotationManager.BurnAnnotationsToPage(True));
end;
inc(lIndex);
end;
if Result then begin
Modified := False;
end;
end;
except
on E: Exception do begin
WriteLog(E.Message);
end;
end;
end;