equal
deleted
inserted
replaced
408 Close(f); |
408 Close(f); |
409 {$I+} |
409 {$I+} |
410 TryDo(IOResult = 0, 'Bad data or cannot access file ' + cThemeCFGFilename, true) |
410 TryDo(IOResult = 0, 'Bad data or cannot access file ' + cThemeCFGFilename, true) |
411 end; |
411 end; |
412 |
412 |
413 procedure AddThemeObjects(Surface: PSDL_Surface; var ThemeObjects: TThemeObjects; MaxCount: LongInt); |
413 procedure AddThemeObjects(var ThemeObjects: TThemeObjects; MaxCount: LongInt); |
414 var i, ii, t: LongInt; |
414 var i, ii, t: LongInt; |
415 b: boolean; |
415 b: boolean; |
416 begin |
416 begin |
417 if ThemeObjects.Count = 0 then exit; |
417 if ThemeObjects.Count = 0 then exit; |
418 WriteLnToConsole('Adding theme objects...'); |
418 WriteLnToConsole('Adding theme objects...'); |
457 AddGirder(768); |
457 AddGirder(768); |
458 AddGirder(1024); |
458 AddGirder(1024); |
459 AddGirder(1280); |
459 AddGirder(1280); |
460 AddGirder(1536); |
460 AddGirder(1536); |
461 AddGirder(1792); |
461 AddGirder(1792); |
462 {AddThemeObjects(Surface, ThemeObjects, 8); |
462 AddThemeObjects(ThemeObjects, 8); |
463 AddProgress; |
463 AddProgress; |
464 SDL_UpperBlit(InSurface, nil, Surface, nil); |
464 {SDL_UpperBlit(InSurface, nil, Surface, nil); |
465 AddSprayObjects(Surface, SprayObjects, 10); |
465 AddSprayObjects(Surface, SprayObjects, 10);} |
466 FreeRects} |
466 FreeRects |
467 end; |
467 end; |
468 |
468 |
469 procedure LoadThemeConfig; |
469 procedure LoadThemeConfig; |
470 begin |
470 begin |
471 ReadThemeInfo(ThemeObjects, SprayObjects) |
471 ReadThemeInfo(ThemeObjects, SprayObjects) |