Hola, a todos.

Buenas tardes Bruno.

He estado mirando la actualización y me he puesto a probar la estructura With/EndWith, que comentastes que la ibas a implementar y FUNCIONA 100x100. Es muy buena. Solo dos aclaraciones:

1ª Como no la has documentado, ¿está lista para utilizar?
2ª ¿Es un comando 'al uso' o es compilado y mejora el rendimiento de C3?

Gracias, Bruno.

_________________
Un saludo.
Jesús P. Melgar Velasco

Jesús,


Veo que no me puedo callar nada, lo investigáis todo
La puedes usar sin problemas, está terminada lo que no he hecho y por eso no lo he anunciado todavía es que el IDE se aproveche de ella para generar el código de los formularios, pero vendrá muy bien que la vayas probando.


No es un comando, ni es preprocesado, es compilado, genera código optimizado y se tiene que notar bastante.

_________________
Un saludo,
Bruno Cantero
www.c3compiler.com

Hola, de nuevo.

Siguiendo con el tema...

Se me ocurre la siguiente situación:

With ::FGroupBoxDate := TAppGroupBox():Create( Self )
:Caption := "Fecha"
:SetBounds( 6, 55, 99, 43 )
EndWith

With ::FDatePickerFecha := TDBDateTimePicker():Create( ::FGroupBoxDate )
:Alias := oApp:PacIng:Doc:Alias
ataSource := "PacDoc"
:Field := "PacDocFch"
:SetBounds( 6, 17, 87, 21 )
EndWith

Se me ocurre que podria optimizarlo eliminando la data ::FGroupBoxDate, y trato de hacer lo siguiente (pero no lo consigo).

With TAppGroupBox():Create( Self )
:Caption := "Fecha"
:SetBounds( 6, 55, 99, 43 )

With ::FDatePickerFecha := TDBDateTimePicker():Create( <referencia al data GroupBox - ¿como? )
:Alias := oApp:PacIng:Doc:Alias
ataSource := "PacDoc"
:Field := "PacDocFch"
:SetBounds( 6, 17, 87, 21 )
EndWith
EndWith

¿Me he explicado...?

_________________
Un saludo.
Jesús P. Melgar Velasco

Jesús,

No puedes hacer eso

_________________
Un saludo,
Bruno Cantero
www.c3compiler.com