anchor.diff:    end;
   end;
   
  -procedure TfpgBaseTextEdit.DrawLine(const I, Y: Integer);
  +procedure TfpgBaseTextEdit.DrawLine(const ALineIndex, Y: Integer);
   var
     X: Integer;
     GSz: Integer;
  
positive.code: begin
    if FLines.Count = 0 then
      Exit; //==>
    if (I < 0) or (I > FLines.Count-1) then
      Exit; //==>
    S := FLines[I];
    if Pos(#9, S) > 0 then
    begin
      CorrectS := '';
  
negative.code:   else
      GSz := GetClientRect.Left + 1; // gutter size if no gutter panel
  
    if ALineIndex < FLines.Count then
    begin
      X := -(HPos * FChrW) + GSz;
      FormatLine(ALineIndex, X, Y);
    end;
  end;
  
  procedure TfpgBaseTextEdit.FormatLine(const ALineIndex, X, Y: Integer);
  var
    S, CorrectS, SS: TfpgString;
    TI, Si, Ei, T: Integer;
  