equal
deleted
inserted
replaced
729 end; |
729 end; |
730 |
730 |
731 s:= cPathz[ptCurrTheme] + '/' + cThemeCFGFilename; |
731 s:= cPathz[ptCurrTheme] + '/' + cThemeCFGFilename; |
732 WriteLnToConsole('Reading objects info...'); |
732 WriteLnToConsole('Reading objects info...'); |
733 f:= pfsOpenRead(s); |
733 f:= pfsOpenRead(s); |
734 if checkFails(f <> nil, 'Bad data or cannot access file ' + s, true) then exit; |
734 if (f = nil) then |
|
735 OutError('Error loading theme. File could not be opened: ' + s, true); |
735 |
736 |
736 ThemeObjects.Count:= 0; |
737 ThemeObjects.Count:= 0; |
737 SprayObjects.Count:= 0; |
738 SprayObjects.Count:= 0; |
738 |
739 |
739 while (not pfsEOF(f)) and allOK do |
740 while (not pfsEOF(f)) and allOK do |