Antonio,
Al utilizar los comandos de controles en clases creadas por mi, en algunos controles, me encuento con problemas del preprocesado.
Te pongo un ejemplo claro:
Si ejecutamos ese trozo de código, Fivewin arroja un error indicando algo parecido a esto:
Message not found oCombobox:cDatoaCambiar.
Esto ocurre por que en el procesado de este control es como sigue:
Y quedarÃa resuelto cambiado el Self por This. Algo asÃ:
=> ;
[ <oCbx> := ] TComboBox():ReDefine( <nId>, bSETGET(<cVar>),;
<aItems>, <oWnd>, <nHelpId>, <{uValid}>, [{|this|<uChange>}],;
<nClrText>, <nClrBack>, <cMsg>, <.update.>, <{uWhen}>,;
<acBitmaps>, [{|nItem|<uBmpSelect>}], <nStyle>, <cPicture>,;
[<{uEChange}>] )
Este problema ocurre en varios controles.
Saludos,
José Luis Capel
Al utilizar los comandos de controles en clases creadas por mi, en algunos controles, me encuento con problemas del preprocesado.
Te pongo un ejemplo claro:
CLASS MiClase
DATA cDatoaCambiar AS CHARACTER INIT "Valor"
METHOD NEW() INLINE Self
METHOD Prueba()
ENDCLASS
METHOD PRUEBA() CLASS MiClase
LOCAL oDlg, oCbx
LOCAL cCbx := "Uno"
LOCAL aCbx := {"Uno","Dos")
DEFINE DIALOG oDlg NAME "MiDialogo" OF oWnd
REDEFINE COMBOBOX oCbx VAR cCbx ITEMS aCbx ;
ID 205 OF oDlg ;
ON CHANGE (::cDatoaCambiar := "Pepe .T.) ;
UPDATE
ACTIVATE DIALOG oDlg
RETURN NIlSi ejecutamos ese trozo de código, Fivewin arroja un error indicando algo parecido a esto:
Message not found oCombobox:cDatoaCambiar.
Esto ocurre por que en el procesado de este control es como sigue:
#xcommand REDEFINE COMBOBOX [ <oCbx> VAR ] <cVar> ;
[ <items: PROMPTS, ITEMS> <aItems> ] ;
[ ID <nId> ] ;
[ <dlg:OF,WINDOW,DIALOG> <oWnd> ] ;
[ <help:HELPID, HELP ID> <nHelpId> ] ;
[ ON CHANGE <uChange> ] ;
[ VALID <uValid> ] ;
[ <color: COLOR,COLORS> <nClrText> [,<nClrBack>] ] ;
[ <update: UPDATE> ] ;
[ MESSAGE <cMsg> ] ;
[ WHEN <uWhen> ] ;
[ BITMAPS <acBitmaps> ] ;
[ ON DRAWITEM <uBmpSelect> ] ;
[ STYLE <nStyle> ] ;
[ PICTURE <cPicture> ];
[ ON EDIT CHANGE <uEChange> ] ;
=> ;
[ <oCbx> := ] TComboBox():ReDefine( <nId>, bSETGET(<cVar>),;
<aItems>, <oWnd>, <nHelpId>, <{uValid}>, [{|Self|<uChange>}],;
<nClrText>, <nClrBack>, <cMsg>, <.update.>, <{uWhen}>,;
<acBitmaps>, [{|nItem|<uBmpSelect>}], <nStyle>, <cPicture>,;
[<{uEChange}>] )Y quedarÃa resuelto cambiado el Self por This. Algo asÃ:
=> ;
[ <oCbx> := ] TComboBox():ReDefine( <nId>, bSETGET(<cVar>),;
<aItems>, <oWnd>, <nHelpId>, <{uValid}>, [{|this|<uChange>}],;
<nClrText>, <nClrBack>, <cMsg>, <.update.>, <{uWhen}>,;
<acBitmaps>, [{|nItem|<uBmpSelect>}], <nStyle>, <cPicture>,;
[<{uEChange}>] )
Este problema ocurre en varios controles.
Saludos,
José Luis Capel
