How to caculate the current item top-y on the pge ?
Posted: Fri Sep 12, 2014 3:47 am
How to caculate the current item top-y on the pge in the function TSRichViewEdit.PaintPage?
Code: Select all
var
ItemPart, FirstPageNo, LastPageNo: Integer;
ItemPartRect: TRect;
with SRichViewEdit1.RichViewEdit.TopLevelEditor do begin
ItemPart := RVData.GetItemPart(CurItemNo, OffsetInCurItem, IsCaretAtTheBeginningOfLine);
SRichViewEdit1.GetItemBounds100(RVData, CurItemNo, ItemPartRect,
FirstPageNo, LastPageNo, ItemPart);
end;
// the result is ItemPartRect;Demos\CustomDraw\Rectangles\DrawAtCaret\
The result is coordinates in zoom=100%, relative to the page (i.e. coordinates needed in OnPaintPage).