2、修改以下几个点,将系统对平台底层函数的调用替换为平台脚本函数
注意:WriteUserInfo方法最后一个参数去掉了
调用:下面修改的单元都要引用系统函数库
1、Biz:\COLLABORATION\DESKTOPFOLDER\PANELSETTINGINFO.INFO.DIR\USERDSKSETFORMDOC.FORMDOC.PAS
//ExtUtils.WriteUserInfo(FNowUser.ID, TRTLConsts.UserDskSetDefDeskSetId, lAID, nil, True);
2、Biz:\SYSTEM\SYSRUN\SETTINGLIB.LIBRARY.PAS(421):
ExtUtils.WriteUserInfo(SysUtils.UpperCase(cRootURL), cID, '', lStream, True)
3、Biz:\SYSTEM\SYSRUN\SETTINGLIB.LIBRARY.PAS(424):
ExtUtils.WriteUserInfo(SysUtils.UpperCase(AOrgUrl), cID, '', lStream, True);
4、Biz:\SYSTEM\SYSFUNCS\USERINTERFACEMANAGER.FUNC.DIR\MAINFORM.FORM.PAS(114):
ExtUtils.WriteUserInfo(FOperator.ID, UISpaceID, FDefaultOne, lStream, True);
5、Biz:\SYSTEM\BASEUSERINTERFACE\LIBS\UISTYLECOMMONLIBRARY.LIBRARY.DIR\OPTIONDIALOG.FORM.PAS(167):
ExtUtils.WriteUserInfo(TSystemCore.Operator.ID, UISpaceID, S, nil, True);
6、标准风格主窗体
procedure TSTANDARDSTYLEMAINFORM.BizFormClose(Sender: TObject; var Action: TCloseAction);
{ 退出不保存用户界面配置信息,在配置界面点确定的时候保存 }
//if FConfig.SaveOnExit then
/// if not Opr.IsSystemManager(TSystemCore.Operator.ID) then
// if ConfigDif then
// WriteSetting;
7、配置库
将所有对ExtUtils.的调用替换成TSystemUtils.
上面这段话,需要改哪?没懂 |