delphi4arab منتديات دلفي للعرب

بسم الله الرحمن الرحيم
كتغير من الروتين والابتعاد عن هذا القسم منذة فترة ... نأتى بــ اختبار جديد وهو رسم هذا الوجة بالـ Canvas
أى دون الاعتماد على مكونات shape أو اى مكونات خارجية مدة الاختبار حين يتم حلة يضع الكود فى الردود حتى تعم الفائدة على الجميع
[صورة: attachment.php?attachmentid=4762&d=1438451507]

[صورة: attachment.php?attachmentid=4762&d=1438451507]

الحل

كود :
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;

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

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

بالتوفيق

karika2

karika2

ELARAPY