trichview.support
Re: Changing cursor |
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; |
Powered by ABC Amber Outlook Express Converter