GLScene - 3ds Textur in einem TImage anzeigen

[turboPASCAL]

Dir muss der Materialname der Textur bekannt sein (nicht der Texturdateiname) aus der 3ds-Datei, den suchst du dann in dem (GL)MaterialLibrary und übergibst diese dem Image.

Beispiel

Delphi-Quellcode:

uses GLGraphics; // nicht vergessen

procedure ...
var
  i: integer;
  Texture: TGLBitmap32;
begin
  for i:= 0 to GLMaterialLibrary1.Materials.Count do
    if GLMaterialLibrary1.Materials.Items[i].Name = 'MeineTextur' then
    begin
      Texture := GLMaterialLibrary1.Materials.Items[i].Material.Texture.Image.GetBitmap32(0);
      Image1.Picture.Bitmap.Assign(Texture.Create32BitsBitmap);

      break;
    end;
end;