sexta-feira, 1 de fevereiro de 2008

Colocar textura no GLMaterialLibrary via linha de comando

Muito simples, crie uma variável do tipo TBitmap, passe imagem ou como no exemplo parte de uma para o bmp e depois adicione a variável ao material texture do componente.

try
///cria a variavel
Bmp := TBitMap.Create;
///seta o tamanho da imagem
Bmp.Height := 300;
Bmp.Width := 498;
//recorta parte de uma imagem
Bmp.Canvas.CopyRect(Rect(0,0,500,300),img3d.Canvas,Rect(0,470-300,500,470));
//passa a imagem para a textura
texturas.Materials[2].Material.Texture.Image.Assign(Bmp);
finally
Bmp.Free;
end;

Nenhum comentário: