Farbige Ellipse ohne Canvas

[Kytrix]

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.

[toms]

Delphi-Quellcode:

 SelectObject(DC,GetStockObject(DC_BRUSH));
 SetDCBrushColor(DC, RGB(255, 255, 0));
Ellipse(DC, XPos, YPos, XPos+Größe, YPos+Größe)
// ...

[Kytrix]

WOW ....... VIELEN DANK für deine Hilfe