كود جعل الصورة من صغيرة الى كبيرة

[k.hossam]

هذا الكود يجعل الصورة من حجمها الاصلي الى حجم اكبر
مثال :
-اصنع صورة بستخدام الرسام واحفضها باسم 1 ثم اجعلها كبيرة واحفضها مرة اخرى باسم 2 لتصبح لديك صورة عادي واخرى اكبر منه (1و2)
- افتح برنامج الدلفي وضع عنصر(image) ياخذ الاسم (image1) وضع الصورة 1 فيها واكتب في الحدث
ONMouseMove للـ(image1) التعليمة التالية
if image1.Visible then image2.Visible:=true
- اكتب في الحدث ONMouseMove للـ(Form1) التعليمة التالية
if image1.Visible then image2.Visible:=false;
-الان ضع (image) اخر الذي ياخذ الاسم (image2) وفي الخاصية (visible) ضع القيمة (false)

__________________________
------------------------------------
واي استفسار لاتترددو في ان تسالوني فيه