الرسم في الدلفي

[King SofT]

رسم مستقيم :
لرسم مستقيم يجب تحديد نقطة البداية ونقطة للنهاية
هما إحداثيات نقطة 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]

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

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