Roulette Kessel

[Nikolas]

Man kann sich aber auch den Kessel selbstmalen.
Ich hab schon länger nichts mehr gezeichnet, aber so ein Kessel sollte mit canvas.drawArc oder .arc zeichenbar sein. Mit dem Befehl kannst du ein Kreissegment zeichnen, wobei du den eingeschlossenen Winkelbereich übergeben kannst. Den Kessel zeichnest du dann per

Delphi-Quellcode:

drawKessel(canvas mycanvas, int drehwinkel)
radius = 50;
canvas.löschen;
for i:=1 to 32 //(oder so) do
 begin
 if odd(i) then
 Farbe := rot
 else
 Farbe := schwarz
 if i=0 then Farbe := Grün
 canvas.drawArc(drehwinkel + i*2*pi/32 , drehwinkel * (i+1)*2*pi/32, Farbe, Radius,...)

Das kannst du dann in einen Timer stecken und bei jedem Aufruf den drehwinkel etwas erhöhen.

// Da ich vor ein paar Monaten auf Mac umgestiegen bin, habe ich schon länger kein Pascal geschrieben. Aber die Idee sollte klar sein.