- var
- ...
- MyTexture: GLuint;
- procedure TForm1.ShowForm(...);
- begin
- ....
- // Init
- ....
- glEnable(GL_TEXTURE_2D);
- LoadTexture('Textur.jpg', MyTexture, False);
- end;
- procedure TForm1.OnIdle(...);
- begin
- Done := False;
- glClear(...);
- glLoadIdentity;
- glTranslatef(0,0,-5);
- glBindTexture(GL_TEXTURE_2D, MyTexture);
- glBegin(GL_QUADS);
- glTexCoord2f(0,0); glVertex3f(-2,-2,0);
- glTexCoord2f(1,0); glVertex3f( 2,-2,0);
- glTexCoord2f(1,1); glVertex3f( 2, 2,0);
- glTexCoord2f(0,1); glVertex3f(-2, 2,0);
- glEnd;
- end;