anchor.diff:      FVisibleText: TfpgString;
       FVisSelStartPx: integer;
       FVisSelEndPx: integer;
  -    FSpecialChar: integer;
       function    GetMarginAdjustment: integer; virtual;
       procedure   DrawSelection; virtual;
       procedure   DoOnChange; virtual;
  
positive.code: begin
    hasChanged := False;
    fpgApplication.HideHint;
  
    if (keycode= 58536) or (keycode= 58462) then
      FSpecialChar:= keycode;
  
    Consumed := True;
    case CheckClipBoardKey(keycode, shiftstate) of
  
negative.code:   FPopupMenu          := nil;
    FDefaultPopupMenu   := nil;
    FOnChange           := nil;
  end;
  
  destructor TfpgBaseEdit.Destroy;
  