anchor.diff:      function GetMouseWheelStepsCnt(aWheelData: Integer): Integer;
       procedure ResetControl(aCtrl: TControl);
       procedure ResetSubPanel(aPanel: TWinControl);
  +    function GetDevSettingsPath: UnicodeString;
       {$IFDEF MSWindows}
       function GetWindowParams: TKMWindowParamsRecord;
       procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
  
positive.code:     end;
    end;
  
    newXML.SaveToFile(fDevSettingsFilepath);
    newXML.Free;
  end;
  
  
negative.code: 
  var
    I: Integer;
    devSettingsPath: UnicodeString;
    newXML: TKMXMLDocument;
    cp: TCategoryPanel;
    cpSurface: TCategoryPanelSurface;
  