Firemonkey - Inhalte von TLayer3D als Bild speichern - Wie?

[torud]

Zitat:

Zitat von Thom (Beitrag 1237081)

Brobier's mal mit Layer3D1.Buffer.SaveToFile(...).

Volltreffer!
Ging auch direkt als png mit Alpha.

Hm, leider bekomme ich es nicht noch einmal hin. Ich hatte auf dem Layer ein normales Image liegen und ein Textobjekt. Das Image wurde korrekt in dem ausgegebenen png angezeigt. Der Text wurde nicht übernommen. Gibts vielleicht noch irgendwelche Tricks, welche Controls worauf zu platzieren sind und welche Einstellungen man vornehmen muss? Kann man irgendwo auch was nachlesen oder hat jemand von Euch damit weitere Erfahrungen gemacht?

[Thom]

Meinst Du mit Textobjekt ein TText3D? Falls Ja: Versuch lieber ein normales TLabel-Objekt. Der Buffer enthält alle 2D-Unterobjekte von TLayer3D, die dann als Textur während des eigentlichen Renderprozesses auf ein einfaches Rechteck gelegt werden. Alle 3D-Unterobjekte werden separat gerendet und das führt mit PaintToBitmap momentan leider nicht zum gewünschten Ergebnis.

[torud]

Also irgendwas muss ich jetzt falsch machen, denn ich erhalte nur noch leere Bilder.
Ich musste leider das Projekt nochmal neu erstellen, da XE5 abgeschmiert war.

Seitdem kriege ich es einfach nicht mehr hin, dass es funktioniert.
Kann jemand bitte mal einen prüfenden Blick drauf werfen?

[Thom]

Bei mir funktioniert eine etwas abgewandelte Version: Das Bild wird erst nach Betätigung eines Buttons aus dem Layer ausgelesen. Wenn Du den Buffer schon in Form3DShow verwendest, ist er noch leer, da das Bild selbst noch nicht auf dem Formular gerendert wurde.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image2.Bitmap:=Layer3D1.Buffer;
end;

Anhang 40212

[torud]

That´s it my Dear!

Wenn man dann noch die Eigenschaft Transparency auf True stellt, gibts ein png-Bild samt Alpha. Genau das was ich wollte.
Jetzt muss ich nur noch herausfinden, ob sowas wie Schatten, Outlines und Blurs auf Bilder und Texte geht. Der Anfang ist gemacht!