Delphi-PRAXiS - Delphi Farbige Ellipse ohne Canvas

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi Farbige Ellipse ohne Canvas (https://www.delphipraxis.net/120706-farbige-ellipse-ohne-canvas.html)

Farbige Ellipse ohne Canvas

Hi ich erstelle mit

Delphi-Quellcode:

			procedure TSpezies.Zeichnen(XPos, YPos, Größe: Integer);

begin

  Ellipse(DC, XPos, YPos, XPos+Größe, YPos+Größe);// DC -> Das Handle des Fensters auf das gezeichnet wird

end;

einen Kreis welcher auch dargestellt wird (nur eben weiß gefüllt mit schwarzem Rand).

Jetzt kann ich aber nicht wie bei Canvas mit PEN und BRUSH arbeiten bzw wenn ich dies mache ändert sich das ergebnis nicht.... ich möchte aber gerne die Farbe meines Kreises ändern jedoch weiß ich nicht wie ich mir die function "Ellipse" aus der System.pas zurecht biegen muss um die Farbeigenschaften mit ein zu binden oder wie ich es sonst hinbekomme.

Re: Farbige Ellipse ohne Canvas

Delphi-Quellcode:

			 SelectObject(DC,GetStockObject(DC_BRUSH));

 SetDCBrushColor(DC, RGB(255, 255, 0));

Ellipse(DC, XPos, YPos, XPos+Größe, YPos+Größe)

// ...

Re: Farbige Ellipse ohne Canvas

WOW ....... :shock: VIELEN DANK für deine Hilfe :cheers: :thumb: