Iconos en Ventanas

[alvaro533]

Hola,

Tengo un programa que abre varias ventanas mdi

local icon1
DEFINE ICON ICON1 name "cliente"
define window oWnd2 title "Fichero de Clientes" MDICHILD ICON ICON1 of oWnd color 25,bcolor
...

en otra función

local icon1
DEFINE ICON ICON1 name "factura"
define window oWnd2 title "Facturas" MDICHILD ICON ICON1 of oWnd color 25,bcolor
...


Los iconos están en un rc y cada uno tiene su nombre.
Diferentes ventanas usan diferentes iconos.

El problema es que una vez que abro la primera ventana, las siguientes aparecen siempre con el icono de la primera, sea cual sea.

¿Estoy haciendo algo mal?
Gracias por vuestra ayuda.
Alvaro

[ICO]

Bom dia..
Vc. está dando o mesmo nome a todos os icones (icon1), troque por exemplo

Code: Select all  Expand view

Define Icon oIcon1
Define Icon oICon2
Define iCon oIcon3
 

e assim sucessivamente...

Abraços..

[alvaro533]

Tampoco funciona. Además la variable es local en cada programa.

Gracias.

Alvaro

[Antonio Linares]

Alvaro,

Que versión de FWH estás usando ?

[alvaro533]

Hola Antonio,
Tengo la 806
Alvaro

[Antonio Linares]

Alvaro,

Prueba FWH\samples\TestMdi3.prg Aqui funciona bien con distintos iconos, añadiendo esta línea a TestMdi3.rc:

fw ICON "..\icons\fivetech.ico"
test ICON "..\icons\fivewin.ico"

y añadiendo esta cláusula a la ventana principal:

Code: Select all  Expand view

   DEFINE WINDOW oWnd FROM 1, 1 To 22, 75 ;
      TITLE "This is a MDI enviroment" MDI VSCROLL ICON "fw"
 

[alvaro533]

Hola Antonio,

No funciona.

El icono de la ventana principal sale bien, pero en la ventana child siempre sale el icono genérico.

¿puedo probar algo más? Gracias.

Alvaro

[alvaro533]

Antonio, te puedo mandar un ejemplo con el problema?

Gracias.
Alvaro

[Antonio Linares]

Alvaro,

Si el ejemplo que te he mostrado no funciona posiblemente se deba a algun error que se arregló con posterioridad a la versión de FWH que estas usando.

Vamos a ver si localizamos cuando se arregló y como.

[alvaro533]

Pues quedo a la espera de que me digas algo. Muchas gracias.
Alvaro

[Antonio Linares]

Alvaro,

Solucionado:
viewtopic.php?p=85984#p85984

[alvaro533]

Hola Antonio:

Funciona, muchas gracias. ¿Hay alguna forma de incluirlo en la librería para no tener que añadir el mdichild.prg a cada proyecto?

Gracias por tu ayuda.

Alvaro

[Antonio Linares]

Alvaro,

Una vez generes el OBJ, puedes reemplazarlo en la libreria:

tlib.exe fiveh.lib -+ mdichild.obj

[alvaro533]

Muchas gracias.
Alvaro