anchor.diff:  begin
     hasChanged := False;
     fpgApplication.HideHint;
  -
  -  if (keycode= 58536) or (keycode= 58462) then
  -    FSpecialChar:= keycode;
   
     Consumed := True;
     case CheckClipBoardKey(keycode, shiftstate) of
  
positive.code:   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
  
negative.code:     FVisibleText: TfpgString;
      FVisSelStartPx: integer;
      FVisSelEndPx: integer;
      function    GetMarginAdjustment: integer; virtual;
      procedure   DrawSelection; virtual;
      procedure   DoOnChange; virtual;
  