eine TGLFreeForm mit Texturen belegen..

[Corpsman]

Hi,

Ich habe mir das Glscene runtergeladen und dachte ich bastle mir ein kleines Spiel damit.

Nur leider schaffe ich es noch nicht mal meine 3ds File zu laden und mit einer Textur zu belegen.

Laut Faq von Glscene.org fehlt mir noch irgend so ein Koordinaten Ding, aber das Blick ich net, was die meinen.

Ich habe mal folgenden Code zusammengeschustert.

Delphi-Quellcode:

Procedure TForm1.FormCreate(Sender: TObject);
Var
  bmp: TBitmap;
Begin
  GLFreeForm1.LoadFromFile(extractfilepath(application.exename) + '\Kugel1.3ds');
  bmp := Tbitmap.create;
  bmp.PixelFormat := pf24bit;
  bmp.LoadFromFile(extractfilepath(application.exename) + '\Ball_Paper.bmp');
  GLMaterialLibrary1.AddTextureMaterial('ball', bmp);
  bmp.free;
  GLFreeForm1.MaterialLibrary := GLMaterialLibrary1;
  GLFreeForm1.Material.LibMaterialName := 'ball';
End;

Ich kann nun auf meinem Formular wunderbar eine Graue Kugel sehen. Aber sie wird eben nicht Bunt bzw mit der Textur aus dem Bitmap belegt.

Weis jemand was ich falsch gemacht habe ?

[user0]

Versuch´s mal mit
GLFreeForm1.Material.Texture.Image.LoadFromFile('Dateiname.bmp');

[Corpsman]

Lol,

Thx, aber die Frage hat sich mittlerweile schon längst erledigt.

Das Game ist ja auch schon Online ( www.Balanced.de.vu ).

Ich mache das übrigens ohne GLscene.

wenn man sich die Theorie rein Zieht dann ist das mit den normalen Befehlen viel einfacher als mit GLscene. ( und man hat dann auch gleich viel mehr möglichkeiten ).