equal
deleted
inserted
replaced
493 end; |
493 end; |
494 |
494 |
495 s:= cPathz[ptCurrTheme] + '/' + cThemeCFGFilename; |
495 s:= cPathz[ptCurrTheme] + '/' + cThemeCFGFilename; |
496 WriteLnToConsole('Reading objects info...'); |
496 WriteLnToConsole('Reading objects info...'); |
497 f:= pfsOpenRead(s); |
497 f:= pfsOpenRead(s); |
498 TryDo(f <> nil, 'Bad data or cannot access file ' + cThemeCFGFilename, true); |
498 TryDo(f <> nil, 'Bad data or cannot access file ' + s, true); |
499 |
499 |
500 ThemeObjects.Count:= 0; |
500 ThemeObjects.Count:= 0; |
501 SprayObjects.Count:= 0; |
501 SprayObjects.Count:= 0; |
502 |
502 |
503 while not pfsEOF(f) do |
503 while not pfsEOF(f) do |