- wglMakeCurrent(FDC, FRC);
- glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
- glMatrixMode(GL_PROJECTION);
- glLoadIdentity;
- glOrtho(0, pnlView.Width, 0, pnlView.Height, 0, -10);
- glMatrixMode(GL_MODELVIEW);
- glLoadIdentity;
- glBegin(GL_QUADS);
- glColor3f(1,0,0); glVertex3f(X_Offset-50, Y_Offset-50, 0);
- glColor3f(0,1,0); glVertex3f(X_Offset+50, Y_Offset-50, 0);
- glColor3f(0,0,1); glVertex3f(X_Offset+50, Y_Offset+50, 0);
- glColor3f(1,1,0); glVertex3f(X_Offset-50, Y_Offset+50, 0);
- glEnd;
- glMatrixMode(GL_PROJECTION);
- glLoadIdentity;
- glOrtho(0, pnlView.Width, pnlView.Height, 0, 0, -10);
- glMatrixMode(GL_MODELVIEW);
- glLoadIdentity;
- glDisable(GL_DEPTH_TEST);
- glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
- glEnable(GL_BLEND);
- // setting color or with glColor
- tsTextColor3f(1, 1, 1);
- // activate large font
- tsFontBind(FFontID);
- // set align to center
- tsSetParameteri(TS_ALIGN, TS_ALIGN_CENTER);
- // draw large Text
- glPushMatrix;
- glTranslatef(pnlView.Width div 2, 50, 0);
- tsTextOutA('Hello World!');
- glPopMatrix;
- glDisable(GL_BLEND);
- glEnable(GL_DEPTH_TEST);
- SwapBuffers(FDC);