Page 1 of 2
Bug ICONO ventana principal
Posted: Tue Mar 24, 2015 9:41 am
by 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.
Re: Bug ICONO ventana principal
Posted: Tue Mar 24, 2015 4:34 pm
by 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
Re: Bug ICONO ventana principal
Posted: Tue Mar 24, 2015 6:22 pm
by 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.
Re: Bug ICONO ventana principal
Posted: Tue Mar 24, 2015 6:55 pm
by Armando
Joaquín:
Te muestro un código que funciona de 100 con FWH1412, con MDI y sin MDI
Code: Select all | Expand
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
Re: Bug ICONO ventana principal
Posted: Tue Mar 24, 2015 7:38 pm
by FranciscoA
Re: Bug ICONO ventana principal
Posted: Wed Mar 25, 2015 8:21 am
by 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.
Re: Bug ICONO ventana principal
Posted: Wed Mar 25, 2015 8:22 am
by jmartial
Gracias Francisco,
Pero yo no hablo de ventanas MDICHILD, aparte yo tengo FWH 1409, y ese problema es de hace varios años.
Re: Bug ICONO ventana principal
Posted: Wed Mar 25, 2015 9:34 am
by Antonio Linares
Joaquín,
Has probado a asignarles el icono llamando a oWnd:SetIcon( oIcon ) ?
Re: Bug ICONO ventana principal
Posted: Wed Mar 25, 2015 10:31 am
by jmartial
Sí Antonio,
Fue lo primero que probé, y no lo cambia.
Re: Bug ICONO ventana principal
Posted: Wed Mar 25, 2015 2:20 pm
by Antonio Linares
Has probado con un oWnd:Refresh() despues de asignar el icono ?
Re: Bug ICONO ventana principal
Posted: Wed Mar 25, 2015 3:22 pm
by FranciscoA
//----------------------------------------------------------------------------//
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: Select all | Expand
#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
Re: Bug ICONO ventana principal
Posted: Wed Mar 25, 2015 4:15 pm
by FranciscoA
Ejemplo compactado ("mas profesional ?")
Code: Select all | Expand
#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
Re: Bug ICONO ventana principal
Posted: Wed Mar 25, 2015 4:53 pm
by jmartial
Sí Antonio, lo he probado.
El ejemplo es muy fácil para probarlo.
Code: Select all | Expand
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.
Re: Bug ICONO ventana principal
Posted: Wed Mar 25, 2015 5:06 pm
by 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
Re: Bug ICONO ventana principal
Posted: Wed Mar 25, 2015 5:14 pm
by jmartial
Antonio,
Era un ejemplo, lo he probado con varios iconos y con nombres cortos. No entiendo la relación.