I'm trying to set up a slightly different paragraph highlight and can't figure it out.
Here's what I have now, it works fine (call this paragraph highlight): Here's the relevant code:
Code: Select all
r := ARect;
ACanvas.Brush.Color := SRDJournalThemes.EditorActiveLine;
ACanvas.FillRect(r);
Code: Select all
r := ARect;
yoffset := ( Edit.VScrollPos * Edit.VSmallStep );
CurDItem := TRVEditRVData(Edit.RVData).CaretDrawItemNo;
Edit.RVData.GetLineVerticalBoundsOrigEx(CurDItem,LineTopY,LineBottomY,CurDItem,CurDItem);
r.Top := LineTopY - yoffset;
r.Bottom := LineBottomY - yoffset + 1;
ACanvas.Brush.Color := SRDJournalThemes.EditorActiveLine;
ACanvas.FillRect(r);
Thanks Sergey
Stan