anchor.diff:      procedure   LoadFromFile(const AFileName: TfpgString);
       procedure   FindText(TextToFind: TfpgString; FindOptions: TfpgFindOptions; Backward: Boolean = False);
       property    CaretPos_H: Integer read GetCaretPosH write SetCaretPosH;
  +    property    CaretPos_V: Integer read GetCaretPosV write SetCaretPosV;
       property    FontHeight: Integer read FChrH;
       property    FontWidth: Integer read FChrW;
       property    ScrollPos_H: Integer read GetHScrollPos write SetHScrollPos;
  
positive.code:     function    GetHScrollPos: Integer;
      function    GetVScrollPos: Integer;
      function    GetCaretPosH: 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   SetLines(const AValue: TStrings);
      procedure   SetScrollBarStyle(const AValue: TfpgScrollStyle);
      procedure   SetTabWidth(const AValue: Integer);
  
negative.code:   Result := CaretPos.Y;
  end;
  
  function TfpgBaseTextEdit.GetCaretPosV: Integer;
  begin
    Result := CaretPos.X;
  end;
  
  procedure TfpgBaseTextEdit.SetFontDesc(const AValue: string);
  begin
    FFont.Free;
  