crear MaterialLibrary dinamicamente

[Isuri]

No he puesto ningun código porque el problema es que no se cual es el código correspondiente a la creacion de el MaterialLibrary. no se como explicar mejor mi duda; haber, estoy haciendo un programa en glscene, aqui puedo crear un MaterialLibrary donde dar texturas, color... a cada objeto de mi programa. Ésto, normalmente siempre lo he hecho a traves del object inspector (igual que cuando creas un cadencer o un timer), es decir, lo he creado en tiempo de diseño. Al igual que un cadencer, un timer, un objeto 3D...se puede crear en tiempo de ejecucion, es decir, escribiendo yo el código, quisiera saber cual es el código para crear ese MaterialLibrary. Un ejemplo de codigo para usar el MaterialLibrary (habiendolo creado en tiempo de diseño) es el siguiente:

Código Delphi [-]
Bola.Material.MaterialLibrary := BiblioMateriales;
Bola.Material.LibMaterialName := 'MaterialBola';
BiblioMateriales.Materials[0].Material.Texture.Image.LoadFromFile('imagebola.jpg');
BiBlioMateriales.Materials[0].Material.Texture.Disabled := false;

Con esto consigo dar al objeto bola, el material llamado 'MaterialBola', creado en la biblioMateriales en la posición 0, en tiempo de diseño. Ademas a ese material le asigno una imagen como textura. Lo que quiero saber el es código que me falta antes de eso, es decir, el crear el MaterialLibrary, que supongo será algo asi:

Código Delphi [-]
BiblioMateriales := MaterialLibrary.Create;

Y como ir añadiendo materiales a esa biblioteca.

Espero haber aclarado algo, para que me podais ayudar.

Gracias.

[roman]

Lo que a ti te falta saber es como se crean los objetos en delphi y eso lo puedes buscar en el manual, en el apartado

Programming with Delphi|Using the object model|Creating, instantiating, and destroying objects

// Saludos

[Isuri]

Bueno quiero decir que si se crear y destruir objetos en delphi; lo que no se es que propiedades tengo asignar al MaterialLibrary despues de crearlo.

bueno gracias de todos modos

[roman]

Cuando creas por código un objeto, cualquiera que éste sea, cada una de sus propiedades tendrá un valor por defecto (implícito o explícito) que, por lo general, coincidirá con el que le "asigna" el inspector de objetos cuando lo creas durante el diseño. Un par de excepciones a esto sucede con los componentes (TComponent) y los controles (TControl) ya que tienes que asignar el Owner (en el constructor) y el Parent, pero salvo esto, no debería haber gran diferencia entre crear un objeto por código o en diseño y no tendrías que preocuparte en asignar tales o cuales propiedades.

Entonces, si tú sabes crear objetos y has tenido problemas con éste en particular, deberías decirnos con mayor claridad cuáles son estos problemas, de lo contrario no hay mucho que pueda decirse, a menos claro, que llegue alguien que haya trabajado con GlScene y sepa de algún problema específico.

// Saludos

[rgstuamigo]

Empezado por Isuri

No he puesto ningun código porque el problema es que no se cual es el código correspondiente a la creacion de el MaterialLibrary. no se como explicar mejor mi duda; haber, estoy haciendo un programa en glscene, aqui puedo crear un MaterialLibrary donde dar texturas, color... a cada objeto de mi programa. Ésto, normalmente siempre lo he hecho a traves del object inspector (igual que cuando creas un cadencer o un timer), es decir, lo he creado en tiempo de diseño. Al igual que un cadencer, un timer, un objeto 3D...se puede crear en tiempo de ejecucion, es decir, escribiendo yo el código, quisiera saber cual es el código para crear ese MaterialLibrary. Un ejemplo de codigo para usar el MaterialLibrary (habiendolo creado en tiempo de diseño) es el siguiente:

Código Delphi [-]Bola.Material.MaterialLibrary := BiblioMateriales; Bola.Material.LibMaterialName := 'MaterialBola'; BiblioMateriales.Materials[0].Material.Texture.Image.LoadFromFile('imagebola.jpg'); BiBlioMateriales.Materials[0].Material.Texture.Disabled := false;


Con esto consigo dar al objeto bola, el material llamado 'MaterialBola', creado en la biblioMateriales en la posición 0, en tiempo de diseño. Ademas a ese material le asigno una imagen como textura. Lo que quiero saber el es código que me falta antes de eso, es decir, el crear el MaterialLibrary, que supongo será algo asi:

Código Delphi [-]BiblioMateriales := MaterialLibrary.Create;


Y como ir añadiendo materiales a esa biblioteca.

Espero haber aclarado algo, para que me podais ayudar.

Gracias.

Pues creo que debes ejecutar ese codigo que has puesto en tiempo de ejecucion y nada mas,podrias ponerlo dentro del evento de un boton,etc...algo asi:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
//claro que tu objeto Bola ya debe estar creado
//en todo caso tu mismo dijiste que sabias crearlo
//lo podrias hacer aqui
Bola.Material.MaterialLibrary := BiblioMateriales;
Bola.Material.LibMaterialName := 'MaterialBola';
BiblioMateriales.Materials[0].Material.Texture.Image.LoadFromFile('imagebola.jpg');
BiBlioMateriales.Materials[0].Material.Texture.Disabled := false;
end;

Saludos....