Bug ICONO ventana principal

[jmartial]

Hola,

Ya expuse que no me salía el icono de la ventana principal, pero ya he averiguado el problema, pero no la solución.

Si creamos una ventana SIN ICONO y la cerramos, y a continuación creamos otra CON ICONO, el icono no aparece.

Si la segunda ventana, la ponemos como MDI, sí pone el icono.

Si a la primera ventana le asignamos el icono, entonces también aparece el icono en la segunda ventana, aunque no sea MDI.

He descubierto aún más. Si le pongo un icono SÓLO a la primera, ese es el que pone en la segunda, ya no me deja cambiarlo, esa es la cuestión,
SÓLO deja poner el icono en la primera ventana, ya no se puede cambiar en otras que se creen después.

Espero que se entienda y a ver si Antonio o alguien me explica la solución.

[Armando]

Joaquín:

Como ya te lo habían mencionado, muestra la parte de tu código, me da la
impresión que no estas definiendo el icono en el tiempo y lugar indicado.

Saludos

[jmartial]

Buenas tardes Armando,

Creo que no has leído los pasos que acabo de explicar, si los pruebas verás que ocurre, y es un problema mucho más complejo de averiguar de lo que parecía en un principio. Espero que Antonio tenga una idea de por donde pueden venir los tiros.

Se reproduce con simples DEFINE WINDOWS.

[Armando]

Joaquín:

Te muestro un código que funciona de 100 con FWH1412, con MDI y sin MDI

Code: Select all  Expand view

    DEFINE ICON oIcono RESOURCE "AppLogo"
    DEFINE BRUSH oBrush COLOR CLR_WHITE
    DEFINE WINDOW oWindow FROM 0,0 TO 22,75 TITLE oApp:cAplicacion + " " + oApp:cVersion + " " + oApp:cServer;
        MENU HazMenu() ICON oIcono BRUSH oBrush


    ACTIVATE WINDOW oWindow MAXIMIZED VALID Cerrar() ON INIT (LaBarra(oWindow),oWindow:Refresh())

 

Saludos

[FranciscoA]

viewtopic.php?f=6&t=16324&start=0&hilit=icono+en+child

[jmartial]

Buenos días, Armando,

Te vuelvo a repetir que ese no es el ejemplo que explico, por favor, leeló de nuevo a ver si sabes de donde puede venir el problema.

Tú abres una ventana pero no pones otra a continuación para ver que pasa cuando cierras la primera.

[jmartial]

Gracias Francisco,

Pero yo no hablo de ventanas MDICHILD, aparte yo tengo FWH 1409, y ese problema es de hace varios años.

[Antonio Linares]

Joaquín,

Has probado a asignarles el icono llamando a oWnd:SetIcon( oIcon ) ?

[jmartial]

Sí Antonio,

Fue lo primero que probé, y no lo cambia.

[Antonio Linares]

Has probado con un oWnd:Refresh() despues de asignar el icono ?

[FranciscoA]

//----------------------------------------------------------------------------//

Gracias Francisco,

Pero yo no hablo de ventanas MDICHILD, aparte yo tengo FWH 1409, y ese problema es de hace varios años.

Aqui tienes un ejemplo, "hecho al vuelo", con ventanas NO MDI

Code: Select all  Expand view

#include "FiveWin.ch"

static oWnd

//----------------------------------------------------------------------------//

function Main()

   local oBar
   local oIcon
   local cIcon1 := "D:\FERR_PRUEBAS\llantas.ico"
   local cIcon2 := "D:\FERR_PRUEBAS\medicam.ico"
   local cIcon3 := "D:\FERR_PRUEBAS\herram.ico"

   DEFINE ICON oIcon FILENAME "D:\FERR_PRUEBAS\gorra.ico"  

   DEFINE WINDOW oWnd FROM 1, 1 To 22, 75 ;
      TITLE "VENTANA PRINCIPAL" ;
      ICON oIcon

   DEFINE BUTTONBAR oBar OF oWnd

   DEFINE BUTTON OF oBar ACTION CreateWnd1(cIcon1)
   DEFINE BUTTON OF oBar ACTION CreateWnd2(cIcon2)
   DEFINE BUTTON OF oBar ACTION CreateWnd3(cIcon3)

   ACTIVATE WINDOW oWnd MAXIMIZED

return nil

//----------------------------------------------------------------------------//

function CreateWnd1(cIcon)

   local oWnd1, oIcon

   DEFINE ICON oIcon FILENAME cIcon

   DEFINE WINDOW oWnd1 OF oWnd  TITLE "VENTANA UNO"

   ACTIVATE WINDOW oWnd1 ;
       ON INIT oWnd1:SetIcon(oIcon)

return nil

//----------------------------------------------------------------------------//

function CreateWnd2(cIcon)

   local oWnd2, oIcon

   DEFINE ICON oIcon FILENAME cIcon

   DEFINE WINDOW oWnd2 OF oWnd TITLE "VENTANA DOS"

   ACTIVATE WINDOW oWnd2 ;
       ON INIT oWnd2:SetIcon(oIcon)

return nil

//----------------------------------------------------------------------------//

function CreateWnd3(cIcon)

   local oWnd3, oIcon

   DEFINE ICON oIcon FILENAME cIcon

   DEFINE WINDOW oWnd3 OF oWnd TITLE "VENTANA TRES"

   ACTIVATE WINDOW oWnd3 ;
       ON INIT oWnd3:SetIcon(oIcon)

return nil
 

[FranciscoA]

Ejemplo compactado ("mas profesional ?")

Code: Select all  Expand view

#include "FiveWin.ch"

static oWnd

//----------------------------------------------------------------------------//

function Main()

   local oBar
   local oIcon
   local cIcon1 := "D:\FERR_PRUEBAS\llantas.ico"
   local cIcon2 := "D:\FERR_PRUEBAS\medicam.ico"
   local cIcon3 := "D:\FERR_PRUEBAS\herram.ico"

   DEFINE ICON oIcon FILENAME "D:\FERR_PRUEBAS\gorra.ico"  

   DEFINE WINDOW oWnd FROM 1, 1 To 22, 75 ;
      TITLE "VENTANA PRINCIPAL" ;
      ICON oIcon

   DEFINE BUTTONBAR oBar OF oWnd

   DEFINE BUTTON OF oBar ACTION CreateWndC(cIcon1,1)
   DEFINE BUTTON OF oBar ACTION CreateWndC(cIcon2,2)
   DEFINE BUTTON OF oBar ACTION CreateWndC(cIcon3,3)

   ACTIVATE WINDOW oWnd MAXIMIZED

return nil

//----------------------------------------------------------------------------//

function CreateWndC(cIcon,nWnd)

   local ocWnd := "oWnd"+Str(nWnd,1) , oIcon

   DEFINE ICON oIcon FILENAME cIcon

   DEFINE WINDOW ocWnd OF oWnd  TITLE "VENTANA "+str(nWnd,1)


   ACTIVATE WINDOW ocWnd ;
       ON INIT ocWnd:SetIcon(oIcon)

return nil

[jmartial]

Sí Antonio, lo he probado.

El ejemplo es muy fácil para probarlo.

Code: Select all  Expand view

 
  DEFINE ICON oIcon RESOURCE "ICONOAPLI_1"
  DEFINE WINDOW oWnd ICON oIcon
  ACTIVATE WINDOW oWnd

  DEFINE ICON oIcon2 RESOURCE "ICONOAPLI_2"
  DEFINE WINDOW oWnd2 ICON oIcon2
  ACTIVATE WINDOW oWnd2

 

Cuando cerréis la primera ventana, la segunda se abrirá con el icono de la primera. Y no he encontrado la manera que coja otro Icono. Con la clausula MDI sí coge otro icono.

[Antonio Linares]

Joaquín,

En vez de llamarles "ICONOAPLI_1" y "ICONOAPLI_2", renómbralos como "UNO" y "DOS"

La idea es usar un nombre mas corto y que no sea parecido

[jmartial]

Antonio,

Era un ejemplo, lo he probado con varios iconos y con nombres cortos. No entiendo la relación.