السلام عليكم ..
سؤالي هو عند رسم كلمة أو عدة كلمات بواسطة الكود التالي:
Canvas.TextOut(10,10,'hellooo');
أو رسم شكل معين كيف أستطيع أن أجعل هذه الرسمة كأنها كائن لوحدها
أستطيع تحريكها و تغيير أبعادها ..الخ .. بواسطة الفأرة .
كأنها Button موضوع على الفورم أثناء التصميم بالديلفي أو مثل برنامج الفوتوشوف
أو الكورل درو تحريك كلمة أو شكل ما فيه .
أرجو المساعدة بذلك .. و شكراً لكم .
أخي العزيز...
أنت بحاجة إلى إنشاء كائن جديد لتأدية المطلوب...
type text_ob= class text:string procedure draw(point:Tpoint); procedure move(new:Tpoint); end;
وعليك دوماً في عمليات التحريك المرحلية استخدام نمط القلم pmnotxor أو أي نمط يساعدك على الرسم بلون الخلفية وذلك بغية حذف تلك الرسوم المرحلية....
سأضع بعد فترة بعض الكودات عن تحريك الأشكال المرسومة إن شاء الله...
تم تعديل هذه المشاركة بواسطة romanof في 18 مارس 2006 في 05:41
المال في الغربة وطن والفقر في الوطن غربة
شكرا أخي الفاضل على الأجابة و الاقتراح ...
هو كان بذهني لكنه متعب قليلاً في حال كثرت الأشكال و الحالات ..
انني أفكر بطريقة أسهل نوعاً ما وسوف أطرحها اذا نجحت ...
و أنا بانتظار ردود جميع الأخوة ..
وبانتظار مشاركتك القادمة عن تحريك الأشكال بفارغ الصبر ...
شكرا لك مرة أخرى ;)
أخي العزيز!
إليك هذا المثال عن الخط المستقيم... في الملف المرفق...
وبخصوص هذا المثال أشير إلى أن بعض الإجرائيات التي استخدمتها هي إجراءات ليست خاصة باللغة وإنما كتبتها لتسريع العمل... مثل
(set_canvas_settings) و (keep_canvas_settings)... كما أنك ستجد متحولاً (istransparent) وهو متحول
استخدمته عموماً لتحديد كون الرسم يتم على صورة نقطية شفافة أم عادية...
المال في الغربة وطن والفقر في الوطن غربة
شكرا أخي العزيز ...
على هذا الرد ...
لكن أرجو ان تضعه كمثال مرفق اذا كنت تملك الوقت :unsure:
وشكراً لك جزيلاً ..
هذا الموضوع مغلق.