|
@@ -1381,7 +1381,6 @@ end;
|
|
|
procedure TVectorOriginal.DiscardUnusedTextures;
|
|
procedure TVectorOriginal.DiscardUnusedTextures;
|
|
|
var
|
|
var
|
|
|
i, j: Integer;
|
|
i, j: Integer;
|
|
|
- f: TVectorShapeFields;
|
|
|
|
|
texs: array Of TBGRABitmap;
|
|
texs: array Of TBGRABitmap;
|
|
|
begin
|
|
begin
|
|
|
for i := 0 to FTextureCount-1 do
|
|
for i := 0 to FTextureCount-1 do
|
Unknown