-
Notifications
You must be signed in to change notification settings - Fork 20
Description
Hi
this simple code compiles ok but crashes when runing , but if i uncomment the lines it works ok
can you please try it on windows 10 64bits & sdl2 64bits & fpc 3.2 64bits
`
{$mode objfpc}
{$apptype gui}
program demo;
uses
sdl2;
var
win : psdl_window;
render: psdl_renderer;
ev : tsdl_event;
done: boolean = false;
begin
//sdl_sethint(sdl_hint_render_driver,'opengl');
sdl_init(sdl_init_video);
win := sdl_createwindow('FPC demo',50,50,320,200,sdl_window_shown {or sdl_window_opengl} );
render := sdl_createrenderer(win,-1,sdl_renderer_accelerated);
while not done do begin
if boolean(sdl_pollevent(@ev)) then
begin
case ev.type_ of
sdl_quitev:begin
done:= true;
end;
end;
end;
sdl_setrenderdrawcolor(render, 32, 38, 42, 255);
sdl_renderclear(render);
sdl_renderpresent(render);
end;
sdl_destroyrenderer(render);
sdl_destroywindow(win);
end.
`