anchor.diff:    Result := CaretPos.Y;
   end;
   
  +function TfpgBaseTextEdit.GetCaretPosV: Integer;
  +begin
  +  Result := CaretPos.X;
  +end;
  +
   procedure TfpgBaseTextEdit.SetFontDesc(const AValue: string);
   begin
     FFont.Free;
  
positive.code: procedure TfpgBaseTextEdit.SetCaretPosH(const AValue: integer);
  begin
    CaretPos.Y := AValue;
  end;
  
  procedure TfpgBaseTextEdit.SetVScrollPos(const AValue: Integer);
  
negative.code:     function    GetHScrollPos: Integer;
      function    GetVScrollPos: Integer;
      function    GetCaretPosH: Integer;
      function    GetCaretPosV: Integer;
      procedure   SetFontDesc(const AValue: string);
      procedure   SetGutterShowLineNumbers(const AValue: Boolean);
      procedure   SetGutterVisible(const AValue: Boolean);
      procedure   SetHScrollPos(const AValue: Integer);
      procedure   SetCaretPosH(const AValue: Integer);
      procedure   SetCaretPosV(const AValue: Integer);
      procedure   SetLines(const AValue: TStrings);
      procedure   SetScrollBarStyle(const AValue: TfpgScrollStyle);
      procedure   SetTabWidth(const AValue: Integer);
  