+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : تمارين دلفي وحلول (https://delphi4arab.net/forum/forumdisplay.php?fid=16)
+--- الموضوع : [ تمرين رسم ] بواسطة Canvas (/showthread.php?tid=7121)
[ تمرين رسم ] بواسطة Canvas - karika2 - 01-08-2015
بسم الله الرحمن الرحيم
كتغير من الروتين والابتعاد عن هذا القسم منذة فترة ... نأتى بــ اختبار جديد وهو رسم هذا الوجة بالـ Canvas
أى دون الاعتماد على مكونات shape أو اى مكونات خارجية مدة الاختبار حين يتم حلة يضع الكود فى الردود حتى تعم الفائدة على الجميع
[ تمرين رسم ] بواسطة Canvas - karika2 - 25-08-2015
الحل
كود :
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;RE: [ تمرين رسم ] بواسطة Canvas - ELARAPY - 16-09-2016
انا لست بمبرمج لكن اظن المشكله ليست بالكود ولكن من اين يجد الشخص الاحداثيات المولائمه للطول والعرض والارتفاع وما ال ذلك لكل نقطه بالوجه المطلوب رسمه...
اظن من الواجب فتح الوجه في احد البرامج المخصصه للوجه واخذ الاحداثيات اللازمه والتامل في الكود المناسب
بالتوفيق