update SDL2 Demo

+ Locking FPS

Author: Coldzer0

PasImGui_SDL2_OpenGL3_Demo/ImGui_SDL2_OpenGL3_Demo.dpr

@@ -14,7 +14,7 @@
 
 Program ImGui_SDL2_OpenGL3_Demo;
 {$IFDEF FPC}
-  {$mode objfpc}{$H+}{$J-}
+  {$mode Delphi}{$H+}{$J-}
   {$Optimization FASTMATH}
 {$ENDIF}
 {$IfDef LINUX}
@@ -38,7 +38,7 @@ Uses
   cmem,
   {$ENDIF}
   Math,
-  SysUtils,
+  SysUtils, ctypes,
   sdl2,
   glad_gl,
   PasImGui,
@@ -48,6 +48,8 @@ Uses
   PasImGui.Renderer.OpenGL3,
   TestWindow, CustomNodeGraph;
 
+  { TODO: Test with LIBGL_ALWAYS_SOFTWARE - Time : 9/23/2024 4:34:43 PM }
+
 Var
   counter: Integer;
   ShowPascalDemoWindow: Boolean = False;
@@ -82,7 +84,7 @@ Var
   var
     i: Integer;
   begin
-    if not ImGui.Begin_('ImPlot Pascal Demo') then
+    if not ImGui.Begin_('ImPlot Pascal Demo', nil, ImGuiWindowFlags_NoDocking) then
     begin
       ImGui.End_();
       exit;
@@ -308,7 +310,11 @@ Var
     end;
     Result := 1;
   end;
-
+var
+  FrameRate : Single = 60.0; // Default to 60 FPS
+  elapsedMS : Single;
+  SleepTime : Integer;
+  Starting_tick: Cuint64;
 Begin
   { TODO: This is here for testing - Remove this later :V }
   //DeleteFile('MyApp.ini');
@@ -341,7 +347,7 @@ Begin
   SDL_GL_SetAttribute(SDL_GL_CONTEXT_FLAGS, 0);
   SDL_GL_SetAttribute(SDL_GL_CONTEXT_PROFILE_MASK, SDL_GL_CONTEXT_PROFILE_CORE);
   SDL_GL_SetAttribute(SDL_GL_CONTEXT_MAJOR_VERSION, 3);
-  SDL_GL_SetAttribute(SDL_GL_CONTEXT_MINOR_VERSION, 0);
+  SDL_GL_SetAttribute(SDL_GL_CONTEXT_MINOR_VERSION, 2);
   {$EndIf}
 
   // From 2.0.18: Enable native IME.
@@ -418,7 +424,7 @@ Begin
   // Load Fonts
   //IO^.Fonts^.AddFontDefault();
   IO^.Fonts^.AddFontFromFileTTF('fonts/DroidSans.ttf', 25.0);
-  IO^.Fonts^.AddFontFromFileTTF('fonts/JetBrainsMonoNerdFontPropo-Italic.ttf ', 28.0);
+  //IO^.Fonts^.AddFontFromFileTTF('fonts/JetBrainsMonoNerdFontPropo-Italic.ttf ', 28.0);
 
   // Background Color
   clearColor.x := 0.45;
@@ -433,6 +439,7 @@ Begin
   SDL_SetEventFilter(@window_redraw_on_resize, nil);
   While Not quit Do
   Begin
+    starting_tick := SDL_GetPerformanceCounter();
     //handle input
     While SDL_PollEvent(@e) <> 0 Do
     Begin
@@ -443,8 +450,17 @@ Begin
         (e.window.windowID = SDL_GetWindowID(window)) Then
         quit := True;
     End;
-
     DrawGUI();
+
+    // Locaked Frame Rate
+    if FrameRate > 0 then
+    begin
+      elapsedMS := Single(SDL_GetPerformanceCounter() - starting_tick) / Single(SDL_GetPerformanceFrequency()) * 1000.0;
+      SleepTime := Floor((1000.0 / FrameRate) - elapsedMS);
+      if SleepTime <= 0 then
+        SleepTime := 0;
+      SDL_Delay(SleepTime);
+    end;
   End;
   testwin.Free;
 

PasImGui_SDL2_OpenGL3_Demo/ImGui_SDL2_OpenGL3_Demo.lpi

@@ -25,7 +25,7 @@
       <UseVersionInfo Value="True"/>
       <MajorVersionNr Value="1"/>
     </VersionInfo>
-    <BuildModes Count="6">
+    <BuildModes Count="7">
       <Item1 Name="Default" Default="True"/>
       <Item2 Name="Debug_windows_32">
         <CompilerOptions>
@@ -152,15 +152,15 @@
           </SearchPaths>
           <CodeGeneration>
             <SmartLinkUnit Value="True"/>
-            <TargetProcessor Value="COREAVX2"/>
+            <TargetCPU Value="x86_64"/>
+            <TargetOS Value="win64"/>
             <Optimizations>
               <OptimizationLevel Value="3"/>
             </Optimizations>
           </CodeGeneration>
           <Linking>
             <Debugging>
-              <GenerateDebugInfo Value="False"/>
-              <RunWithoutDebug Value="True"/>
+              <DebugInfoType Value="dsDwarf3"/>
             </Debugging>
             <LinkSmart Value="True"/>
             <Options>
@@ -201,11 +201,38 @@
           </Linking>
         </CompilerOptions>
       </Item6>
-      <SharedMatrixOptions Count="4">
-        <Item1 ID="825586496411" Value="-Xm"/>
-        <Item2 ID="187403506791" Modes="Release_windows_64,Release_linux_64,Release_windows_32" Value="-CfAVX -CpCOREAVX -OpCOREAVX"/>
-        <Item3 ID="940053534749" Value="-FWtwpo4-1.wpo -OWall"/>
-        <Item4 ID="883228556756" Modes="Release_windows_64,Debug_windows_64,Release_windows_32,Release_linux_64,Debug_windows_32" Value="-dSDL2"/>
+      <Item7 Name="Debug_linux_64">
+        <CompilerOptions>
+          <Version Value="11"/>
+          <PathDelim Value="\"/>
+          <Target>
+            <Filename Value=".\Linux64\ImGui_SDL2_OpenGL3_Demo"/>
+          </Target>
+          <SearchPaths>
+            <IncludeFiles Value="$(ProjOutDir);..\src"/>
+            <Libraries Value="..\libs\static\linux64"/>
+            <OtherUnitFiles Value="..\src;..\impl;..\OpenGL3;..\SDL2-for-Pascal\units;..\examples"/>
+            <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
+          </SearchPaths>
+          <CodeGeneration>
+            <TargetCPU Value="x86_64"/>
+            <TargetOS Value="linux"/>
+            <Optimizations>
+              <OptimizationLevel Value="0"/>
+            </Optimizations>
+          </CodeGeneration>
+          <Linking>
+            <Debugging>
+              <RunWithoutDebug Value="True"/>
+              <DebugInfoType Value="dsDwarf3"/>
+              <UseExternalDbgSyms Value="True"/>
+            </Debugging>
+          </Linking>
+        </CompilerOptions>
+      </Item7>
+      <SharedMatrixOptions Count="2">
+        <Item1 ID="731975208417" Modes="Debug_windows_64,Release_windows_64,Release_windows_32,Debug_windows_32,Debug_linux_64,Release_linux_64" Value="-CfAVX2 -CpCOREAVX2 -OpCOREAVX2 -OoFASTMATH"/>
+        <Item2 ID="883228556756" Modes="Release_windows_64,Debug_windows_64,Release_windows_32,Release_linux_64,Debug_windows_32,Debug_linux_64" Value="-dSDL2"/>
       </SharedMatrixOptions>
     </BuildModes>
     <PublishOptions>