equal
deleted
inserted
replaced
350 |
350 |
351 procedure chSetTheme(var s: shortstring); |
351 procedure chSetTheme(var s: shortstring); |
352 begin |
352 begin |
353 if isDeveloperMode then |
353 if isDeveloperMode then |
354 begin |
354 begin |
355 Pathz[ptThemeCurrent]:= Pathz[ptThemes] + '/' + s; |
355 Pathz[ptCurrTheme]:= Pathz[ptThemes] + '/' + s; |
356 InitStepsFlags:= InitStepsFlags or cifTheme |
356 InitStepsFlags:= InitStepsFlags or cifTheme |
357 end |
357 end |
358 end; |
358 end; |
359 |
359 |
360 procedure chSetSeed(var s: shortstring); |
360 procedure chSetSeed(var s: shortstring); |