Xailer & OZ Software

http://jalfonsosuarez.wordpress.com/201 ... stente-par a-generar-clases-de-complements-lib-en-xailer-2-7/

José Alfonso,
tení­a pendiente hacer este asistente desde hace tiempo. Muchas gracias.
Si quieres que el código generado respete la configuración del usuario
puedes usar TabWidth() para indentarlo, por ejemplo:
cIndent := Spaces( ::TabWidth() )
AddCode( cIndent + "PROPERTY ..." )
Y si quieres seguir experimentando, esta es la lista de métodos públicos de
TWizard:
CLASS TWizard
PROPERTY aForms // Formularios creados por el asistente
PROPERTY oActiveForm // Formulario activo
METHOD SetActiveModule( cModule ) // Establece módulo activo
METHOD AddForm( lShow ) // --> oForm
METHOD AddModule( cType ) // --> cModule. cType: prg, c, ch, rc
METHOD AddComponent( oObject, oParent ) // --> lSuccess
METHOD AddCode( cCode ) // --> lSuccess
METHOD AddMethod( cMethod, cParams, cBody, cReturn ) // --> lSuccess
METHOD AddFunction( cMethod, cParams, cBody, cReturn, lStatic )// -->
lSuccess
METHOD AddProcedure( cMethod, cParams, cBody, lStatic ) // --> lSuccess
METHOD AddProperty( cName, cClauses ) // --> lSuccess
METHOD AddEvent( cEvent, cParams ) // --> lSuccess
METHOD AddEventCode( aObjs, cEventName, cMethod, cBody, cReturn ) //
--> lSuccess
METHOD SetControl( oObject ) //Control activo en el inspector
METHOD TabWidth() // --> nTabWidth
METHOD ProjectDir() // --> cDir
METHOD GetLanguage() // --> nLanguage 2.7/Harbour
METHOD Run() VIRTUAL
ENDCLASS
Si necesitas algo más no dudes en preguntar.
Saludos,
José Lalí­n

Hola Jose,
Gracias por la información .
Un abrazo
Alf+.
El 09/12/2012 19:03, José Lalí­n escribió:
> José Alfonso,
>
> tení­a pendiente hacer este asistente desde hace tiempo. Muchas gracias.
>
> Si quieres que el código generado respete la configuración del usuario
> puedes usar TabWidth() para indentarlo, por ejemplo:
>
> cIndent := Spaces( ::TabWidth() )
>
> AddCode( cIndent + "PROPERTY ..." )
>
> Y si quieres seguir experimentando, esta es la lista de métodos públicos
> de TWizard:
>
> CLASS TWizard
>
> PROPERTY aForms // Formularios creados por el asistente
> PROPERTY oActiveForm // Formulario activo
>
> METHOD SetActiveModule( cModule ) // Establece módulo activo
> METHOD AddForm( lShow ) // --> oForm
> METHOD AddModule( cType ) // --> cModule. cType: prg, c, ch, rc
> METHOD AddComponent( oObject, oParent ) // --> lSuccess
> METHOD AddCode( cCode ) // --> lSuccess
> METHOD AddMethod( cMethod, cParams, cBody, cReturn ) // --> lSuccess
> METHOD AddFunction( cMethod, cParams, cBody, cReturn, lStatic )//
> --> lSuccess
> METHOD AddProcedure( cMethod, cParams, cBody, lStatic ) // --> lSuccess
> METHOD AddProperty( cName, cClauses ) // --> lSuccess
> METHOD AddEvent( cEvent, cParams ) // --> lSuccess
> METHOD AddEventCode( aObjs, cEventName, cMethod, cBody, cReturn ) //
> --> lSuccess
> METHOD SetControl( oObject ) //Control activo en el inspector
>
> METHOD TabWidth() // --> nTabWidth
> METHOD ProjectDir() // --> cDir
> METHOD GetLanguage() // --> nLanguage 2.7/Harbour
>
> METHOD Run() VIRTUAL
>
> ENDCLASS
>
> Si necesitas algo más no dudes en preguntar.
>
> Saludos,
> José Lalí­n
>

He realizado algunos cambios en base a unas sugerencias de Manu Exposito
y otras mí­as. Pasad por el blog para descargar el asistente nuevo.
Aquí­ tenéis un ejemplo de prg generado con este asistente:
https://www.sugarsync.com/pf/D6732387_8915910_6593945
Saludos
Alf+.
El 09/12/2012 13:54, José Alfonso Suárez Moreno escribió:
> http://jalfonsosuarez.wordpress.com/201 ... stente-par a-generar-clases-de-complements-lib-en-xailer-2-7/
>