raylib window context to OpenGLControl (initial code)

[ghost]

• Requirements:
  • GLFW for Free Pascal/Lazarus
  • DLL etc.
• Docs:
  • [core] Very small change allowing external rendering on-top of raylib result (currently impossible) raysan5/raylib#1216

Still working on this, but the rendering happens in the TOpenGLControl on the form.

uses
OpenGLContext, raylib, glfw, Windows;

  TPortFrm = class(TForm)
    OpenGLControl1: TOpenGLControl;
    procedure FormCreate(Sender: TObject);
    procedure OpenGLControl1Paint(Sender: TObject);
  private
    WndContext: pGLFWwindow;
  public

  end;

procedure TPortFrm.FormCreate(Sender: TObject);
begin
  InitWindow(1600, 900, 'port');
  SetTargetFPS(60);
  WndContext:=glfwGetCurrentContext();
  OpenGLControl1.Handle:=HWND(WndContext);
end; 

procedure TPortFrm.OpenGLControl1Paint(Sender: TObject);
begin
  while not WindowShouldClose do begin
    BeginDrawing;
    ClearBackground(RED);
    OpenGLControl1.SwapBuffers;
    EndDrawing;
  end;
end; 

[GuvaCode]

wow. It's very interesting I'll do it today.

[ghost]

wow. It's very interesting I'll do it today.

thanks, appreciate it!

[GuvaCode]

well. I tried without glfw. I got the handle by means of raylib itself. but under gtk2 it all crashes. there is an idea to wrap it all in streams.

[ghost]

well. I tried without glfw. I got the handle by means of raylib itself. but under gtk2 it all crashes. there is an idea to wrap it all in streams.

i can test your implemenations on Windows, whenever you're ready

[ghost]

my previous OnPaint event led to freezing, so by removing the while loop, it allowed me to keep the form from freezing

procedure TPortFrm.OpenGLControl1Paint(Sender: TObject);
begin
    BeginDrawing;
    ClearBackground(RED);
    EndDrawing;
    OpenGLControl1.SwapBuffers;
end;  

[ghost]

DrawFPS seems to be causing a crash, testing 3D stuff next w/wo rlgl standalone methods

[GuvaCode]

Well, I don't understand what's going wrong. when swapbuffer crashes. gtk2 and qt5

[GuvaCode]

I was only able to call a separate window through a thread. But I've done this before https://github.com/GuvaCode/Ray4LazExample/tree/main/Visual_3d_Camera_in_LCL

[ghost]

I was only able to call a separate window through a thread. But I've done this before https://github.com/GuvaCode/Ray4LazExample/tree/main/Visual_3d_Camera_in_LCL

thanks, maybe your code will do the trick for me, since this looks like a black box.
my wild guess is that the opengl state gets mixed up somewhere along the line

[GuvaCode]

and why do you need output on the lcl context?
now I'm writing a binding for another engine.https://worldsim3d.forumotion.com/t7-worldsim3d-development-roadmap
you can join

[ghost]

and why do you need output on the lcl context? now I'm writing a binding for another engine.https://worldsim3d.forumotion.com/t7-worldsim3d-development-roadmap you can join

mostly for the convienience of it and to see how it would work
for now, i can check out the engine every now and again

[GuvaCode]

can I learn your native language?

[GuvaCode]

Финский ? Или латыш?

[ghost]

well, its finnish (see profile)
so we're neighbouring countries :P
unfortunately i can't speak russian

[GuvaCode]

"unfortunately i can't speak russian " bad. I was really hoping

[ghost]

"unfortunately i can't speak russian " bad. I was really hoping
😂