شفافية النموذج

اخواني الاعزاء

لقد فاتني ان اذكر لكم طريقة معرفة مكان ملفات dll او الملفات المكتبية بالنسبة للنظام وبالمناسبة ان استخدم w7 ,64bit

والكود هو والذي يعرض باستخدام الطابعة او خزن الى ملف وادرج لكم عبر الطباعة

DISPLAY DLLS TO PRINTER PROMPT

وعليكم السلام

يتم كتابة هذا الكود غي حال اردت معرفة مكان الكود

اخر سطر يعني لازم يوجد DECLARE قبله

تحياتي

شكرا لك اخي العزيز بارك الله فيك

اهلا أخي أسد، وسلمت يداك

جرب وضع الكود التالي بعد آخر سطر في النموذج الذي رفعته - بعد آخر أمر في اجراء Inti - لعلك تجد فيه ما هو مفيد

WITH THIS
.BACKCOLOR= RGB(0,255,0)
.TITLEBAR= 0
.BORDERSTYLE=0
.WIDTH=.WIDTH*2
ENDWITH
THIS.ADDOBJECT("Shp","shape")
WITH THIS.Shp
.TOP=5
.HEIGHT=200
.WIDTH=200
.LEFT=20
.CURVATURE=90
.BACKCOLOR= RGB(31,73,125)
.VISIBLE=.T.
ENDWITH

THIS.ADDOBJECT("lab","label")
WITH THIS.lab
.TOP=70
.WIDTH=200
.LEFT=170
.FORECOLOR= RGB(255,0,0)
.CAPTION="Visual ForPro9"
.FONTSIZE=40
.AUTOSIZE=.T.
.BACKSTYLE=0
.VISIBLE=.T.
ENDWITH

THIS.ADDOBJECT("cmd","commandbutton")
WITH THIS.cmd
.TOP=0
.LEFT=0
.AUTOSIZE=.T.
.CAPTION="x"
.VISIBLE=.T.
ENDWITH

= SetLayeredWindowAttributes(THIS.HWND, THISFORM.BACKCOLOR, 0, 1)

مع التحية

Shadowz كتب:

اهلا أخي أسد، وسلمت يداك

جرب وضع الكود التالي بعد آخر سطر في النموذج الذي رفعته - بعد آخر أمر في اجراء Inti - لعلك تجد فيه ما هو مفيد

WITH THIS
.BACKCOLOR= RGB(0,255,0)
.TITLEBAR= 0
.BORDERSTYLE=0
.WIDTH=.WIDTH*2
ENDWITH
THIS.ADDOBJECT("Shp","shape")
WITH THIS.Shp
.TOP=5
.HEIGHT=200
.WIDTH=200
.LEFT=20
.CURVATURE=90
.BACKCOLOR= RGB(31,73,125)
.VISIBLE=.T.
ENDWITH

THIS.ADDOBJECT("lab","label")
WITH THIS.lab
.TOP=70
.WIDTH=200
.LEFT=170
.FORECOLOR= RGB(255,0,0)
.CAPTION="Visual ForPro9"
.FONTSIZE=40
.AUTOSIZE=.T.
.BACKSTYLE=0
.VISIBLE=.T.
ENDWITH

THIS.ADDOBJECT("cmd","commandbutton")
WITH THIS.cmd
.TOP=0
.LEFT=0
.AUTOSIZE=.T.
.CAPTION="x"
.VISIBLE=.T.
ENDWITH

= SetLayeredWindowAttributes(THIS.HWND, THISFORM.BACKCOLOR, 0, 1)

مع التحية

تسلم اخي على العمل الجميل

ويمكن عمل الشكل والكتابة على النموذج بواسطة الادوات

واحب اضيف لك اخي ابو عبد الله المبدع ان اخر سطر ممكن الاستغناء عنه وهو

 = SetLayeredWindowAttributes(THIS.HWND, THISFORM.BACKCOLOR, 0, 1)

واعتقد ان النموذج المرفق من قبلي يوجد فيه نقص وهو سهواً

وهو لتجنب التاثير على النماذج الاخرى اذا وجدت وضع الكود التالي في الحدث او الاجراء DESTORY

CLEAR DLLS lion
CLEAR DLLS iraq

واحب ان اشكر اخي ابو عبد الله

Shadowz وجميع الاعضاء لتزويدنا بالمعلومات والطرق الجديدة والجميلة

تحياتي

أهلا أخي أسد....

بداية لك كل الشكر،

أخشى أن الكود الذي أضفته لم يوصل الصورة التي أريد

على كل..المقصود هو تحقيق الشفافية للنموذج ( بناء على استهداف لون معين فيه ) مع الابقاء على محتويات النموذج ظاهرة كما هي مما يتيح لنا تصميم نماذج غير نظامية

على النحو التالي

وهذا هو المثال test.rar

مع التحية

(مشاركة فارغة)

<img src="d:%5Cscreen1"><br>شكرا لك اخي العزيز shadowz

على الفكرة الجميلة والرائعة ولقد اعجبني فيها الطريقة الجميلة الموجود في النموذج

حيث كنت اعمل نماذج كـ صفحة رئيسية للتطبيقات او البرامج مثل ما فعلت

ولكن لم اكن اعرف فيها جزء وهو قابلية التحكم بالنوافذ الخلفية للنموذج مثل المجلدات والتطبيقات الموجودة خلف النموذج الشفاف

ولكن لم يفاجئني هذا الابداع لانه من الكبير shadowz في لغة الفيجوال فوكس برو وهذا رائي وانا اعتقد راي جميع الاعضاء الموجودون في المنتدى حيث الابداع لا حدود معك

تحياتي لك من كل قلبي وسوف ارفق الطريقة التي اعمل بها في استهداف لون معين مع ابقاء الاشياء المحدده من قبلي

شكرا لك مرة اخرى ولجميع الاعضاء

lion iraq.zip

أهلا أخي أسد

صحيح عزيزي يمكن استهداف أي لون لتغييره... المهم أن لا يكون مستخدماً ضمن أحد عناصر النموذج حتى لا يُغيّر من تناسقها - الا اذا قُصد ذلك

وكما ذكرت فقد يمكن أن يستخدم كنموذج في بداية تشغيل البرنامج كــ Splash Screen أو كنموذج About

وشكرا لك عزيزي... وكما قلت سابقا هذا كله من ذوقك وكرم أخلاقك..

ملاحظة....الكود جاهز ولا ابداع فيه :wink:... ستجد جميع الدوال في MSDN

مع الشكر في كافة الأحوال

مع التحية

شكرا على الذوق الرفيع وقوة الشخصية في تواضع الجميل

نعم كل الدوال موجودة ولكن الابداع هو في نشرها وتوضيح عملها لتعم الفائدة لجميع طالبيها

وانا اتشرف في النقاش معك لاني اعتبرك استاذ في برمجة visual foxpro

تحياتي لك واتمنى دوام الصحة والعافية لتزويدنا بكل ماهو جديد وجميل

شكرا لك أخي أسد... هذا كله من لطفك وكرم أخلاقك

والشرف لي بالنقاش معك ومع كافة الأخوة في المنتدى

مع التحية

اكمالا للموضوع وبما اننا نستطيع تغيير درجة الشفافية ( التي لا بد وأن تكون بين 0 و 255 كأقصى حد )

فيمكننا أيضا اضافة Counter أو Timer لاضافة ميزة أخرى للنموذج وهي الظهور من العدم على النحو التالي على سبيل المثال:

DECLARE SetWindowLong IN Win32Api AS iraq INTEGER, INTEGER, INTEGER
DECLARE SetLayeredWindowAttributes IN Win32Api AS lion INTEGER, STRING, INTEGER, INTEGER
iraq(THISFORM.HWND, -20, 0x00080000)
lion(THISFORM.HWND, 0, 0 , 2)

FOR i = 1 TO 255
lion(THISFORM.HWND, 0, i, 2)
FOR x = 1 TO 40000
ENDFOR
NEXT

مع التحية

Shadowz كتب:

اكمالا للموضوع وبما اننا نستطيع تغيير درجة الشفافية ( التي لا بد وأن تكون بين 0 و 255 كأقصى حد )

فيمكننا أيضا اضافة Counter أو Timer لاضافة ميزة أخرى للنموذج وهي الظهور من العدم على النحو التالي على سبيل المثال:

DECLARE SetWindowLong IN Win32Api AS iraq INTEGER, INTEGER, INTEGER
DECLARE SetLayeredWindowAttributes IN Win32Api AS lion INTEGER, STRING, INTEGER, INTEGER
iraq(THISFORM.HWND, -20, 0x00080000)
lion(THISFORM.HWND, 0, 0 , 2)

FOR i = 1 TO 255
lion(THISFORM.HWND, 0, i, 2)
FOR x = 1 TO 40000
ENDFOR
NEXT

مع التحية

شكراً لك اخي على التواصل وادام الله الصحة والعافية

في كل ماهو جميل وجديد

تحياتي لك

اشكر الاخوان المبدعين والله كلمة شكر قليلة في حقكم

مع تحياتي للجميع

Shadowz كتب:

اكمالا للموضوع وبما اننا نستطيع تغيير درجة الشفافية ( التي لا بد وأن تكون بين 0 و 255 كأقصى حد )

فيمكننا أيضا اضافة Counter أو Timer لاضافة ميزة أخرى للنموذج وهي الظهور من العدم على النحو التالي على سبيل المثال:

DECLARE SetWindowLong IN Win32Api AS iraq INTEGER, INTEGER, INTEGER
DECLARE SetLayeredWindowAttributes IN Win32Api AS lion INTEGER, STRING, INTEGER, INTEGER
iraq(THISFORM.HWND, -20, 0x00080000)
lion(THISFORM.HWND, 0, 0 , 2)

FOR i = 1 TO 255
lion(THISFORM.HWND, 0, i, 2)
FOR x = 1 TO 40000
ENDFOR
NEXT

مع التحية

دوام الصحة والعافية لجميع الزوار والاعضاء والاصدقاء والاهل لمن ينشر العلم

واحب ان اذكر ان الصورة المرفقة بغير طريقة اي طريقة الاخ SHADOWZ المبدع دائماً الطريقة الاولى والصورة الطريقة الثانية

تحياتي

شكرا لكل الاخوة الذين ساهموا في هذا الموضوع واخص منهم lion iraq & shadows على كل جديد يرفدون فيه المنتدى جزاكم الله عنا كل خير :clapping: :clapping: :clapping:

لم اكن اعلم ان هنالك امكانيات جميله في vfp

شكرا لكم على النقاش المفيد :wub:

اهلا وسهلا بك في المنتدى للفريق العربي للبرمجة

MemoIraq ، العصفور الصغير، tager

الحمد والشكر لله على انكم وجدتم في الموضوع ما يفيد

مع التحية للعزيز Lion Iraq

tager كتب:

لم اكن اعلم ان هنالك امكانيات جميله في vfp

ويوجد أكثر بكثير من هذا...صدقني

مع التحية للحميع

Shadowz كتب:

MemoIraq ، العصفور الصغير، tager

الحمد والشكر لله على انكم وجدتم في الموضوع ما يفيد

مع التحية للعزيز Lion Iraq

ويوجد أكثر بكثير من هذا...صدقني

مع التحية للحميع

تحياتي لك اخي عبد الله

وصدق من قال فيجوال فوكس برو "من الابره للفيل"

تحياتي للجميع

شكرررررررررراً لكم يامبدعين

موضوع قمة في الجمال

شكراً على المرور

تحياتي

روععععععععععععععععععععععععة