raylib lazarus issue

[runtimeninja]

posted this on GitHub, but i'm able to expand on this here:

https://github.com/GuvaCode/Ray4Laz/issues/19

i get a 3d grid in a glfw window but when casting the handle to TOpenGLControl and calling the raylib methods in OpenGLControl1Paint i only see the red background.

is this even possible, what i'm attempting here?

code:

Code: Pascal  [Select][+][-]

1. uses
2. OpenGLContext, raylib, glfw, Windows;
3.  
4.   TPortFrm = class(TForm)
5.     OpenGLControl1: TOpenGLControl;
6.     procedure FormCreate(Sender: TObject);
7.     procedure OpenGLControl1Paint(Sender: TObject);
8.   private
9.     WndContext: pGLFWwindow;
10.   public
11.  
12.   end;
13.  
14. procedure TPortFrm.FormCreate(Sender: TObject);
15. begin
16.   InitWindow(1600, 900, 'port');
17.   SetTargetFPS(60);
18.   WndContext:=glfwGetCurrentContext();
19.   OpenGLControl1.Handle:=HWND(WndContext);
20. end;
21.  
22. procedure TPortFrm.OpenGLControl1Paint(Sender: TObject);
23. begin
24.   BeginDrawing;
25.   ClearBackground(RED);
26.   BeginMode3d(cam);
27.   DrawGrid(10, 1.0);
28.   EndMode3D;
29.   OpenGLControl1.SwapBuffers;
30.   EndDrawing;
31. end;
32.