anchor.diff:    fpgPostMessage(self, FVScrollBar, FPGM_SCROLL, msg);
   end;
   
  -procedure TfpgBaseTextEdit.HandleKeyPress(var keycode: word;
  -    var shiftstate: TShiftState; var consumed: boolean);
  +procedure TfpgBaseTextEdit.HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean);
   var
     SLine: TfpgString;
     AddS: TfpgString;
  
positive.code:     keyTab:
          begin
            AddS := '  ';
            SendDebug('b: ' + SLine);
            UTF8Insert(AddS, SLine, CaretPos.X);
            SendDebug('a: ' + SLine);
            FLines[CaretPos.Y] := SLine;
            CaretPos.X := CaretPos.X + 2;
            FSelStartNo := CaretPos.Y;
  
negative.code: procedure TfpgBaseTextEdit.DeleteSelection;
  begin
    { TODO : Implement DeleteSelection }
    SendDebug(' TODO: Implement DeleteSelection');
  end;
  
  procedure TfpgBaseTextEdit.SaveToFile(const AFileName: TfpgString);
  