changeset 6380 | 1ff5ad1d771b |
parent 5654 | 1cb68f420aa6 |
child 6382 | 0e76c5cd4250 |
6379:ef4288298e57 | 6380:1ff5ad1d771b |
---|---|
141 begin |
141 begin |
142 for x:= 0 to LANDTEXARW -1 do |
142 for x:= 0 to LANDTEXARW -1 do |
143 for y:= 0 to LANDTEXARH - 1 do |
143 for y:= 0 to LANDTEXARH - 1 do |
144 with LandTextures[x, y] do |
144 with LandTextures[x, y] do |
145 begin |
145 begin |
146 if tex <> nil then FreeTexture(tex); |
146 FreeTexture(tex); |
147 tex:= nil; |
147 tex:= nil; |
148 end; |
148 end; |
149 end; |
149 end; |
150 |
150 |
151 procedure freeModule; |
151 procedure freeModule; |