As Yet Unnamed Entry - RTS against 'the empire'

[Jimmy Valavanis]

You can change VSYNC with wglSwapIntervalEXT() {Windows/using dglOpengl.pas}, I don't know if this help :


At first call Read_WGL_EXT_swap_control();

Then you can adjust VSYNC with

type
  TVSyncMode = (vsmSync, vsmNoSync);

procedure Sync(vsync: TVSyncMode);
var
   i : Integer;
begin
   if WGL_EXT_swap_control then
   begin
      i := wglGetSwapIntervalEXT;
      case VSync of
         vsmSync    : if i<>1 then wglSwapIntervalEXT(1);
         vsmNoSync  : if i<>0 then wglSwapIntervalEXT(0);
      else
         Assert(False);
      end;
   end;

end;