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


الملفات المرفقة
.jpg   eissa.jpg (الحجم : 19.9 KB / التحميلات : 76)
> مبرمج مبتدئ < سبحان الله بحمده... سبحان الله العظيم
الرد
#2
الحل
كود :
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;
> مبرمج مبتدئ < سبحان الله بحمده... سبحان الله العظيم
الرد
#3
انا لست بمبرمج لكن اظن المشكله ليست بالكود ولكن من اين يجد الشخص الاحداثيات المولائمه للطول والعرض والارتفاع وما ال ذلك لكل نقطه بالوجه المطلوب رسمه...

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

بالتوفيق
قل إن صلاتي ونسكي ومحياي ومماتي لله رب العالمين
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف