Andorra 2D - Der Canvas

[Eljey]

immer noch das gleich .

Delphi-Quellcode:

 with AdDraw.Canvas do
 begin
 Pen.Width:=5;
 Pen.Color := Ad_ARGB(255,255,0,255);
 MoveTo(mitte_dis_x,mitte_dis_y);
 Pen.Color := Ad_ARGB(100,0,0,255);
 LineTo(v.x,v.y);
 v:=mDrehen(v.x,v.y,360 DIV mAnzahl);
 i:=i+1;
 Release;
 end;
until mMenu[i].parent<>mMenu[mCurrentMain].id;