PROCEDURE Activate This.Resize() DODEFAULT() ENDPROC>>I'm trying to Subclass _ShowText class (from FFCs class _report.vcx), it works fine, but I cannot get Maximazed & Resized the final instance, what am I missing??
>>oForm=CREATEOBJECT("MyTextEditor",GETFILE(),2) >>oForm.SHow(1) >>DEFINE CLASS myTextEditor as _showtext OF (HOME(1)+"ffc\_reports.vcx") >> PROCEDURE INIT >> *** I add a new Parameter, tnWindowState with proper Values >> LPARAMETERS tcSourceFile,tnWindowState >> >> DODEFAULT(tcSourceFile) >> WITH This >> .WindowState=IIF(VARTYPE(tnWindowState)='N' ; >> AND INLIST(tnWindowState,0,1,2),tnWindowState,0) >> .cmdClose.Caption="\<Cerrar" >> .cmdSave.Caption="\<Guardar como" >> .cmdFonts.Caption="\<Fuentes" >> .chkReadOnly.Caption="\<Sólo lectura" >> .Caption="Visor de Texto" >> ***.Resize() && This DON'T WORK???? >> ENDWITH >> ENDPROC >> ***PROCEDURE SHOW() >> ***LPARAMETERS nStyle >> *** DODEFAULT(nStyle) >> *** This.Resize() && This DON'T WORK too :( >> ***ENDPROC >>ENDDEFINE >>>