0

我尝试以某种奇怪的方式在 TGLHudSprite 中显示图像......

这是我的尝试..

我有一个材料库和一个hudsprite ......

myMatlib: TGLMaterialLibrary
mySprite: TGLHudSprite

接下来我创建这个对象...

myMatlib:= TGLMaterialLibrary.Create(self);
mySprite:= TGLHudSprite.CreateAsChild(MainScene.Background);
mySprite.Material.MaterialLibrary:= myMatlib;
mySprite.Material.LibMaterialName:= '';
mySprite.position.x:= 512;
mySprite.position.y:= 384;
mySprite.visible:= true;

运行它，逻辑 mySprite 什么也没有显示……现在我添加了一个材质……用这个功能……

function AddMaterial(aMatLib: TGlMaterialLibrary; aFileName, aMaterialName: string):  TGlLibMaterial;
begin
  result := aMatLib.Materials.Add;
  with result do
  begin
    with Material do
    begin         
      MaterialOptions := [moIgnoreFog, moNoLighting];
      Texture.Disabled := false;
      Texture.TextureMode := tmModulate;
      BlendingMode := bmTransparency;
      with FrontProperties do
        begin
          Ambient.SetColor(1, 1, 1, 1);
          Diffuse.SetColor(1, 1, 1, 1);
          Emission.SetColor(1, 1, 1, 1);
          Specular.SetColor(1, 1, 1, 1);
        end;
      Texture.ImageClassName := 'TGLCompositeImage';
      if ExtractFileExt(aFileName) = '' then
        TGLCompositeImage(Texture.Image).LoadFromFile(aFileName + '.png')
      else
        TGLCompositeImage(Texture.Image).LoadFromFile(aFileName);
    end;
    Name := aMaterialName;
  end;
end;

所以我添加了一个材料......

AddMaterial(myMatlib,'c:\pic.png','pic');

然后我在我的hudSprite中设置材料......

mySprite.material.libmaterialname:= 'pic';

目前一切正常...

我想做的事情是释放并再次重新创建我的材料库，添加具有相同名称“pic”的不同材料并将其显示在我的hudsprite中......

所以我做这个....

 FreeAndNil(myMatlib);
 AddMaterial(myMatlib,'c:\spic.png','pic');
 mySprite.material.libmaterialname:= 'pic';

有了这个，我什么也得不到，只有一张黑色的照片......

我做错了什么...？

顺便说一句，在我创建的第二个精灵中正确加载了 bcs 材料，并且没有设置任何其他材料，它正确显示了“图片”...

4

1 回答 1

2

也许你需要再次这样做：mySprite.Material.MaterialLibrary:= myMatlib; mySprite.Material.LibMaterialName:= 'myMaterialName';

于 2013-12-17T20:13:14.503 回答