X-Git-Url: https://deadsoftware.ru/gitweb?p=d2df-editor.git;a=blobdiff_plain;f=src%2Fengine%2Fe_textures.pas;h=6055678f343d8e55dafc2c24ff518c666d21863b;hp=52a1e9213d77d85ee12d94f93410fd4f13fbe0af;hb=66487b9264a791df057975695339448eb3d7ba2f;hpb=61cdecb5161234a8a05e690e13d1aba82fb8b699

diff --git a/src/engine/e_textures.pas b/src/engine/e_textures.pas
index 52a1e92..6055678 100644
--- a/src/engine/e_textures.pas
+++ b/src/engine/e_textures.pas
@@ -76,8 +76,6 @@ function CreateTexture (var tex: GLTexture; Width, Height, aFormat: Word; pData:
 var
   Texture: GLuint;
   fmt: GLenum;
-  buf: PByte;
-  f, c: Integer;
 begin
   tex.width := Width;
   tex.height := Height;
@@ -216,12 +214,7 @@ end;
 
 function LoadTextureMem (pData: Pointer; dataSize: LongInt; var Texture: GLTexture; var pWidth, pHeight: Word; Fmt: PWord=nil): Boolean;
 var
-  image, ii: PByte;
-  width, height: Integer;
-  imageSize: Integer;
   img: TImageData;
-  x, y: Integer;
-  clr: TColor32Rec;
 begin
   result := false;
   pWidth := 0;
@@ -245,7 +238,6 @@ end;
 function LoadTextureMemEx (pData: Pointer; dataSize: LongInt; var Texture: GLTexture; fX, fY, fWidth, fHeight: Word; Fmt: PWord=nil): Boolean;
 var
   image, ii: PByte;
-  width, height: Integer;
   imageSize: Integer;
   img: TImageData;
   x, y: Integer;