topic-30439

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Bug ICONO ventana principal
Posted: Wed Mar 25, 2015 05:58 PM

Joaquín,

Hazlo asi:

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Bug ICONO ventana principal
Posted: Wed Mar 25, 2015 06:00 PM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Bug ICONO ventana principal
Posted: Wed Mar 25, 2015 06:25 PM

Antonio.
Tu ejemplo funciona bien.

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

Code (fw): Select all Collapse

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

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Bug ICONO ventana principal
Posted: Wed Mar 25, 2015 06:27 PM

Francisco,

Pues entonces me rectifico de lo dicho.

Se puede cambiar aunque esté registrado :-)

gracias!

regards, saludos

Antonio Linares
www.fivetechsoft.com

jmartial

Posts: 458

Joined: Tue Mar 14, 2006 07:26 PM

Re: Bug ICONO ventana principal
Posted: Wed Mar 25, 2015 07:06 PM

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

Un Saludo,

Joaquín Martínez

FiveTech Support Forums

Continue the discussion