>>>How to chk whether _Screen Or Form ?? All properties are same... How i can chk that passed object is screen or form ??
>>>
>>>TIA...
>>
>>
>>
>>Hey easy!
>>
>>make a new procedure file.
>>
>>* a.prg
>>Lparameter cObject
>>Wait Window NoWait iif(CompObj(_SCREEN, cObject), "What a pity, the system is going to crash now!! -_-", ;
>>"Form passed OK!")
>>
>>
>>if you pass the parameter like this:
>>
>>Do A.prg with NVL(.NULL., _SCREEN)
>>
>>it will crash after finish execution!
>>
>>SO, Simply Pass:
>>
>>Do A.prg With NVL(.NULL., varForm)
>>
>>It will crash the application if pass _SCREEN on value! ^_~
>>
>>Surely ppl don't pass _SCREEN as parameters.....
>>
>>ROFL! ^0^ Finish Joking!
>
>Thnks for your reply...
>
>Pls chk my gradient class in files section, where _screen is passed as a parameter to show gradient effect on screen.. If a form is passed as a parameter then it shows effect on form...
>
>Nowadays u never know what can be passed as a parameter !!
In one year ago, I wonder a serious problem accidientally!
It will be crash the VFP (both design time and run time ) on:
SelfdefinedProc(
NVL(.NULL., _SCREEN))
but there is no crash for:
SelfdefinedProc(NVL(_SCREEN, .NULL.))
or
SelfdefinedProc(_SCREEN)
So, I said it is a joke on crashing the application! ;p
IT may be useful to make this terrible expire date on your application after you leave... ROFL!
I have download your gradient class in files section, it works very good!!
I want to make an animated change to both start and end color with timer!
Really make a advtermisment look! ^_~
Hey, any code for vertical gradient, maybe easy to change the word left to top, width to height...!?
^-^; Good Luck!
The weak wait for chance, The strong bid for chance,
The clever notch up chance, but The merciful give you chance.