1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
{ %fail } Type GLEnum = longint; tShader=Record TexturesUsed:Longint; Primitive:GLenum; Blended:Boolean; BlendSrc:GLenum; BlendDst:GLenum; ShaderName:String; End; Const EmptyShader:tShader=( TexturesUsed:-1; Primitive:0; Blended:False; BlendSrc:0; BlendDst:0; Tag:''); begin end.