intento pero el icono no aparece al lado del titulo

[goosfancito]

hola.

Code: Select all  Expand view  RUN

   DEFINE ICON oIcon resource "1"

   DEFINE WINDOW ::oWnd TITLE ".: Sistema administrativo :." ICON oIcon <-------------- no funciona

   ::oWnd:SETicon(oIcon) <-------------- no funciona
 

como puedo hacer para que el icono aparezca? porque en la app si funciona, en la barra de estado de windows tambien, pero en el titulo del windows aparece el por defecto

[Enrico Maria Giordano]

Try

Code: Select all  Expand view  RUN

DEFINE WINDOW ::oWnd TITLE ".: Sistema administrativo :." ICON "1"

EMG

[jvtecheto]

hola.

Code: Select all  Expand view  RUN

   DEFINE ICON oIcon resource "1"

   DEFINE WINDOW ::oWnd TITLE ".: Sistema administrativo :." ICON oIcon <-------------- no funciona

   ::oWnd:SETicon(oIcon) <-------------- no funciona
 

como puedo hacer para que el icono aparezca? porque en la app si funciona, en la barra de estado de windows tambien, pero en el titulo del windows aparece el por defecto

Gustavo , la ventana que te ocurre esto es MDI o MDICHILD ?

Por lo que explicas creo que sera MDI
Yo para el icono del la ventana principal MDI utilizo el nombre en recursos por ejemplo si es "OBRAS" lo asigno siempre a "AAOBRAS" asi me aseguro que es siempre el primero de la lista.
y me funciona bien.

Saludos.

Jose.

[karinha]

Hago como Enrico dice y funciona bién.

Code: Select all  Expand view  RUN

   DEFINE CURSOR oHand  RESOURCE  "Dedo"
   DEFINE ICON   oIco   RESOURCE  "ICONE01"  // EM IMAGENS.RES
   DEFINE FONT   oFont  NAME cFont SIZE 0, cFontH WEIGHT 300

   DEFINE WINDOW oWnd TITLE cTitle                                           ;
      MENU BuildMenu( oWnd ) MENUINFO 3 ICON oIco MDI

   oWnd:SetFont( oFont )
 

Saludos.

[goosfancito]

he probado todas las formas que me dicen y ninguna me funciona ,
estoy con harbour y fwh 2020.

[karinha]

llamar siempre el primero ICON del .RES

https://i.imgur.com/3XTHtiy.png



Regards, saludos.

[goosfancito]

siempre hago asi

https://drive.google.com/file/d/1js-dJyTb04XK4WJA3UK9g9D_isQDekP_/view?usp=sharing

pero no me funciona en esta version.

[artu01]

hola.

Code: Select all  Expand view  RUN

   DEFINE ICON oIcon resource "1"

   DEFINE WINDOW ::oWnd TITLE ".: Sistema administrativo :." ICON oIcon <-------------- no funciona

   ::oWnd:SETicon(oIcon) <-------------- no funciona
 

como puedo hacer para que el icono aparezca? porque en la app si funciona, en la barra de estado de windows tambien, pero en el titulo del windows aparece el por defecto

Me parece en pelles C el nombre de tu icono empieza con # y en el codigo fuente lo estas obviando
Tambien podria ser que le falta al nombre del icono que lo pongas entre comillas en pelles c

[goosfancito]

tenias razon faltaba el #

gracias