WITH CREATEOBJECT('aaax') ?"Object:" ?"hidden", VARTYPE(.hprop) ?"protected", VARTYPE(.pprop) ?"normal", VARTYPE(.prop) ?"unknown", VARTYPE(.propx) ? .Test() ? .Test2() ENDWITH DEFINE CLASS aaa as Custom HIDDEN hprop PROTECTED pprop hprop = .T. pprop = .T. prop = .T. procedure test() ?"First class:" ?"hidden", VARTYPE(.hprop) ?"protected", VARTYPE(.pprop) ?"normal", VARTYPE(.prop) ?"unknown", VARTYPE(.propx) endproc ENDDEFINE DEFINE CLASS aaax as aaa procedure test2() ?"Derived class:" ?"hidden", VARTYPE(.hprop) ?"protected", VARTYPE(.pprop) ?"normal", VARTYPE(.prop) ?"unknown", VARTYPE(.propx) endproc ENDDEFINE- Object cannot r/w hidden/protected properties and call hidden/protected methods
?VARTYPE(_screen.ActiveControl)Is bug or no?
>WITH CREATEOBJECT('aaa') >? VARTYPE(.hprop) >? VARTYPE(.pprop) >? VARTYPE(.prop) >? VARTYPE(.propx) >ENDWITH > >DEFINE CLASS aaa as Custom > HIDDEN hprop > PROTECTED pprop > hprop = .T. > pprop = .T. > prop = .T. >ENDDEFINE >>