(test)

SunSerega · Oct 17, 2023 · ac91f49 · ac91f49
1 parent 50662ec
commit ac91f49
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/Samples/OpenGLABC/Common.pas b/Samples/OpenGLABC/Common.pas
@@ -1,4 +1,5 @@
 unit Common;
+{$savepcu false}
 
 uses System;
 uses OpenGL;

diff --git a/Samples/OpenGLABC/Точки на поле/Точки.td b/Samples/OpenGLABC/Точки на поле/Точки.td
@@ -20,13 +20,19 @@ OpenGL.$delegate? = procedure(program: gl_program)
 OpenGL.$delegate? = procedure(program: gl_program)
 OpenGL.$delegate? = procedure(program: gl_program)
 OpenGL.$delegate? = procedure(program: gl_program; bufSize: integer; length: System.IntPtr; infoLog: System.IntPtr)
+OpenGL.$delegate? = procedure(program: gl_program; bufSize: integer; var length: integer; infoLog: System.IntPtr)
+OpenGL.$delegate? = procedure(program: gl_program; pname: glProgramProperty; params: System.IntPtr)
 OpenGL.$delegate? = procedure(program: gl_program; pname: glProgramProperty; var params: integer)
 OpenGL.$delegate? = procedure(program: gl_program; shader: gl_shader)
 OpenGL.$delegate? = procedure(shader: gl_shader)
 OpenGL.$delegate? = procedure(shader: gl_shader)
 OpenGL.$delegate? = procedure(shader: gl_shader; bufSize: integer; length: System.IntPtr; infoLog: System.IntPtr)
+OpenGL.$delegate? = procedure(shader: gl_shader; bufSize: integer; var length: integer; infoLog: System.IntPtr)
+OpenGL.$delegate? = procedure(shader: gl_shader; count: integer; string: Void*; length: System.IntPtr)
 OpenGL.$delegate? = procedure(shader: gl_shader; count: integer; string: Void*; var length: integer)
+OpenGL.$delegate? = procedure(shader: gl_shader; count: integer; var string: System.IntPtr; length: System.IntPtr)
 OpenGL.$delegate? = procedure(shader: gl_shader; count: integer; var string: System.IntPtr; var length: integer)
+OpenGL.$delegate? = procedure(shader: gl_shader; pname: glShaderParameterName; params: System.IntPtr)
 OpenGL.$delegate? = procedure(shader: gl_shader; pname: glShaderParameterName; var params: integer)
 OpenGL.$delegate? = procedure(target: glBufferTarget; index: longword; buffer: gl_buffer)
 OpenGL.$delegate? = procedure(x: integer; y: integer; width: integer; height: integer)