procedure e_DrawFill(ID: DWORD; X, Y: Integer; XCount, YCount: Word; Alpha: Integer;
AlphaChannel: Boolean; Blending: Boolean);
var
- X2, Y2, dx, dy, w, h: Integer;
+ X2, Y2, dx, w, h: Integer;
u, v: Single;
begin
glColor4ub(e_Colors.R, e_Colors.G, e_Colors.B, 255);
procedure e_RestoreGLContext();
var
- GLID: GLuint;
+ //GLID: GLuint;
i: Integer;
begin
e_WriteLog('Restoring GL context:', MSG_NOTIFY);
flag: Boolean;
wTitle: PChar = nil;
wNeedTimeReset: Boolean = False;
- wWindowCreated: Boolean = False;
+ //wWindowCreated: Boolean = False;
//wCursorShown: Boolean = False;
wMinimized: Boolean = False;
//wNeedFree: Boolean = True;
if h_GL <> nil then SDL_GL_DeleteContext(h_GL);
h_Wnd := nil;
h_GL := nil;
- wWindowCreated := False;
+ //wWindowCreated := False;
end;
function CreateGLWindow(Title: PChar): Boolean;
h_Gl := SDL_GL_CreateContext(h_Wnd);
if h_Gl = nil then Exit;
-
- wWindowCreated := True;
+
+ //wWindowCreated := True;
e_ResizeWindow(gScreenWidth, gScreenHeight);
e_InitGL();