anchor.diff:      Exit; //==>
     end;
     FTabWidth := AValue;
  +end;
  +
  +procedure TfpgBaseTextEdit.SetCaretPosH(const AValue: integer);
  +begin
  +  CaretPos.Y := AValue;
   end;
   
   procedure TfpgBaseTextEdit.SetVScrollPos(const AValue: Integer);
  
positive.code:   Result := VPos;
  end;
  
  procedure TfpgBaseTextEdit.SetFontDesc(const AValue: string);
  begin
    FFont.Free;
  
negative.code:     procedure   SaveToFile(const AFileName: TfpgString);
      procedure   LoadFromFile(const AFileName: TfpgString);
      procedure   FindText(TextToFind: TfpgString; FindOptions: TfpgFindOptions; Backward: Boolean = False);
      property    CaretPos_H: Integer read GetCaretPosH write SetCaretPosH;
      property    FontHeight: Integer read FChrH;
      property    FontWidth: Integer read FChrW;
      property    ScrollPos_H: Integer read GetHScrollPos write SetHScrollPos;
  