anchor.diff:      FOnInsert: TCharmapInsertEvent;
       FModeUnicode: boolean;
       FModeUnicodeBegin: integer;
  +    function DoGetCode(aCol, aRow: integer): integer;
       procedure DoShowAnsi;
       procedure DoShowUnicode;
       procedure DoAutosize;
  
positive.code:   DoStatus(i, j);
  end;
  
  procedure TfmCharmaps.DoStatus(aCol, aRow: integer);
  var
    code: integer;
  begin
    if not FModeUnicode then
    begin
      code:= aCol-1 + (aRow-1)*16;
      LabelInfo.Caption:= Format('Decimal %d, Hex %s', [code, IntToHex(code, 2)]);
    end
    else
    begin
      code:= aCol+aRow*16+FModeUnicodeBegin;
      LabelInfo.Caption:= Format('U+%s', [IntToHex(code, 4)]);
    end;
  end;
  
  procedure TfmCharmaps.GridSelectCell(Sender: TObject; aCol, aRow: Integer;
  
negative.code: var
    i, j: integer;
  begin
    if Grid.MouseToGridZone(X, Y)<>gzNormal then exit;
    if Button=mbLeft then
    begin
      Grid.MouseToCell(X, Y, i, j);
      DoInsert(i, j);
    end;
  end;
  