Hallo, ich versuche ein TImage zur Laufzeit zu erzeugen. Auf das Bild soll etwas gezeichnet werden (in diesem Fall ein Punkt) und der Rest des Bildes transparent sein. Mein unten gezeigter Versuch führt jedoch zu einem komplett transparenten Bild, wobei auch der Punkt nicht mehr sichtbar ist.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
image2:= TImage.Create(Form1);
image2.Parent:=Form1;
image2.Picture.Bitmap.TransparentColor := clwhite;
image2.Transparent:=true;
image2.Canvas.Brush.color:=clwhite;
image2.Canvas.Pen.Color:=clwhite;
image2.Canvas.Rectangle(0,0,image2.Width, image2.Height);
image2.Canvas.Brush.color:=clgreen;
image2.Canvas.Pen.Color:=clgreen;
image2.Canvas.Ellipse(5,5,10,10);
image2.Left:=50;
image2.Top:=50;
end;