+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي التقنية (https://delphi4arab.net/forum/forumdisplay.php?fid=6)
+--- قسم : دلفي والتعامل مع الرسوميات وبرمجة الألعاب (https://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
السلام عليكم ورحمة الله وبركاته .
أخي مبادرة جيدة .. بارك الله فيك .