Unser Texturmanager besteht aus folgenden Prozeduren und Variablen:

* Texture : array of TglBMP

In diesem dynamischen array werden alle geladenen Texturen abgelegt.

* TextureName : THashedStringList

In dieser StringList werden die Texturennamen abgelegt, über die der Texturenmanager später die Texturen im Texturearray addressiert. Hier wird statt einer herkömmlichen TStringList eine THashedStringList verwendet, da diese bei häufigen Suchvorgängen (was bei vielen Texturenwechseln der Fall ist) und besonders bei großen Datenmengen schneller als die herkömmliche TStringList ist.
Hinweis für Nutzer von Delphiversionen < 6:
In diesen Delphiversionen existiert der Typ THashedStringList nicht. Dadruch seid ihr gezwungen doch eine normale TStringList zu verwenden.

* constructor Create

Erstellt und initialisiert den Texturenmanager.

* destructor Destroy

Deinitialisiert und entfernt den Texturenmanager aus dem Speicher.

* procedure AddTexturesInDir(pDirName, pFileMask : String)

Fügt dem Texturenpool alle im Verzeichnis pDirName liegenden Texturen mit der in pFileMask angegebenen Endung hinzu.

* procedure AddTexture(pFileName, pTextureName : String)

Fügt dem Texturenpool die aus der Datei pFileName geladene Textur unter dem Namen pTextureName hinzu.

* procedure BindTexture(pTextureName : String)

Sucht die Textur mit dem Namen pTextureName im Texturenpool und bindet diese an das GL_TEXTURE_2D-Ziel. Wurde die Textur nicht gefunden, wird für das Texturemapping deaktiviert.