Re: Changing cursor

Return to index

Author

Message

Sergey Tkachenko

Posted: 11/24/2003 12:22:24

RichViewEdit1.OnMouseMove:

uses CRVFData;

procedure TForm3.RichViewEdit1MouseMove(Sender: TObject;

  Shift: TShiftState; X, Y: Integer);

var RVData: TCustomRVFormattedData;

    ItemNo, Offs: Integer;

begin

  inc(X, RichViewEdit1.HScrollPos);

  inc(Y, RichViewEdit1.VScrollPos*RichViewEdit1.VSmallStep);

  if RichViewEdit1.GetItemAt(X, Y, RVData, ItemNo, Offs, True) and

     (RVData.GetItemStyle(ItemNo)=rvsPicture) then

    TCustomRichViewEdit(RVData.GetParentControl).Cursor := crJump

  else

    TCustomRichViewEdit(RVData.GetParentControl).Cursor := crIBeam;

end;