King SofT
27-05-2010, 09:48 AM
رسم مستقيم :
لرسم مستقيم يجب تحديد نقطة البداية ونقطة للنهاية
هما إحداثيات نقطة x,y حيث
أ يتم تحديد نقطة البداية عن طريق التعليمة
(Form1.Canvas.MoveTo(x,y
إذا أردت من المستخدم أن يحدد نقطة البداية عن طريق الضغط على زر الفأرة فوق النموذج ضع هذه.
للنموذج التعليمة في الحدث OnMouseDown
ب يتم تحديد نقطة النهاية للمستقيم ضمن تعليمة رسم مستقيم وهي
(Form1.Canvas.LineTo(x,y
حيث x هي احداثيات left و y هي احداثيات top
وإذا أردت أن يتم رسم المستقيم في المكان الذي يحرر فيه المستخدم زر
الفأرة ضع هذه التعليمات في الحدث OnMouseUp
نفذ الآن البرنامج واضغط على مؤشر الفأرة وأبقه مضغوطًا ثم حرك الفأرة إلى مكان جديد وحرر زر الفأرة
سيظهر عندها خط مستقيم بين نقطتي البداية والنهاية .
واذا اردت ان تحصل على خط منحني ضع التعليمة الاخيرة في OnMouseMove لإظهار الخط أثناء تحريك الفأرة
Form1.Canvas.LineTo(x,y)
لرسم مستقيم يجب تحديد نقطة البداية ونقطة للنهاية
هما إحداثيات نقطة x,y حيث
أ يتم تحديد نقطة البداية عن طريق التعليمة
(Form1.Canvas.MoveTo(x,y
إذا أردت من المستخدم أن يحدد نقطة البداية عن طريق الضغط على زر الفأرة فوق النموذج ضع هذه.
للنموذج التعليمة في الحدث OnMouseDown
ب يتم تحديد نقطة النهاية للمستقيم ضمن تعليمة رسم مستقيم وهي
(Form1.Canvas.LineTo(x,y
حيث x هي احداثيات left و y هي احداثيات top
وإذا أردت أن يتم رسم المستقيم في المكان الذي يحرر فيه المستخدم زر
الفأرة ضع هذه التعليمات في الحدث OnMouseUp
نفذ الآن البرنامج واضغط على مؤشر الفأرة وأبقه مضغوطًا ثم حرك الفأرة إلى مكان جديد وحرر زر الفأرة
سيظهر عندها خط مستقيم بين نقطتي البداية والنهاية .
واذا اردت ان تحصل على خط منحني ضع التعليمة الاخيرة في OnMouseMove لإظهار الخط أثناء تحريك الفأرة
Form1.Canvas.LineTo(x,y)