anchor.diff:    DockMaster.MakeDockSite(Self, [akBottom], admrpChild);
     DockMaster.OnShowOptions := @ShowAnchorDockOptions;
     DockMaster.HeaderStyle := adhsPoints;
  +  DockMaster.HideHeaderCaptionFloatingControl := true;
  +  DockMaster.ShowHeaderCaption := false;
   
     if DockManager is TAnchorDockManager then begin
       aManager:=TAnchorDockManager(DockManager);
  
positive.code:   public
      constructor create(aOwner: TComponent); override;
      destructor destroy; override;
      //
      procedure openFile(const aFilename: string);
      procedure docChangeNotify(Sender: TObject; const aIndex: Integer);
  
negative.code:   fProject.Free;
    //
    inherited;
  end;
  
  procedure TCEMainForm.UpdateDockCaption(Exclude: TControl = nil);
  begin
    // otherwise dockmaster puts the widget list.
    Caption := 'Coedit';
  end;
  
  procedure TCEMainForm.ApplicationProperties1Exception(Sender: TObject;E: Exception);
  