anchor.diff:      if cntVis > FVisLines then
         Break;  //==>
     end;
  -  { todo: implement this }
  -{
  -  if FRightEdge then
  -  begin
  -    if not FGutterOpt.Visible then
  -    begin
  -      with Canvas do
  -      begin
  -        Pen.Color := FEnvironment.RightEdgeColor;
  -        MoveTo((FRightEdgeCol * FChrW) - (HPos * FChrW), 0);
  -        LineTo((FRightEdgeCol * FChrW) - (HPos * FChrW), ClientHeight);
  -      end;
  -    end else
  -      with Canvas do
  -      begin
  -        Pen.Color := FEnvironment.RightEdgeColor;
  -        MoveTo((FRightEdgeCol * FChrW) - (HPos * FChrW) + FGutterPan.Width, 0);
  -        LineTo((FRightEdgeCol * FChrW) - (HPos * FChrW) + FGutterPan.Width, ClientHeight);
  -      end;
  -  end;
  -}
   end;
   
   procedure TfpgBaseTextEdit.DrawLine(const I, Y: Integer);
  
positive.code:   end;
  end;
  
  procedure TfpgBaseTextEdit.HandlePaint;
  begin
  //  inherited HandlePaint;
  
negative.code:     FSelDrag: Boolean;
      FSelected, FSelMouseDwn: Boolean;
      FGutterPan: TfpgGutter;
      FRightEdge: Boolean;
      FRightEdgeCol: Integer;
      function    GetFontDesc: string;
      function    GetGutterShowLineNumbers: Boolean;
      function    GetGutterVisible: Boolean;
  