ampel programmieren

[blink182]

das hier isn Code von nem Auto aus nem Delphibuch, hoffe das posten ist hier okay.
Das Auto ist relativ klein gezeichnet, kannste dir aber vergrößern, in dem du das n, bei x+n bzw y+n mit einem faktor muliplizierst

Delphi-Quellcode:

var 
  x:Integer;
  y:Integer;

procedure Zeichnen(canv: TCanvas; colr: LongINt);
begin
with canv do begin
pen.color:=colr;
brush.color:=colr;
RecTangle(x+2, y+1,x+6,y+4);
RecTangle(x+2,y+14,x+6,y+17);
RecTangle(x+16,y+2,x+20,y+4);
RecTAngle(x+16,y+14,x+20,y+16);

MoveTo(x+4,y+4); LineTo(x+4,y+6);
MoveTo(x+4,y+12); LineTo(x+4,y+14);
MoveTo(x+18,y+4); LineTo(x+18,y+7);
MoveTo(x+18,y+11); LineTo(x+18,y+14);

MoveTo(x,y+6); LineTo(x+14,y+6);
LineTo(x+22,y+8);
LineTo(x+22,y+10);
LineTo(x+14,y+12);
LineTo(x,y+12);
LineTo(x,y+6);
Ellipse(x+9,y+7,x+13,y+11);
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
zeichnen(form1.canvas,clBtnFace);
x:=x+5;
zeichnen(form1.canvas,clBlack);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
y:=50;
x:=40;
timer1.enabled:=True;
end;

MfG blink182