King Soft
2010-05-26, 23:04
الرسم في دلفي :
ويمكننا Timage والعنصر TForm وهو أحد خصائص العنصر Canvas يتم الرسم في دلفي فوق عنصر الكنفا
رسم عدد من الأشكال الهندسية بواسطة توابع معرفة فوق عنصر الكنفا .
رسم مستقيم :
لرسم مستقيم يجب تحديد نقطة البداية ونقطة للنهاية
هما إحداثيات نقطة x,y حيث Form1.Canvas.MoveTo(x,y)
أ يتم تحديد نقطة البداية عن طريق التعليمة
البداية، إذا أردت من المستخدم أن يحدد نقطة البداية عن طريق الضغط على زر الفأرة فوق النموذج ضع هذه. للنموذج 1 التعليمة في الحدث OnMouseDown
ب يتم تحديد نقطة النهاية للمستقيم ضمن تعليمة رسم مستقيم وهي
(Form1.Canvas.LineTo(x,y
حيث x هي احداثيات left و y هي احداثيات top
هما إحداثيات نقطة النهاية لمستقيم ، وإذا أردت أن يتم رسم المستقيم في المكان الذي يحرر فيه المستخدم زر
الفأرة ضع هذه التعليمات في الحدث OnMouseUp
نفذ الآن البرنامج واضغط على مؤشر الفأرة وأبقه مضغوطًا ثم حرك الفأرة إلى مكان جديد وحرر زر الفأرة ،
سيظهر عندها خط مستقيم بين نقطتي البداية والنهاية .
والذي يحدث أثناء OnMouseMove لإظهار الخط أثناء تحريك الفأرة ضع التعليمة التالية ضمن الحدث
تحريك الفأرة
Form1.Canvas.LineTo(x,y);
ويمكننا Timage والعنصر TForm وهو أحد خصائص العنصر Canvas يتم الرسم في دلفي فوق عنصر الكنفا
رسم عدد من الأشكال الهندسية بواسطة توابع معرفة فوق عنصر الكنفا .
رسم مستقيم :
لرسم مستقيم يجب تحديد نقطة البداية ونقطة للنهاية
هما إحداثيات نقطة x,y حيث Form1.Canvas.MoveTo(x,y)
أ يتم تحديد نقطة البداية عن طريق التعليمة
البداية، إذا أردت من المستخدم أن يحدد نقطة البداية عن طريق الضغط على زر الفأرة فوق النموذج ضع هذه. للنموذج 1 التعليمة في الحدث OnMouseDown
ب يتم تحديد نقطة النهاية للمستقيم ضمن تعليمة رسم مستقيم وهي
(Form1.Canvas.LineTo(x,y
حيث x هي احداثيات left و y هي احداثيات top
هما إحداثيات نقطة النهاية لمستقيم ، وإذا أردت أن يتم رسم المستقيم في المكان الذي يحرر فيه المستخدم زر
الفأرة ضع هذه التعليمات في الحدث OnMouseUp
نفذ الآن البرنامج واضغط على مؤشر الفأرة وأبقه مضغوطًا ثم حرك الفأرة إلى مكان جديد وحرر زر الفأرة ،
سيظهر عندها خط مستقيم بين نقطتي البداية والنهاية .
والذي يحدث أثناء OnMouseMove لإظهار الخط أثناء تحريك الفأرة ضع التعليمة التالية ضمن الحدث
تحريك الفأرة
Form1.Canvas.LineTo(x,y);