anchor.diff:      procedure   DeleteSelection;
       procedure   SaveToFile(const AFileName: TfpgString);
       procedure   LoadFromFile(const AFileName: TfpgString);
  +    property    FontHeight: Integer read FChrH;
  +    property    FontWidth: Integer read FChrW;
       property    ScrollPos_H: Integer read GetHScrollPos write SetHScrollPos;
       property    ScrollPos_V: Integer read GetVScrollPos write SetVScrollPos;
       property    TopLine: Integer read FTopLine;
  
positive.code:     property    ScrollBarStyle: TfpgScrollStyle read FScrollBarStyle write SetScrollBarStyle default ssAutoBoth;
      property    TabWidth: Integer read FTabWidth write SetTabWidth default 8;
      property    Tracking: Boolean read FTracking write FTracking default True;
    public
      constructor Create(AOwner: TComponent); override;
      destructor  Destroy; override;
  
negative.code:   { start drawing formatted text }
    R.SetRect(X, Y, UTF8Length(S) * FChrW, FChrH);
    AllowDraw := True;
    { end-user can hook in here to do syntax highlighting and other custom drawing }
    if Assigned(FOnDrawLine) then
      FOnDrawLine(self, S, I, Canvas, R, AllowDraw);
    { Draw simple text line... }
    if AllowDraw then
      Canvas.DrawText(R, S);
  
    { todo: Do other formatting here. }
    { todo: Do selection painting here. }
  