Sync With IMGUI v1.91.0

Author: Coldzer0

impl/PasImGui.Backend.SDL2.pas

@@ -417,7 +417,7 @@
 
 // Done
 // Note: native IME will only display if user calls SDL_SetHint(SDL_HINT_IME_SHOW_UI, "1") _before_ SDL_CreateWindow().
-Procedure ImGui_ImplSDL2_SetPlatformImeData(viewport: PImGuiViewport; Data: PImGuiPlatformImeData); Cdecl;
+Procedure ImGui_ImplSDL2_SetPlatformImeData(ctx: PImGuiContext; viewport: PImGuiViewport; data: PImGuiPlatformImeData); Cdecl;
 Var
   r: TSDL_Rect;
 Begin
@@ -617,7 +617,7 @@
   io^.SetClipboardTextFn := @ImGui_ImplSDL2_SetClipboardText;
   io^.GetClipboardTextFn := @ImGui_ImplSDL2_GetClipboardText;
   io^.ClipboardUserData := nil;
-  io^.SetPlatformImeDataFn := @ImGui_ImplSDL2_SetPlatformImeData;
+  io^.PlatformSetImeDataFn := @ImGui_ImplSDL2_SetPlatformImeData;
 
   // Load mouse cursors
   bd^.MouseCursors[ImGuiMouseCursor_Arrow] := SDL_CreateSystemCursor(SDL_SYSTEM_CURSOR_ARROW);
@@ -900,8 +900,7 @@
   io^.DisplaySize := ImVec2.New(Single(w), Single(h));
 
   If (w > 0) And (h > 0) Then
-    io^.DisplayFramebufferScale :=
-      ImVec2.New(Single(display_w) / w, Single(display_h) / h);
+    io^.DisplayFramebufferScale := ImVec2.New(Single(display_w) / w, Single(display_h) / h);
 
   // Update monitors
   If bd^.WantUpdateMonitors Then

impl/PasImGui.Renderer.OpenGL3.pas

@@ -89,6 +89,7 @@
     ElementsHandle: GLuint;
     VertexBufferSize: GLsizeiptr;
     IndexBufferSize: GLsizeiptr;
+    HasPolygonMode : Boolean;
     HasClipOrigin: Boolean;
     UseBufferSubData: Boolean;
   End;
@@ -612,8 +613,7 @@ function ImGui_OpenGL3_Init(glsl_version: PAnsiChar): Boolean;
   If (bd^.GlVersion >= 320) Then
     glGetIntegerv(GL_CONTEXT_PROFILE_MASK, @bd^.GlProfileMask);
 
-  bd^.GlProfileIsCompat := (bd^.GlProfileMask And
-    GL_CONTEXT_COMPATIBILITY_PROFILE_BIT) <> 0;
+  bd^.GlProfileIsCompat := (bd^.GlProfileMask And GL_CONTEXT_COMPATIBILITY_PROFILE_BIT) <> 0;
 
   {$IfDef IMGUI_OPENGL_ES3}
     bd^.GlProfileIsES3 := true;
@@ -946,15 +946,13 @@ function ImGui_ImplOpenGL3_CreateDeviceObjects : Boolean;
   end;
 
   // Create shaders
-  vertex_shader_with_version[0] := @bd^.GlslVersionString[0];
-  vertex_shader_with_version[1] := vertex_shader;
+  vertex_shader_with_version := [@bd^.GlslVersionString[0], vertex_shader];
   vert_handle := glCreateShader(GL_VERTEX_SHADER);
   glShaderSource(vert_handle, 2, @vertex_shader_with_version, nil);
   glCompileShader(vert_handle);
   CheckShader(vert_handle, 'vertex shader');
 
-  fragment_shader_with_version[0] := @bd^.GlslVersionString[0];
-  fragment_shader_with_version[1] := fragment_shader;
+  fragment_shader_with_version := [@bd^.GlslVersionString[0], fragment_shader];
   frag_handle := glCreateShader(GL_FRAGMENT_SHADER);
   glShaderSource(frag_handle, 2, @fragment_shader_with_version, nil);
   glCompileShader(frag_handle);
@@ -999,10 +997,12 @@ procedure ImGui_OpenGL3_NewFrame;
   bd: PImGui_ImplOpenGL3_Data;
 Begin
   bd := ImGui_ImplOpenGL3_GetBackendData();
-  Assert(bd <> nil, 'Did you call ImGui_ImplOpenGL3_Init()?');
+  Assert(bd <> nil, 'Context or backend not initialized! Did you call ImGui_OpenGL3_Init()?');
 
   if (bd^.ShaderHandle = 0) then
       ImGui_ImplOpenGL3_CreateDeviceObjects();
+  if (bd^.FontTexture = 0)then
+      ImGui_ImplOpenGL3_CreateFontsTexture();
 End;
 
 procedure ImGui_ImplOpenGL3_ShutdownPlatformInterface();

libs/static/linux64/libcimgui.a

@@ -1,4 +1,7 @@
 
+{ImFontGlyph}
+
+
 {ImFontGlyph}
 
 function ImFontGlyph.GetData0Value(const AIndex: Integer): Cardinal;
@@ -21,6 +24,28 @@ begin
   Data0 := (Data0 and (not (Mask shl Offset))) or (AValue shl Offset);
 end;
 
+{ImGuiBoxSelectState}
+
+function ImGuiBoxSelectState.GetData0Value(const AIndex: Integer): Cardinal;
+var
+  BitCount, Offset, Mask: Cardinal;
+begin
+  BitCount := AIndex and $FF;
+  Offset := AIndex shr 8;
+  Mask := ((1 shl BitCount) - 1);
+  Result := (Data0 shr Offset) and Mask;
+end;
+
+procedure ImGuiBoxSelectState.SetData0Value(const AIndex: Integer; const AValue: Cardinal);
+var
+  BitCount, Offset, Mask: Cardinal;
+begin
+  BitCount := AIndex and $FF;
+  Offset := AIndex shr 8;
+  Mask := ((1 shl BitCount) - 1);
+  Data0 := (Data0 and (not (Mask shl Offset))) or (AValue shl Offset);
+end;
+
 {ImGuiDockNode}
 
 function ImGuiDockNode.GetData0Value(const AIndex: Integer): Cardinal;