Thanks Sergey, it Works!!, but what is the explanation? Do I have to Use the last "Initial" Method of the LISA sequence?
>Try to move call to Resize into Activate Event.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()
>> ENDWITH
>> ENDPROC
>> ***PROCEDURE SHOW()
>> ***LPARAMETERS nStyle
>> *** DODEFAULT(nStyle)
>> *** This.Resize()
>> ***ENDPROC
>>ENDDEFINE
>>>
>Thanks in advance
