- Tloader = Class(TThread)
- fData: ... ;
- fWidth, fHeight: ... ;
- protected
- proccedure Execute; override; // die hat normal nichts im public zu suchen
- end;
- Procedure Tloader.Execute;
- var
- bmp: TBitmap;
- begin
- // Bild laden
- // Daten aus Bitmap in internen Speicher kopieren, Größen (fWidth, fHeight) setzen
- // Bitmap kann und sollte hier schon wieder frei gegeben werden.
- // Synchronize aufrufen und Textur erstellen
- // Daten Freigeben
- end;