mhm...der code malt bei mir schonmal keinen kreis, sondern nur einen teil einer elipse...warum nicht einfach
Delphi-Quellcode:
procedure Circle(Canvas: TCanvas; X, Y, Radius: Word; Color: TColor);
var
x1: integer;
begin
x1:=radius div 2;
Canvas.Pen.Color:=Color;
Canvas.Brush.style:=bsClear;
Canvas.Ellipse(x-radius,y-radius,x+radius,y+radius);
end;
?
besser würde es natürlich aussehen, wenn du dir ein Bild eines Einschusslochs machst und dieses per draw auf die wand kopierst.
HTH Frank