- procedure TForm1.Draw;
- begin
- glTranslatef(0, 0, -10);
- tsTextColor3f(1, 0, 0);
- tsFontBind(fLargeFontID);
- tsSetParameteri(TS_ALIGN, TS_ALIGN_CENTER);
- glPushMatrix;
- glTranslatef(ClientWidth div 2, 0, 0);
- tsTextOutA('Testzeile! Hier steht ein Testtext');
- glPopMatrix;
- end;