anchor.diff:      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);
  
positive.code:     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;
  
negative.code: procedure TfpgBaseTextEdit.SetCaretPosH(const AValue: integer);
  begin
    CaretPos.Y := AValue;
  end;
  
  procedure TfpgBaseTextEdit.SetCaretPosV(const AValue: integer);
  begin
    CaretPos.X := AValue;
  end;
  
  procedure TfpgBaseTextEdit.SetVScrollPos(const AValue: Integer);
  