445 

   445 

   446 procedure chSetMap(var s: shortstring);

   446 procedure chSetMap(var s: shortstring);

   447 begin

   447 begin

   448 if isDeveloperMode then

   448 if isDeveloperMode then

   449 begin

   449 begin

   450 Pathz[ptMapCurrent]:= Pathz[ptMaps] + '/' + s;

   451 Pathz[ptMapCurrent]:= Pathz[ptMaps] + '/' + s;

   451 InitStepsFlags:= InitStepsFlags or cifMap

   452 InitStepsFlags:= InitStepsFlags or cifMap

   452 end

   453 end

   453 end;

   454 end;

   454 

   455 

   455 procedure chSetTheme(var s: shortstring);

   456 procedure chSetTheme(var s: shortstring);

   456 begin

   457 begin

   457 if isDeveloperMode then

   458 if isDeveloperMode then

   458 begin

   459 begin

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

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

   460 Theme:= s;

   462 Theme:= s;

   461 InitStepsFlags:= InitStepsFlags or cifTheme

   463 InitStepsFlags:= InitStepsFlags or cifTheme

   462 end

   464 end

   463 end;

   465 end;