anchor.diff:    ipmCopy       = 'miDefaultCopy';
     ipmPaste      = 'miDefaultPaste';
     ipmClearAll   = 'miDefaultClearAll';
  +  ipmCharmap    = 'miDefaultCharmap';
   
   
   function CreateEdit(AOwner: TComponent; x, y, w, h: TfpgCoord): TfpgEdit;
  
positive.code:     itm.Name := ipmPaste;
      itm := FDefaultPopupMenu.AddMenuItem(rsDelete, '', @DefaultPopupClearAll);
      itm.Name := ipmClearAll;
    end;
  
    SetDefaultPopupMenuItemsState;
  
negative.code: 
  procedure TfpgBaseEdit.DefaultPopupCut(Sender: TObject);
  begin
    if ReadOnly then
      Exit;
    CutToClipboard;
  end;
  
  procedure TfpgBaseEdit.DefaultPopupCopy(Sender: TObject);
  begin
    if ReadOnly then
      Exit;
    CopyToClipboard;
  end;
  
  procedure TfpgBaseEdit.DefaultPopupPaste(Sender: TObject);
  begin
    if ReadOnly then
      Exit;
    PasteFromClipboard
  end;
  
  procedure TfpgBaseEdit.DefaultPopupClearAll(Sender: TObject);
  begin
    if ReadOnly then
      Exit;
    Clear;
  end;
  
  procedure TfpgBaseEdit.DefaultPopupInsertFromCharmap(Sender: TObject);
  var
    s: TfpgString;
  begin
    if ReadOnly then
      Exit;
    s := fpgShowCharMap;
    if s <> '' then
      DoPaste(s);
  end;
  
  procedure TfpgBaseEdit.SetDefaultPopupMenuItemsState;
  