delphi4arab منتديات دلفي للعرب
الرسم في الدلفي - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (http://delphi4arab.net/forum)
+-- قسم : منتديات دلفي التقنية (http://delphi4arab.net/forum/forumdisplay.php?fid=6)
+--- قسم : دلفي والتعامل مع الرسوميات وبرمجة الألعاب (http://delphi4arab.net/forum/forumdisplay.php?fid=19)
+--- الموضوع : الرسم في الدلفي (/showthread.php?tid=2044)



الرسم في الدلفي - King SofT - 27-05-2010

رسم مستقيم :
لرسم مستقيم يجب تحديد نقطة البداية ونقطة للنهاية
هما إحداثيات نقطة x,y حيث
أ يتم تحديد نقطة البداية عن طريق التعليمة

كود :
(Form1.Canvas.MoveTo(x,y

إذا أردت من المستخدم أن يحدد نقطة البداية عن طريق الضغط على زر الفأرة فوق النموذج ضع هذه.
للنموذج التعليمة في الحدث OnMouseDown

ب يتم تحديد نقطة النهاية للمستقيم ضمن تعليمة رسم مستقيم وهي


كود :
(Form1.Canvas.LineTo(x,y

حيث x هي احداثيات left و y هي احداثيات top
وإذا أردت أن يتم رسم المستقيم في المكان الذي يحرر فيه المستخدم زر
الفأرة ضع هذه التعليمات في الحدث OnMouseUp
نفذ الآن البرنامج واضغط على مؤشر الفأرة وأبقه مضغوطًا ثم حرك الفأرة إلى مكان جديد وحرر زر الفأرة
سيظهر عندها خط مستقيم بين نقطتي البداية والنهاية .

واذا اردت ان تحصل على خط منحني ضع التعليمة الاخيرة في OnMouseMove لإظهار الخط أثناء تحريك الفأرة

كود :
Form1.Canvas.LineTo(x,y)



الرسم في الدلفي - issamdnn - 13-06-2010

السلام عليكم ورحمة الله وبركاته .

أخي مبادرة جيدة .. بارك الله فيك .