topic-30439

Posts: 458

Joined: Tue Mar 14, 2006 07:26 PM

Bug ICONO ventana principal
Posted: Tue Mar 24, 2015 09:41 AM

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.

Un Saludo,

Joaquín Martínez

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Bug ICONO ventana principal
Posted: Tue Mar 24, 2015 04:34 PM

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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

jmartial

Posts: 458

Joined: Tue Mar 14, 2006 07:26 PM

Re: Bug ICONO ventana principal
Posted: Tue Mar 24, 2015 06:22 PM

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.

Un Saludo,

Joaquín Martínez

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Bug ICONO ventana principal
Posted: Tue Mar 24, 2015 06:55 PM

Joaquín:

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

Code (fw): Select all Collapse

    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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Bug ICONO ventana principal
Posted: Tue Mar 24, 2015 07:38 PM

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

&&&

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

jmartial

Posts: 458

Joined: Tue Mar 14, 2006 07:26 PM

Re: Bug ICONO ventana principal
Posted: Wed Mar 25, 2015 08:21 AM

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.

Un Saludo,

Joaquín Martínez

jmartial

Posts: 458

Joined: Tue Mar 14, 2006 07:26 PM

Re: Bug ICONO ventana principal
Posted: Wed Mar 25, 2015 08:22 AM

Gracias Francisco,

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

Un Saludo,

Joaquín Martínez

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Bug ICONO ventana principal
Posted: Wed Mar 25, 2015 09:34 AM

Joaquín,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

jmartial

Posts: 458

Joined: Tue Mar 14, 2006 07:26 PM

Re: Bug ICONO ventana principal
Posted: Wed Mar 25, 2015 10:31 AM

Sí Antonio,

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

Un Saludo,

Joaquín Martínez

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Bug ICONO ventana principal
Posted: Wed Mar 25, 2015 02:20 PM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Bug ICONO ventana principal
Posted: Wed Mar 25, 2015 03:22 PM

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

jmartial wrote: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 (fw): Select all Collapse

#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

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Bug ICONO ventana principal
Posted: Wed Mar 25, 2015 04:15 PM

Ejemplo compactado ("mas profesional ?")

Code (fw): Select all Collapse

#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

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

jmartial

Posts: 458

Joined: Tue Mar 14, 2006 07:26 PM

Re: Bug ICONO ventana principal
Posted: Wed Mar 25, 2015 04:53 PM

Sí Antonio, lo he probado.

El ejemplo es muy fácil para probarlo.

Code (fw): Select all Collapse

 
  
  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.

Un Saludo,

Joaquín Martínez

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Bug ICONO ventana principal
Posted: Wed Mar 25, 2015 05:06 PM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

jmartial

Posts: 458

Joined: Tue Mar 14, 2006 07:26 PM

Re: Bug ICONO ventana principal
Posted: Wed Mar 25, 2015 05:14 PM

Antonio,

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

Un Saludo,

Joaquín Martínez

FiveTech Support Forums