[分享]28**版本或者29**版本升级到3002版本保留原来界面方案的方法[color=orangered

shangxy

1.首先按照升级文档按照升级步骤对28或者29系列的版本进行升级。
2。修改自己定义界面方案的标准风格主窗体中的代码如下：
constructor TMainFormConfig.Create;
begin
  inherited;
  FVersion := '1.0.0.3';

  SaveOnExit := True;
  SaveToolWindowLayout := True;
  //SaveActiveFunc := True;
  //SaveLastOpenFuncCount := 10;
//注释掉这句 RunFuncs := TRTLConsts.RunFuncs;
  [B]RunFuncs := GetDefaultRunFuncs;[/B] //添加这句

  RunMessenger := True;

  Style := DefaultStyle;
  ReadOnlyColor := DefaultReadOnlyColor;
  RequiredColor := DefaultRequiredColor;
end;

然后在这个函数上面在添加一个GetDefaultRunFuncs;方法 ，如下：
function GetDefaultRunFuncs: string;
var
  I: Integer;
  lRunFuncs: TStringArray;
begin
  lRunFuncs := TRTLConsts.RunFuncs;
  Result := '';
  for I := Low(lRunFuncs) to High(lRunFuncs) do
   if I > Low(lRunFuncs) then
     Result := Result + ';' + lRunFuncs[I]
   else
     Result := lRunFuncs[I];
end;
3.修改配置文件config.justep.xml文件中界面方案配置为自己定义的界面方案，
4.停止服务、启动服务