anchor.diff:    prevval: string;
   begin
     prevval   := Text;
  -  if FSpecialChar> -1 then
  -  begin
  -    case FSpecialChar of
  -      58536:
  -        case AText of
  -          'a':
  -            AText:= 'â';
  -          'e':
  -            AText:= 'ë';
  -          'i':
  -            AText:= 'ï';
  -          'o':
  -            AText:= 'ö';
  -          'u':
  -            AText:= 'ü';
  -        end;
  -      58462:
  -        case AText of
  -          'a':
  -            AText:= 'â';
  -          'e':
  -            AText:= 'ê';
  -          'i':
  -            AText:= 'î';
  -          'o':
  -            AText:= 'ô';
  -          'u':
  -            AText:= 'û';
  -        end;
  -    end;
  -    FSpecialChar:= -1;
  -  end;
     s         := AText;
   
     if (not consumed) and (not ReadOnly) then
  
positive.code:   FPopupMenu          := nil;
    FDefaultPopupMenu   := nil;
    FOnChange           := nil;
    FSpecialChar        := -1;
  end;
  
  destructor TfpgBaseEdit.Destroy;
  
negative.code:     FVisibleText: TfpgString;
      FVisSelStartPx: integer;
      FVisSelEndPx: integer;
      function    GetMarginAdjustment: integer; virtual;
      procedure   DrawSelection; virtual;
      procedure   DoOnChange; virtual;
  