equal
deleted
inserted
replaced
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 Theme:= 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); |