Skip to content

Commit d7194ca

Browse files
committed
Adding glfw3 Units
This is a start to add glfw3 example and then Vulkan :V
1 parent 00364e7 commit d7194ca

File tree

4 files changed

+5304
-2
lines changed

4 files changed

+5304
-2
lines changed

OpenGL3/OpenGl3.Loader.pas

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -22,15 +22,15 @@
2222
interface
2323

2424
uses
25-
glad_gl, SDL2;
25+
glad_gl, {$IfDef SDL2}SDL2{$EndIf}{$IfDef GLFW3}GLFW3{$EndIf};
2626

2727
function ImGLInit(): Boolean;
2828

2929
implementation
3030

3131
Function GLFuncLoad(proc: PAnsiChar): Pointer;
3232
Begin
33-
Result := SDL_GL_GetProcAddress(proc);
33+
Result := {$IfDef GLFW3}glfwGetProcAddress{$ELSE}SDL_GL_GetProcAddress{$EndIf}(proc);
3434
Assert(Result <> nil, 'couldn''t load ' + proc);
3535
End;
3636

0 commit comments

Comments
 (0)