Bug ICONO ventana principal

[Antonio Linares]

Joaquín,

Hazlo asi:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

  local oWnd, oIcon

  DEFINE ICON oIcon FILENAME "..\icons\book.ico"
 
  DEFINE WINDOW oWnd
 
  oWnd:SetIcon( oIcon )
   
  ACTIVATE WINDOW oWnd

  DEFINE ICON oIcon FILENAME "..\icons\blue.ico"
   
  DEFINE WINDOW oWnd

  oWnd:SetIcon( oIcon )

  ACTIVATE WINDOW oWnd

return nil

Aqui funciona bien así

[Antonio Linares]

La explicación técnica es que al registrar la clase de Windows usando la función RegisterClass() se puede especificar hIcon de dos maneras:

hIcon
Type: HICON
A handle to the class icon. This member must be a handle to an icon resource. If this member is NULL, the system provides a default icon.

Al dejarlo nil, se nos permite cambiarlo posteriormente. De ahi que no creemos la primera ventana usando la claúsula ... ICON ...
asi posteriormente nos esta permitido cambiarlo

[FranciscoA]

Antonio.
Tu ejemplo funciona bien.

Tambien he probado de esta manera y me funciona (FWH12.04)

Code: Select all  Expand view

//static oWnd, oWnd2

//----------------------------------------------------------------------------//
function Main()
local oWnd, oWnd2

   local oIcon1,oIcon2
   local cIcon1 := "D:\FERR_PRUEBAS\gorra.ico"
   local cIcon2 := "D:\FERR_PRUEBAS\medicam.ico"

  DEFINE ICON oIcon1 FILENAME cIcon1
  DEFINE WINDOW oWnd ICON oIcon1
  ACTIVATE WINDOW oWnd

  DEFINE ICON oIcon2 FILENAME cIcon2
  DEFINE WINDOW oWnd2
  oWnd2:SetIcon(oIcon2)
  ACTIVATE WINDOW oWnd2

RETURN NIL
 

[Antonio Linares]

Francisco,

Pues entonces me rectifico de lo dicho.

Se puede cambiar aunque esté registrado

gracias!

[jmartial]

Antonio,

Con la versión FWH 14.09 me funciona como lo has puesto en tu ejemplo. con setIcon() no por comandos.

Muchas Gracias, problema y explicación resueltos !!