FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Problema al Vizualizar Icono
Posts: 625
Joined: Wed Mar 14, 2007 06:49 PM
Problema al Vizualizar Icono
Posted: Sat May 03, 2008 05:51 PM
Saludos al foro:

Alguien sabre porque pasa esto: :-) :-)



Tengo definido un icono para ver mi aplicaci贸n en el explorador, tambien lo muestra en la barra de titulos y en la barra de tareas, como se ve en la imagen, pero al presionar las teclas ALT+TAB y cambiar de aplicaci贸n el icono no se ve, pareciera que fuera borrado.. :-)

Este es un fragmento del codigo que uso y del cual me da este fallito.

#Include "FIVEWIN.CH"
STATIC oWndMain

//-----------------------------------------------------------------//
FUNCTION Main()

PUBLIC     oApp:= TApplication()

DEFINE ICON  oApp:cIcono  RESOURCE "ALMACEN"      //Para hacerlo visible todo el tiempo
DEFINE FONT  oApp:cFuente NAME "Tahoma"        SIZE 0, -11      //Misma fuente todo el tiempo

DEFINE WINDOW     oWndMain    TITLE      "SISA2008" 

oWndMain:SetIcon(oApp:cIcono)

ACTIVATE WINDOW oWndMain MAXIMIZED

RETURN nil

//-----------------------------------------------------------------//
CLASS TApplication

DATA cFuente     INIT ""
DATA cIcono      INIT ""
 
ENDCLASS



Si pongo:

DEFINE WINDOW oWndMain TITLE "SISA2008" ICON oApp:cIcono

Los Iconos son borrados de la barra de Titulos y de la barra de tareas, es bastante extra帽o este comportamiento ya que cuando trabajaba en 16 bits nunca tube este problema.. :-)

Ojala y alguien me pueda decir como corregirlo..

Saludos y gracias anticipadas..
Soluciones y Dise帽o de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Dise帽ador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon
Posts: 80
Joined: Tue Mar 25, 2008 09:03 PM
Problema al Vizualizar Icono
Posted: Sat May 03, 2008 07:32 PM
in my program icons are ok
you must write

#include "..\include\winapi.ch"
1 24 "WindowsXP.Manifest"
ico ICON .\BIL.ico

in the file .rc (es. xxx.rc)

 DEFINE ICON oIco FILE "bil.ico"
   
   DEFINE WINDOW oWnd                 ;
        TITLE "    Gestione Bilancio "+trim(cProloco) +" Stagione "+ trim(cAnno)  ;
        ICON oIco COLOR RGB(0,0,0),RGB(128,224,151) ;
        MENU  BuildMenu()


saludos
Stefano
FWH 14.11 + xHarbour + bcc582
Posts: 111
Joined: Thu Jan 19, 2006 11:47 PM
Problema al Vizualizar Icono
Posted: Sat May 03, 2008 07:39 PM
Daniel:

Yo lo tengo asi y me funciona perfecto:

Pub:=Tpublica():Rutas()

DEFINE ICON Pub:DWICO RESOURCE Pub:Bprin

DEFINE WINDOW dwpri FROM 1,1 TO 43,102 TITLE "INVENTARIOS HYMPLUS" ICON Pub:DWICO MENU (menudw())

ACTIVATE WINDOW dwpri MAXIMIZED VALID MSGYESNO(OEMTOANSI("篓Desea Salir?"),("Seleccione una Opci贸n")) ON INIT (USUA())


*****
CLASS Tpublica

DATA Bprin
DATA DWICO
....
METHOD Rutas CONSTRUCTOR
METHOD Colores()
METHOD Mensajes()
METHOD Structuras()

ENDCLASS

METHOD Rutas() CLASS Tpublica
....
::Bprin:="DWICO"

RETURN SELF

Saludos,
Edgar Mauricio Ar茅valo Mogoll贸n.
Bogot谩 DC. Colombia
FWH FTDN, xHarbour 1.2.1, Pelles C, Fivedit, Visual Studio Code, Borland 7.30, Mysql, Dbfs
http://www.hymplus.com http://www.hymlyma.com
Tratando de retomar la programaci贸n....
Posts: 625
Joined: Wed Mar 14, 2007 06:49 PM
Problema al Vizualizar Icono
Posted: Sat May 03, 2008 11:29 PM

Gracias a ambos por contestar, pero no consigo quitar este fallito de mi sistema, ya probe las opciones que me dieron pero sigue el problemita, no es algo de mucha importancia, pero me curiosidad que algo que talvez tenga una facil soluc铆on no le apueda encontrar..

Ojala y alguien mas pueda decirme si ha tenido este detalle y si saben como corregirlo..

Saludos..

Soluciones y Dise帽o de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Dise帽ador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon

Continue the discussion