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

[karika2]

بسم الله الرحمن الرحيم
كتغير من الروتين والابتعاد عن هذا القسم منذة فترة ... نأتى بــ اختبار جديد وهو رسم هذا الوجة بالـ Canvas
أى دون الاعتماد على مكونات shape أو اى مكونات خارجية مدة الاختبار حين يتم حلة يضع الكود فى الردود حتى تعم الفائدة على الجميع

[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;

[ELARAPY]

انا لست بمبرمج لكن اظن المشكله ليست بالكود ولكن من اين يجد الشخص الاحداثيات المولائمه للطول والعرض والارتفاع وما ال ذلك لكل نقطه بالوجه المطلوب رسمه...

اظن من الواجب فتح الوجه في احد البرامج المخصصه للوجه واخذ الاحداثيات اللازمه والتامل في الكود المناسب

بالتوفيق