function ReadingUnits: TPdfReadingUnits;
TPdfReadingUnits朗讀單元會保持標題與圖形替代文字完整、在句子邊界切分段落文字、保留小數點,並將朗讀游標留給呼叫端持有的陣列索引
搭配 TPdfView.SetReadingHighlight 與 Language 使用 Rects,讓視覺高亮與 TTS 語音同步
var Units: TPdfReadingUnits;
begin
Units := PdfView1.ReadingUnits;
if Length(Units) > 0 then
PdfView1.SetReadingHighlight(Units[0].Rects, Units[0].Page);
end;