Kreis im transparenten TImage zeichnen

[himitsu]

Na dann.

Nunja, original ist das "Bild" garnicht transparent.
Das sieht nur so aus, weil garkein Bild geladen und somit nichts gemalt wird.


Du hast nicht zufällig vergessen die Transparenz im TImage zu aktivieren?


Und was für eine Graphic-Instanz/Typ ist geladen?

Wenn Bitmap ... Du weißt auch wie beim Bitmap das mit der Transparenz funktioniert?
Ich meine nicht die TransparentColor, sondern tmAuto.

[DieFliege]

Hallo himitsu,

Die Eigenschaft "Transparent" für das TImage habe ich gesetzt, jedoch habe ich immer noch den weißen Rahmen - Siehe Screenshot.

Zitat:

Und was für eine Graphic-Instanz/Typ ist geladen?

Hier habe ich keine geladen, versuche es aber nun mal mit Bitmap.

LG DieFliege

[DieFliege]

Hey,

ich habe es nun so gelöst:

Delphi-Quellcode:

procedure TForm1.btn_BildClick(Sender: TObject);
var
  MeinBild : TBitmap;

begin
  //--
  MeinBild := TBitmap.Create;
  MeinBild.LoadFromFile('meinbild.bmp');
  MeinBild.Canvas.Pen.Color  := clRed;
  MeinBild.Canvas.Pen.Width   := 3;
  MeinBild.Canvas.Brush.Style := bsClear;
  MeinBild.Canvas.Ellipse(100, 100, 300, 300);
  Image2.Picture.Bitmap.Assign(MeinBild);
end;

Danke an himitsu für den Denkanstoß zu Bitmap

LG DieFliege