تغيير لونه خلفية ال Wait Window فى الفوكس برو

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

بداية اخى الكريم - لك منى اجمل تحية

ثانيا :

ان فيجوال فوكس برو هى ثعلب البرمجة الاصلى

والثعلب المكار لايحب مثل هذه الطلبات التى لاتشعره بثعلبيته العالية

يعنى مثلا تغير لون ال wait window حين نطلبها من الثعلب يشعر انه تعبان وعايز ينام

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

*----------------------------*
* Author : Mahmoud Fayed
* Date   : 13/08/2008
*----------------------------*

showmsg("فيجوال فوكس برو ثعلب البرمجة الاصلى")

FUNCTION SHOWMSG(MYMSG AS String)

myformobj = CREATEOBJECT("myform")
myformobj.mylabel.caption = mymsg
myformobj.accept()
myformobj.SHOW()
READ events

RETURN

DEFINE CLASS myform as Form

backcolor = RGB(0,0,0)
titlebar = 0 && off
desktop = .T.
TOP = 100
LEFT = 100
WIDTH = 300
HEIGHT = 30
borderstyle = 2

ADD OBJECT MYTIMER AS TIMER

ADD OBJECT MYLABEL AS LABEL

MYLABEL.TOP = 5
MYLABEL.LEFT = 5
MYLABEL.WIDTH = 100
MYLABEL.HEIGHT = 30
MYLABEL.BACKSTYLE = 0
MYLABEL.FONTNAME = "ARIAL"
MYLABEL.FONTSIZE = 14
MYLABEL.FORECOLOR = RGB(255,255,255)
MYLABEL.CAPTION = "WOW"
MYLABEL.RIGHTTOLEFT = .T.

MYTIMER.INTERVAL = 1500 && 3 SECONDS

	PROCEDURE MYTIMER.TIMER()
			THISFORM.Release
			CLEAR EVENTS
	RETURN

	PROCEDURE accept()
	this.mylabel.autosize = .t.
	this.MYLABEL.VISIBLE = .T.
	this.Width = this.mylabel.width + 10
	this.Refresh 
	RETURN

ENDDEFINE

وهذا مافعلناه فى الكود السابق

وتكون النتيجة ان يكون كل شىء تحت التحكم والسيطرة

الالوان ومكان الرسالة ومدة الانتظار وكل ماتريد

وهذا هو ملف الشفيرة المصدرية

fayedwait.zip

والله الموفق

السلام عليكم

اخي العزيز محمود

جزاك الله خيرا فعلا مثال رائع

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

بارك الله فيك اخى مصطفى

وربنا يوفقنا جميعا ان شاء الله لتقديم كل مانقدر عليه

والله الموفق

شكرا استاذنا و معلمنا .... جميل جدا ربنا يريحك مثل ما ريحتنى

امين يارب العالمين

جميعا باذن الله

مشكور اخي العزيز