Problema al Vizualizar Icono

[cuatecatl82]

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.

Code: Select all  Expand view

#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..

[stefano]

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)

Code: Select all  Expand view

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

[MauroArevalo]

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,

[cuatecatl82]

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..