unsigned int GetNearestCorrectSize(unsigned int Size)
{
unsigned int result;
if (Size> 4096) result = 4096;
if (Size<=4096) result = 4096;
if (Size<=2048) result = 2048;
if (Size<=1024) result = 1024;
if (Size<=512) result = 512;
if (Size<=256) result = 256;
if (Size<=128) result = 128;
if (Size<=64) result = 64;
if (Size<=32) result = 32;
if (Size<=16) result = 16;
if (Size<=8) result = 8;
if (Size<=4) result = 4;
if (Size<=2) result = 2;
return result;
}

bool IsCorrectSize(unsigned int Size)
{
return (Size == 2) or (Size == 4) or (Size == 8) or (Size == 16) or (Size == 32) or (Size == 64)
or (Size == 128) or (Size == 256) or (Size == 512) or (Size == 1024) or (Size == 2048) or (Size == 4096);
}

GLuint CreateTexture(unsigned int Width, unsigned int Height, GLenum Format, GLubyte *data)
{
bool NeedResize = not (IsCorrectSize(Width) and IsCorrectSize(Height);
GLubyte *data2;
unsigned int WOld = Width;
unsigned int HOld = Height;
unsigned int Wcur = Width;
unsigned int Hcur = Height;
if (NeedResize)
{
Wcur = GetNearestCorrectSize(Width);
Hcur = GetNearestCorrectSize(Height);

switch (Format)
{
case GL_RGB : data2 = (GLubyte *) malloc(Wcur*Hcur*3);
case GL_RGBA : data2 = (GLubyte *) malloc(Wcur*Hcur*4);
case GL_ALPHA: data2 = (GLubyte *) malloc(Wcur*Hcur);
}

gluScaleImage(Format, WOld, HOld, GL_UNSIGNED_BYTE, data, Wcur, Hcur, GL_UNSIGNED_BYTE, data2);
}
GLuint Texture;
glGenTextures(1, &Texture);
glBindTexture(GL_TEXTURE_2D, Texture);
glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_NEAREST);
glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_NEAREST);
if (!NeedResize) glTexImage2D(GL_TEXTURE_2D, 0, Format, Width, Height, 0, Format, GL_UNSIGNED_BYTE, data);
else glTexImage2D(GL_TEXTURE_2D, 0, Format, Wcur, Hcur, 0, Format, GL_UNSIGNED_BYTE, data2);
return Texture;
}