Posts: 4840
Joined: Fri Nov 18, 2005 04:52 PM
Re: Is there a way to set oSays to transparent universally?
Posted: Thu Sep 10, 2009 09:17 PM
Harvey,
OK, here is the problem. The preprocessor is passing .f. as lTransparent by default, so the DEAFAULT settings in TSay are never used. Below is the preprocessor output for a test I made. lTransparent is the last parameter.
oSay := TSay():New( 2, 2, {|| "&One"}, oDlg,,, .F., .F., .F., .F.,,,,, .F., .F., .F., .F., .F., .F., .F. )
So, to force lTransparent to .T. always, you need to just put this line after the default setting in the New and Redefine methods
lTransparent:= .t.
This will override the preprocessor's passed parameter.
Logic is working again because it is Thursday.
Regards,
James
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10