Delphi-Quellcode:
var
bmp := TBitmap.Create( Layer3D1.Width, Layer3D1.Height);
Leider ist es nicht möglich das Erzeugen des Bitmaps mit den 2 Parametern zu versehen. Was mache ich falsch?
Ist auch nicht nötig, da die Bitmap innerhalb PaintToBitmap sowieso mit SetSize angepasst wird.
Die Füllfarbe habe ich eigentlich aus
unit System.UITypes übernommen. Welcher Wert wäre denn sonst gültig und warum funktioniert das Ganze nicht?
Die Füllfarbe entspricht TAlphaColorRec.Alpha, was streng genommen eigentlich gar keine Farbe ist. Du kannst ja erst mal eine normale Farbe nehmen, wie white oder silver, bevor du dich an die Transparenz wagst.
Warum es nicht funktioniert, kann ich dir auch nicht sagen. Ich bekomme manchmal zwar etwas in die Bitmap, wenn die Projektion auf Camera steht, aber nicht ganz das was ich will. Ich habe aber jetzt auch keine Zeit den Fehler zu suchen.