Dear DelphiGL community.
  Can you help me with one TextSuite problem (http://www.dev-center.de/projects/textsuite). This tool is easy to implement but when I call text drawings, my whole 3D models (created before and after) dissapears. I can see only text generated by TextSuite but background is black all over the screen. But Camera movement and rotation works.
  I will try to type out my OpenGL code below:
 
 Code:   
 > START OF THE RENDERING     if (CanvasWidth <> Canvas.ClientWidth) or (CanvasHeight <> Canvas.ClientHeight) then ReCreate;    ActivateRenderingContext(DC, RC);     SetAntiAliasing;   // ON   SetBlend;           // ON   SetDepthTest;     // ON   SetFaceCulling;   // ON   SetLights;          // ON   SetFog;             // OFF     glClearColor(r, g, b, w); // BLACK COLOR   glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);      glLoadIdentity;     // CAMERA   gluLookAt(CameraPosX, CameraPosY, CameraPosZ, CameraPosX + CameraViewX, CameraPosY + CameraViewY, CameraPosZ + CameraViewZ, CameraUpX, CameraUpY, CameraUpZ);     // SCENE   glRotatef(RotateZ, 0.0, 0.0, 1.0);   glRotatef(RotateY, 0.0, 1.0, 0.0);   glRotatef(RotateX, 1.0, 0.0, 0.0);   glTranslatef(TranslateX, TranslateY, TranslateZ);   glScalef(ScaleX, ScaleY, ScaleZ);     // SAVE FOR LONGER USE   glGetDoublev(GL_PROJECTION_MATRIX, @ProjectionMatrix);   glGetDoublev(GL_MODELVIEW_MATRIX, @ModelViewMatrix);   glGetIntegerv(GL_VIEWPORT, @ViewPortMatrix);   
 > DRAWINGS SOME 3D OBJECTS     //DRAWINGS TEXTSUITE TEXT   tsTextColor3f(r, g, b); // RED COLOR   glDisable(GL_LIGHTING);   glPushMatrix;   glTranslatef(v.X, v.Y, v.Z);   tsTextOutW(PWideChar(WideString(text)));   glPopMatrix;   glEnable(GL_LIGHTING);   
 > DRAWINGS SOME 3D OBJECTS     SwapBuffers(DC);   
 > END OF THE RENDERING     
 
  Thanks for help! SpaM
		
		 |