الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

إضافة بعض التأثيرات على إطارات برامجكم

مغلق
بدأه Mohammed في 20 نوفمبر 2001 · 3 رد · 713 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

إخواني إليكم هذه الدوال API التي قد تضفي إلى إطارات برامجكم نوعا من الجاذبية.

procedure TForm1.FormCreate(Sender: TObject);

begin

//This APIs tested under windows 2000 and XP pro with Delphi 6.

//Earlier version of Delphi maybe you should redefine the API functions

//If any problem please let me know

AnimateWindow(Handle, 500, AW_BLEND); // try these effects:

// AW_CENTER, AW_HOR_POSITIVE, AW_HOR_NEGATIVE, AW_VER_POSITIVE and AW_VER_NEGATIVE

ShowMEssage('Now well go TRANSPARENT'); SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED); SetLayeredWindowAttributes(Handle, 1, Round(255 * 75 / 100), LWA_ALPHA);

end;[code]

#2

السلام عليكم

الأخ العزيز

مشكور كثير على الكود :) .

من ملاحظتي للكود أنه يقوم بما يسمى بـ alphablend للـ from .

وهناك طريقة أخرى لعمل ذلك في delphi6 فقط في win2k أو نظام أعلى .

الطريقة كالتالي :

//set alphablend to True
Alphablend:=true;
//Set AlphaBlendValue to a value between 0 and 255 
AlphaBlendValue :=200;

لمزيد من المعلومات راجع delphi help

هناك حتى الأحلام أصبحت ممنوعة ...

إنه لعار أن ننتمي لهكذا أوطان ... لكن ... ربما العار أن نكون نحن أبناء لتلكم أوطان .. من يدري ؟!!

ليعلم أولئك ... إنّ الشعوب إنْ هي استيقظت تسحق ظُلامََهَا ...

There, even in dreams u r wanted

To be a programmer, how a nice dream it was

Leaving ...

أعيدوا لإسمي لونه المفضل

#3

شكراً جزيلاً لك اخي Mohammed

وكذلك اشكر الأخ tmaaa على مجهوده الرائع في هذا المنتدى

وتقبلوا تحياتي اخوكم SUM

#4

أخي الكريم tmaaa

شكرا لك على هذه الملاحظة.

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…