Delphi-Quellcode:
with PaintBox1
do begin
hoehex := width
DIV 2;
hoehey := height
DIV 2;
farbe := Canvas.Pen.Color;
Canvas.Pen.Width := 10;
Canvas.Ellipse(hoehex -
rad, hoehey -
rad, hoehex +
rad, hoehey +
rad);
Canvas.Ellipse(hoehex - Umf, hoehey - Umf, hoehex + Umf, hoehey + Umf);
end;
so geb ich die figuren aus, hab eben auch mal .brush gehabt, funzt aber auch nich..