Set caret at x,y position

[Tomazaz]

Hello,

How to set caret in TRichView at X,Y coordinates position?

Regards,
Tomas

[Sergey Tkachenko]

Code: Select all

uses CRVFData;

var pt: TPoint;
     RVData: TCustomRVFormattedData;
     ItemNo, Offs: Integer;

pt := rve.ClientToDocument(Point(X, Y));
if  rve.GetItemAt(pt.X, pt.Y, RVData, ItemNo, Offs, False) then begin
  RVData := TCustomRVFormattedData(RVData.Edit);
  RVData.SetSelectionBounds(ItemNo, Offs, ItemNo, Offs);
  rve.TopLevelEditor.Invalidate;
end;