function glCreateWnd : Boolean;
var
wndClass : TWndClass; // Window class
dwStyle : DWORD; // Window styles
dwExStyle : DWORD; // Extended window styles
PixelFormat : GLuint; // Settings for the OpenGL rendering
h_Instance : HINST; // Current instance
pfd : TPIXELFORMATDESCRIPTOR; // Settings for the OpenGL window
begin
InitOpenGL;
SCREEN_WIDTH := HeliosSettings.Width;
SCREEN_HEIGHT := HeliosSettings.Height;
AddToConsole('--- Creating Window ---');
h_Instance := GetModuleHandle(nil); //Grab An Instance For Our Window
ZeroMemory(@wndClass, SizeOf(wndClass)); // Clear the window class structure
with wndClass do begin // Set up the window class
style := CS_HREDRAW or // Redraws entire window if length changes
CS_VREDRAW or // Redraws entire window if height changes
CS_OWNDC; // Unique device context for the window
lpfnWndProc := @WndProc; // Set the window procedure to our func WndProc
hInstance := h_Instance;
hCursor := LoadCursor(0, IDC_ARROW);
hIcon := LoadIcon(hInstance, 'MAINICON');
lpszClassName := 'OpenGL';
end;
if (RegisterClass(wndClass) = 0) then begin// Attemp to register the window class
AddToConsole('Failed to register the window class!');
Result := False;
Exit
end;
AddToConsole('Registered Class...');
//ChangeToFullScreen;
// If we are still in fullscreen then
if (HeliosSettings.Fullscreen) then begin
dwStyle := WS_POPUP or // Creates a popup window
WS_CLIPCHILDREN // Doesn't draw within child windows
or WS_CLIPSIBLINGS; // Doesn't draw within sibling windows
dwExStyle := 0; // Top level window
//ShowCursor(false); // Turn of the cursor (gets in the way)
end
else begin
dwStyle := WS_OVERLAPPEDWINDOW or // Creates an overlapping window
WS_CLIPCHILDREN or // Doesn't draw within child windows
WS_CLIPSIBLINGS; // Doesn't draw within sibling windows
dwExStyle := WS_EX_APPWINDOW or // Top level window
WS_EX_WINDOWEDGE; // Border with a raised edge
//ShowCursor(false); // Turn of the cursor (gets in the way)
end;
// Attempt to create the actual window
h_Wnd := CreateWindowEx(dwExStyle, // Extended window styles
'OpenGL', // Class name
WND_TITLE, // Window title (caption)
dwStyle, // Window styles
0, 0, // Window position
HeliosSettings.Width, HeliosSettings.Height, // Size of window
0, // No parent window
0, // No menu
h_Instance, // Instance
nil); // Pass nothing to WM_CREATE
if h_Wnd = 0 then begin
AddToConsole('Unable to create window!');
glKillWnd(False); // Undo all the settings we've changed
Result := False;
Exit;
end;
Loaded := True;
AddToConsole('Window Created...');
AddToConsole('');
AddToConsole('--- Initalizing OpenGL ---');
// Try to get a device context
h_DC := GetDC(h_Wnd);
if (h_DC = 0) then begin
AddToConsole('Unable to get a device context!');
glKillWnd(False);
Result := False;
Exit;
end;
AddToConsole('Got DC...');
// Settings for the OpenGL window
with pfd do begin
nSize := SizeOf(TPIXELFORMATDESCRIPTOR); // Size Of This Pixel Format Descriptor
nVersion := 1; // The version of this data structure
dwFlags := PFD_DRAW_TO_WINDOW // Buffer supports drawing to window
or PFD_SUPPORT_OPENGL // Buffer supports OpenGL drawing
or PFD_DOUBLEBUFFER; // Supports double buffering
iPixelType := PFD_TYPE_RGBA; // RGBA color format
cColorBits := HeliosSettings.PixelDepth; // OpenGL color depth
// cRedBits := 0; // Number of red bitplanes
// cRedShift := 0; // Shift count for red bitplanes
// cGreenBits := 0; // Number of green bitplanes
// cGreenShift := 0; // Shift count for green bitplanes
// cBlueBits := 0; // Number of blue bitplanes
// cBlueShift := 0; // Shift count for blue bitplanes
// cAlphaBits := 0; // Not supported
// cAlphaShift := 0; // Not supported
// cAccumBits := 0; // No accumulation buffer
// cAccumRedBits := 0; // Number of red bits in a-buffer
// cAccumGreenBits := 0; // Number of green bits in a-buffer
// cAccumBlueBits := 0; // Number of blue bits in a-buffer
// cAccumAlphaBits := 0; // Number of alpha bits in a-buffer
cDepthBits := HeliosSettings.TextureDepth; // Specifies the depth of the depth buffer
cStencilBits := HeliosSettings.StencilDepth ; // Turn off stencil buffer
// cAuxBuffers := 0; // Not supported
iLayerType := PFD_MAIN_PLANE; // Ignored
// bReserved := 0; // Number of overlay and underlay planes
// dwLayerMask := 0; // Ignored
// dwVisibleMask := 0; // Transparent color of underlay plane
// dwDamageMask := 0; // Ignored
end;
// Attempts to find the pixel format supported by a device context that is the best match to a given pixel format specification.
PixelFormat := ChoosePixelFormat(h_DC, @pfd);
if (PixelFormat = 0) then begin
AddToConsole('Unable to find a suitable pixel format');
glKillWnd(False);
Result := False;
Exit;
end;
AddToConsole('Pixel Format ' + inttostr(PixelFormat) + ' Chosen');
// Sets the specified device context's pixel format to the format specified by the PixelFormat.
if (not SetPixelFormat(h_DC, PixelFormat, @pfd)) then begin
AddToConsole('Unable to set the pixel format');
glKillWnd(False);
Result := False;
Exit;
end;
AddToConsole('Pixel Format Set...');
// Create a OpenGL rendering context
h_RC := wglCreateContext(h_DC);
if (h_RC = 0) then begin
AddToConsole('Unable to create an OpenGL rendering context');
glKillWnd(False);
Result := False;
Exit;
end;
AddToConsole('OpenGL Rendering Context Created...');
// Makes the specified OpenGL rendering context the calling thread's current rendering context
if (not wglMakeCurrent(h_DC, h_RC)) then begin
AddToConsole('Unable to activate OpenGL rendering context');
glKillWnd(False);
Result := False;
Exit;
end;
ActivateRenderingContext(h_DC, h_RC);
AddToConsole('OpenGL Rendering Context Activated...');
ReadExtensions;
ReadImplementationProperties;
CheckExtensions;
if GL_EXT_compiled_vertex_array then begin
LockingAvailable := true;
// LockArrays := true;
end
else
LockArrays := False;
// Settings to ensure that the window is the topmost window
{ ShowWindow(h_Wnd, SW_SHOW);
SetForegroundWindow(h_Wnd);
SetFocus(h_Wnd); }
// Ensure the OpenGL window is resized properly
glResizeWnd(HeliosSettings.Width, HeliosSettings.Height); // DOV !!!!!
AddToConsole('Finished');
AddToConsole('');
Result := True;
end;
escape1_0023.jpg [230.32 KiB]
)
It now works. I'll test some maps and take a look on speed/rendering issues and give some feedback later.