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:     function    GetGutterVisible: Boolean;
      function    GetHScrollPos: Integer;
      function    GetVScrollPos: Integer;
      procedure   SetFontDesc(const AValue: string);
      procedure   SetGutterShowLineNumbers(const AValue: Boolean);
      procedure   SetGutterVisible(const AValue: Boolean);
      procedure   SetHScrollPos(const AValue: Integer);
      procedure   SetLines(const AValue: TStrings);
      procedure   SetScrollBarStyle(const AValue: TfpgScrollStyle);
      procedure   SetTabWidth(const AValue: Integer);
  
negative.code:   Result := VPos;
  end;
  
  function TfpgBaseTextEdit.GetCaretPosH: Integer;
  begin
    Result := CaretPos.Y;
  end;
  
  procedure TfpgBaseTextEdit.SetFontDesc(const AValue: string);
  begin
    FFont.Free;
  