function ReadingUnits: TPdfReadingUnits;
TPdfReadingUnits朗读单元使标题和图形替代文本保持完整,在句子边界处拆分段落文本,保留小数点,并将朗读游标保留为调用方拥有的数组索引
将 Rects 与 TPdfView.SetReadingHighlight 以及 Language 一起使用,以协调视觉高亮与 TTS 语音
var Units: TPdfReadingUnits;
begin
Units := PdfView1.ReadingUnits;
if Length(Units) > 0 then
PdfView1.SetReadingHighlight(Units[0].Rects, Units[0].Page);
end;