1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24:
| with Image1.Canvas do begin Brush.Color:=clRed; Ellipse(260,120,380,300); Brush.Color:=RGB(212,145,2); Rectangle(260,270,380,320); Brush.Color:=RGB(200,140,2); Ellipse(290-25,320-25,290+25,320+25); Ellipse(350-25,320-25,350+25,320+25); Brush.Color:=clMaroon; Ellipse(290-5,320-5,290+5,320+5); Ellipse(350-5,320-5,350+5,320+5); Pen.Color:=RGB(200,140,2); Pen.Width:=5; MoveTo(180,230); LineTo(260,290); Pen.Color:=clBlack; Pen.Width:=2; PolyBezier([Point(180,55),Point(210,70),Point(230,70),Point(265,40)]); PolyBezier([Point(180,55),Point(200,30),Point(240,35),Point(265,40)]); PolyBezier([Point(165,65),Point(210,85),Point(220,90),Point(285,35)]); PolyBezier([Point(155,40),Point(180,55),Point(200,0),Point(285,35)]); PolyBezier([Point(160,25),Point(180,5),Point(210,0),Point(255,27)]); end; |