Hola a todos, me he encontrado un problema al generar un formulario por medio de una macro, y es que no puedo asignarle un icono. El código es...

Private &cWindow := TForm():Create()

&cWindow:Enabled := .F.
&cWindow:Visible := .F.
&cWindow:BorderStyle := bsSingle
&cWindow:BorderIcons:Minimize := .T.
&cWindow:BorderIcons:Maximize := .T.
&cWindow:Position := poDefault
&cWindow:Caption := " mi formulario"
&cWindow:FormStyle := fsNormal
&cWindow:Height := 225
*(FALLA)> &cWindow:Icon := MAINICON
*(FALLA)> &cWindow:Icon := IDI_APPLICATION
&cWindow:Width := 250
&cWindow:ModalResult := mrNone
&cWindow:Themed := .F.
&cWindow:ShowInTaskBar := .F.
&cWindow:WindowState := wsNormal

El icono MAINICON está lincado dentro del proyecto. ¿Alguna sugerencia?

Gracias.

Alejandro,

No te falla la macro, sino el uso de la propiedad Icon, que es un objeto:

&cWindow:Icon:Name := MAINICON
&cWindow:Icon:Name := IDI_APPLICATION

_________________
Un saludo,
Bruno Cantero
www.c3compiler.com

Gracias Bruno, lo cambiaré en un momento.

Hola Bruno, ya he probado lo que me indicabas y el resultado es el siguiente:

&cWindow:Icon:Name := MAINICON ; FALLA
&cWindow:Icon:Name := IDI_APPLICATION ; FUNCIONA
&cWindow:Icon := Form1:Icon ; FALLA

Lo he resuelto con...

&cWindow:Icon:Name := Form1:Icon:Name

Gracias de todas formas.

Alejandro,

Si MAINICON es un nombre de un recurso debes asignarlo en forma de cadena:
&cWindow:Icon:Name := "MAINICON"

La propiedad Icon es un objeto de sólo lectura, no puedes asignarlo sino asignar sus propiedades:
&cWindow:Icon:Name := Form1:Icon:Name

_________________
Un saludo,
Bruno Cantero
www.c3compiler.com