anchor.diff:    Invalidate;
   end;
   
  +procedure TfpgBaseTextEdit.FindText(TextToFind: TfpgString; FindOptions: TfpgFindOptions; Backward: Boolean);
  +var
  +  Rep, SrcRes: Boolean;
  +begin
  +  SrcRes := FindReplaceProc(TextToFind, FindOptions, Backward, False, Rep);
  +  if Assigned(FOnSearchEnd) then
  +    FOnSearchEnd(Self, SrcRes, False);
  +end;
  +
   
   end.
   
  
positive.code:     property    TabWidth: Integer read FTabWidth write SetTabWidth default 8;
      property    Tracking: Boolean read FTracking write FTracking default True;
      property    OnDrawLine: TfpgDrawLineEvent read FOnDrawLine write FOnDrawLine;
    public
      constructor Create(AOwner: TComponent); override;
      destructor  Destroy; override;
  
negative.code:     FLines: TStrings;
      CaretPos: TPoint;
      FOnDrawLine: TfpgDrawLineEvent;
      FOnFindText: TfpgFindText;
      FOnReplaceText: TfpgReplaceText;
      FOnSearchEnd: TfpgOnSearchEnd;
      FScrollBarStyle: TfpgScrollStyle;
      MousePos: TPoint;
      FChrW: Integer;
  