anchor.diff:      property    ScrollPos_V: Integer read GetVScrollPos write SetVScrollPos;
       property    TopLine: Integer read FTopLine;
       property    VisibleLines: Integer read FVisLines;
  +    property    RightEdge: Boolean read FRightEdge write SetRightEdge default False;
  +    property    RightEdgeCol: Integer read FRightEdgeCol write SetRightEdgeCol default 80;
     end;
   
   
  
positive.code:     FSelDrag: Boolean;
      FSelected, FSelMouseDwn: Boolean;
      FGutterPan: TfpgGutter;
      function    GetFontDesc: string;
      function    GetGutterShowLineNumbers: Boolean;
      function    GetGutterVisible: Boolean;
  
negative.code:     if cntVis > FVisLines then
        Break;  //==>
    end;
  end;
  
  procedure TfpgBaseTextEdit.DrawLine(const I, Y: Integer);
  