equal
deleted
inserted
replaced
516 FreeRects |
516 FreeRects |
517 end; |
517 end; |
518 |
518 |
519 procedure LoadThemeConfig; |
519 procedure LoadThemeConfig; |
520 begin |
520 begin |
521 ReadThemeInfo(ThemeObjects, SprayObjects) |
521 ReadThemeInfo(ThemeObjects, SprayObjects) |
522 end; |
522 end; |
523 |
523 |
524 procedure FreeLandObjects(); |
524 procedure FreeLandObjects(); |
525 var i: Longword; |
525 var i: Longword; |
526 begin |
526 begin |
527 for i:= 0 to Pred(MAXTHEMEOBJECTS) do |
527 for i:= 0 to Pred(MAXTHEMEOBJECTS) do |
528 if ThemeObjects.objs[i].Surf <> nil then |
528 begin |
529 SDL_FreeSurface(ThemeObjects.objs[i].Surf); |
529 if ThemeObjects.objs[i].Surf <> nil then |
530 for i:= 0 to Pred(MAXTHEMEOBJECTS) do |
530 SDL_FreeSurface(ThemeObjects.objs[i].Surf); |
531 if SprayObjects.objs[i].Surf <> nil then |
531 if SprayObjects.objs[i].Surf <> nil then |
532 SDL_FreeSurface(SprayObjects.objs[i].Surf); |
532 SDL_FreeSurface(SprayObjects.objs[i].Surf); |
|
533 end; |
533 end; |
534 end; |
534 |
535 |
535 end. |
536 end. |