[ تمرين رسم ] بواسطة Canvas

[karika2]

الحل

كود :

with Form1.Canvas do begin canvas.Brush.color:= clYellow; canvas.Ellipse(Width div 2-150, Height div 2-150, Width div 2 +150, Height div 2+100); canvas.Brush.color:= clWhite; canvas.Ellipse(Width div 2-115, Height div 2-120, Width div 2-30 , Height div 2-50); canvas.Brush.color:= clWhite; canvas.Ellipse(Width div 2+25, Height div 2-120, Width div 2+110 , Height div 2-50); canvas.Brush.color:= clBlack; canvas.Ellipse(Width div 2-80, Height div 2-100, Width div 2-110 , Height div 2-70); canvas.Brush.color:= clBlack; canvas.Ellipse(Width div 2+30, Height div 2-100, Width div 2+60 , Height div 2-70); Brush.Style := bsDiagCross; pen.Color:=clBlack; Polygon([Point(450,300),Point(340,310),Point(250,300)]); MoveTo(332,272); LineTo(332,224) end;