- procedure TFormStart.TexturenErstellen(TexturLink : PAnsiChar);
- begin
- Tex := IMG_Load(TexturLink);
- If assigned(Tex)
- Then begin
- glGenTextures (1, @TexturAnzahl);
- glBindTexture (GL_TEXTURE_2D, TexturAnzahl);
- glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
- glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST);
- glTexImage2D(GL_TEXTURE_2D, 0, 3, Tex^.w, Tex^.h, 0, GL_BGR, GL_UNSIGNED_BYTE, Tex^.pixels);
- SDL_FreeSurface(Tex);
- FormTexturManager.TexturHinzu(TexturLink, TexturLink);
- end
- Else ShowMessage('Textur konnte nicht geladen werden: ' + TexturLink);
- end;