anchor.diff:    { start drawing formatted text }
     R.SetRect(X, Y, UTF8Length(S) * FChrW, FChrH);
     AllowDraw := True;
  -//  if Assigned(FOnDrawLine) then FOnDrawLine(Self, S, I, LGliph, R, AllowDraw);
  +  { 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);
  -//    DrawText(LGliph.Canvas.Handle, PChar(S), Length(S), R, DT_DRAWLINE);
   
     { todo: Do other formatting here. }
     { todo: Do selection painting here. }
  
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:     property    ScrollBarStyle;
      property    TabWidth;
      property    Tracking;
      property    OnDrawLine;
    end;
  
  
  