Delphi 7 - Zeichnen Kreis mit transparenten Kern mit Leinwand

Question

Ich versuche, einen einfachen Kreis mit Delphi 7 und Canvas zu zeichnen, und ich bin mir nicht sicher, ob was ich tun möchte, ist möglich.

Wie das folgende Bild möchte ich ohne Kern/Mitte einen Kreis zeichnen:

Mit Jerry Dodge-Vorschlag:

• I don brauche nicht den roten Teil, nur den blauen Teil.

-Code verwendet:

Canvas.Brush.Style := bsClear; 
Canvas.Pen.Style := psSolid; 
Canvas.Pen.Color := clGreen; 
Canvas.Pen.Width := 20; 
Canvas.Pie(X1, Y1, X2, Y2, X3, Y3, X4, Y4); 

---

Alte Informationen:

Das Hintergrundbild ist eine einfache TImage Komponente und ich ziehe den Kreis mit diesem Befehl:

Canvas.Brush.Color := clgreen; 
Canvas.Pie(X1, Y1, X2, Y2, X3, Y3, X4, Y4); 

---

Ist es möglich?

---

Gelöst nach Tom und Jerry Brunberg Ausweichen helfen!

Ergebnis:

---

Vielen Dank für alle Hilfe!

Answer 1

Ich kann mir einige Möglichkeiten vorstellen, aber der einfachste Weg ist die Verwendung einer großen Stiftbreite ohne Füllung. aber zum Beispiel ...

Canvas.Brush.Style := bsClear; 
Canvas.Pen.Style := psSolid; 
Canvas.Pen.Color := clGreen; 
Canvas.Pen.Width := 50; 
Canvas.Pie(X1, Y1, X2, Y2, X3, Y3, X4, Y4); 

In Ihrem Fall ist Pie nicht der richtige Ansatz, weil es auch Linien in der Mitte verlassen. Sie müssen stattdessen Arc verwenden.