GLScene - Texturen

[Meatsaw]

hallo forum!

hab schon einige zeit nach einer lösung für mein problem gesucht, aber nirgends ne antwort gefunden.

das problem ist das einfügen von texturen auf ein tglfreeform. hier mal der code:

Delphi-Quellcode:

lObj1 := TGLFreeForm(GLScene.Objects.AddNewChild(TGLFreeForm));
lCol := TGLBCollision.Create(lObj1.Behaviours);
lCol.Manager := CollisionManager;
with lObj1 do
begin
  Position := GLDummyCube.Position;
  LoadFromFile('.\SpikesTex.ms3d');
  Scale.Scale(0.06);
  Material.Texture.Image.LoadFromFile('.\SpikesTex.tga');
  Material.Texture.Disabled := False;
  Name := 'Spikes' + IntToStr(gCount.Spikes);
end;

es wird zwar etwas über das objekt gelegt, aber wenn es die textur ist dann ist sie schwarz.
das dubiose an der sache ist das es schon funktioniert hat (auch ohne materiallibrary) aber nun nicht mehr funzen will. hab schon versucht zu testen unter welchen umständen es funzt und wann nicht, aber so langsam (nach ein paar tagen) hab ich die geduld verloren :wall:

hoffe das mir von euch jemand helfen kann.

mfg

meat

[turboPASCAL]

Hi,

nur mal so ins blaue, prüfe mal ob dein TGA einen Alphachanel hat.
Mit so etwas hat GLScene Probleme, dieser muss extra geladen werden.

[Meatsaw]

hab ersatzweise mal ein jpeg genommen, damit besteht das selbe problem. hab aber gemerkt dass, wenn ich ein zweites objekt mit dem gleichen name erstellen will und das eine fehlermeldung verursacht, die textur nach dem wegklicken der fehlermeldung richtig angezeigt wird :gruebel:
kann sich da jemand nen reim drauf machen? also ich nicht...

mfg meat

ps: wie prüfe ich den alphachannel?