delphi - GLScene 中的 GLDirectOPenGL

Question

我正在使用 GLScene 并且在使用 GLDirectOPenGL 时遇到问题。我想在场景上画一个三角形，但它只画了三角形的 3 个边缘，不能给三角形上色。如您所见，trinanle 具有我不想要且未着色的点样式。

  procedure TMain.GLDirectOpenGL1Render(Sender: TObject; var rci: TRenderContextInfo);
  begin
     gl.Begin_ (GL_TRIANGLES);
     gl.Color4f ( 1,0,0,1);   gl.Vertex3f( -0.13, 0.16,0.15 );
     gl.Color4f ( 0,0,1,1);   gl.Vertex3f( -0.61, 0.31,0.15 );
     gl.Color4f ( 0,1,0,1);   gl.Vertex3f( -0.5, 0.15,-0.1 );
     gl.End_; 
  end;