405 procedure chSetTheme(var s: shortstring);

   405 procedure chSetTheme(var s: shortstring);

   406 begin

   406 begin

   407 if isDeveloperMode then

   407 if isDeveloperMode then

   408 begin

   408 begin

   409 Pathz[ptCurrTheme]:= Pathz[ptThemes] + '/' + s;

   409 Pathz[ptCurrTheme]:= Pathz[ptThemes] + '/' + s;

   410 InitStepsFlags:= InitStepsFlags or cifTheme

   411 InitStepsFlags:= InitStepsFlags or cifTheme

   411 end

   412 end

   412 end;

   413 end;

   413 

   414 

   414 procedure chSetSeed(var s: shortstring);

   415 procedure chSetSeed(var s: shortstring);