else if (aStr = 'GL_GEOMETRY_SHADER') then\r
result := TglcShaderType.stGeometry\r
else if (aStr = 'GL_TESS_CONTROL_SHADER') then\r
result := TglcShaderType.stTessControl\r
else if (aStr = 'GL_TESS_EVALUATION_SHADER') then\r
result := TglcShaderType.stTessEvaluation\r
else if (aStr = 'GL_GEOMETRY_SHADER') then\r
result := TglcShaderType.stGeometry\r
else if (aStr = 'GL_TESS_CONTROL_SHADER') then\r
result := TglcShaderType.stTessControl\r
else if (aStr = 'GL_TESS_EVALUATION_SHADER') then\r
result := TglcShaderType.stTessEvaluation\r