anchor.diff:    xcfg: TXMLConfigStorage;
     str: TMemoryStream;
   begin
  -  if not fileExists(getDocPath + 'docking.xml') then
  -    exit;
  -  xcfg := TXMLConfigStorage.Create(getDocPath + 'docking.xml', true);
  -  try
  +  if fileExists(getDocPath + 'docking.xml') then
  +  begin
  +    xcfg := TXMLConfigStorage.Create(getDocPath + 'docking.xml', true);
       try
  -      DockMaster.LoadLayoutFromConfig(xcfg, false);
  -    except
  -      exit;
  +      try
  +        DockMaster.LoadLayoutFromConfig(xcfg, false);
  +      except
  +        exit;
  +      end;
  +      str := TMemoryStream.Create;
  +      try
  +        xcfg.SaveToStream(str);
  +        str.saveToFile(getDocPath + 'docking.bak')
  +      finally
  +        str.Free;
  +      end;
  +    finally
  +      xcfg.Free;
       end;
  -    str := TMemoryStream.Create;
  +  end;
  +  if fileExists(getDocPath + 'dockingopts.xml') then
  +  begin
  +    xcfg := TXMLConfigStorage.Create(getDocPath + 'dockingopts.xml', true);
       try
  -      xcfg.SaveToStream(str);
  -      str.saveToFile(getDocPath + 'docking.bak')
  +      try
  +        DockMaster.LoadSettingsFromConfig(xcfg);
  +      except
  +        exit;
  +      end;
  +      str := TMemoryStream.Create;
  +      try
  +        xcfg.SaveToStream(str);
  +        str.saveToFile(getDocPath + 'dockingopts.bak')
  +      finally
  +        str.Free;
  +      end;
       finally
  -      str.Free;
  +      xcfg.Free;
       end;
  -  finally
  -    xcfg.Free;
     end;
   end;
   
  
positive.code:   finally
      xcfg.Free;
    end;
  end;
  
  procedure TCEMainForm.LoadDocking;
  
negative.code:   win.Show;
    win.BringToFront;
  end;
  {$ENDREGION}
  
  {$REGION project ---------------------------------------------------------------}
  