anchor.diff:      procedure LoadDockLayout;
       procedure SaveDockLayout;
       procedure CEFShutdownComplete(Sender: TObject);
  +    procedure ActivateActiveChild;
   
     protected
       procedure WndProc(var Message: TMessage); override;
  
positive.code:             //CharacterMapFormChanged(nil);
              Window.Parent := nil;
              pages.Pages[i].Free;
              FocusActiveChild;
  
              if FIsClosing then
  
negative.code:   end;
  end;
  
  procedure TfrmKeymanDeveloper.ActivateActiveChild;
  begin
    if Assigned(ActiveChild) then
      SendMessage(ActiveChild.Handle, CM_ACTIVATE, 0, 0);
  end;
  
  procedure TfrmKeymanDeveloper.pagesChange(Sender: TObject);
  begin
    inherited;
    //CharacterMapFormChanged(ActiveChild);
    ActivateActiveChild;
  
    cbTextFileFormat.Enabled := Assigned(ActiveChild) and (ActiveChild is TfrmTikeEditor);   // I3733
    FocusActiveChild;
  