icone no executavel

[davidbezerra]

galera, bom dia,
como fasso para colocar o icone no executavel, que fique copilado com ele, e que nao precise que eu o leve junto com a aplicacao.

valeu

[sygecom]

Olá David,
Voce pode criar um arquivos TXT com a seguinte linha:

APPLICATION_ICO ICON "nome_icone.ico"

Logo após renomeia a extenção desse TXT para NOME_EXE.RC, e salve. Se você usa o hbmake para compilar, basta na linha "Resource file Name:" você colocar o nome do arquivo .RC, no meu exemplo ai seria o "NOME_EXE.RC".
Pronto, só compilar !!!

[edutek]

Leonardo!

Aproveitando como faço para infoamr os outros icones, neste .RC.

informando no RC, os icones incorporam no executavel, e não precisarei mandar mais em separado, é isso ?

se sim como é que faz ?

uso gtwvw + xh 1.0.0 + hwgui (só a printodos e msg)

[davidbezerra]

valeu sygecom, ficou beleza, obrigado,

e eu sei que devia perguntar de uma so vez, mais mim perdoe, como fasso para colocar junto ao arquivo um bitmap e utilizar o mesmo na aplicacao, valeu.

[sygecom]

Leonardo!

Aproveitando como faço para infoamr os outros icones, neste .RC.

Pode colocar mais icones assim:

ICON_1 ICON "sistema.ico"
ICON_2 ICON "avanca.ico"
ICON_3 ICON "volta.ico"
ICON_4 ICON "sair.ico"

Para usar em sua app em Dialog com Hwgui:

Código: Selecionar todos

function minha_funcao
Private oJanela
PRIVATE oIcon1 := HIcon():AddResource("ICON_1")

INIT DIALOG oJanela CLIPPER NOEXIT TITLE "Titulo da Janela";
FONT oFontBtn;
AT 0,0 SIZE 670,365;
ICON oIcon1 ;  // aqui esta colocando o icone no canto da janela
ON EXIT  {|| DBCLOSEALL(),.T.};
STYLE DS_CENTER + WS_VISIBLE + WS_CAPTION + WS_SYSMENU
.....
.....
.....

informando no RC, os icones incorporam no executavel, e não precisarei mandar mais em separado, é isso ?

se sim como é que faz ?

uso gtwvw + xh 1.0.0 + hwgui (só a printodos e msg)

Coloquei um pequeno exemplo acima, se ficar com duvida, só postar.
Abaixo um pequeno exemplo usando ADDFILE, onde deve mandar junto o Icone.

Código: Selecionar todos

PRIVATE oIcon := HIcon():AddFile("sistema.ico")

INIT DIALOG oJanela CLIPPER NOEXIT TITLE "Titulo da Janela";
FONT oFontBtn;
AT 0,0 SIZE 670,365;
ICON oIcon ;  // aqui esta colocando o icone no canto esquerdo da janela
ON EXIT  {|| DBCLOSEALL(),.T.};
STYLE DS_CENTER + WS_VISIBLE + WS_CAPTION + WS_SYSMENU
.....
.....
.....

[sygecom]

valeu sygecom, ficou beleza, obrigado,

e eu sei que devia perguntar de uma so vez, mais mim perdoe, como fasso para colocar junto ao arquivo um bitmap e utilizar o mesmo na aplicacao, valeu.

Para adcionar um BitMap a um .RC você pode fazer assim só colocar a linha abaixa no seu .RC:

1002 BITMAP "buscar.bmp"
1003 BITMAP "logo1.bmp"
1004 BITMAP "logo2.bmp"
1005 BITMAP "logo3.bmp"

E para usar em sua app, vai depender de sua Lib grafica, exemplo abaixo com Hwgui:

Código: Selecionar todos

function minha_funcao
Private oJanela
PRIVATE oIcon := HIcon():AddResource("ICON_1"),;
            oBmpLogo1 := HBitmap():AddResource(1002)

INIT DIALOG oJanela CLIPPER NOEXIT TITLE "Titulo da Janela";
FONT oFontBtn;
AT 0,0 SIZE 670,365;
ICON oIcon1 ;  // aqui esta colocando o icone no canto da janela
ON EXIT  {|| DBCLOSEALL(),.T.};
STYLE DS_CENTER + WS_VISIBLE + WS_CAPTION + WS_SYSMENU

   @ 145,100  OWNERBUTTON o_Obtn1;
   SIZE 24,24 ;
   FLAT;
   ON CLICK {|| Pesq_Placa(wPLACA,"S") } ;
   BITMAP oBmpLogo1 FROM RESOURCE TRANSPARENT;  // pegando do Resource o Bmp
   TOOLTIP "Busca Placa na Relação de Placas"
.....
.....
.....

[davidbezerra]

sygecom, eu copilei com o exemplo do bitmap assim mais de o erro abaixo:

Error BASE/1070 Argument error: ==
Called from drawwidg.prg->HBITMAP:ADDFILE(388)
Called from hownbtn.prg->HOWNBUTTON:NEW(81)
Called from SCECW.PRG->MAIN(141)

HwGUI 2.16 xHarbour build 1.0.0 Intl. (SimpLex)
Date:09/06/2008
Time:13:44:07

[sygecom]

Posta o codigo de como esta usando !!! o exemplo que postei foi apenas o inicio para ter uma idéia, não foi um exemplo de uma DIALOG completa.

[davidbezerra]

Function Main
local GetList:={}
local oIcon := HIcon():AddRESOURCE( "MAINICON" )
local cICliente := HBitmap():AddResource("1001")

//AddFile( "Img\clientes.bmp" )

local oMainWindow, oStatus
local CUTMP2:='', HARQ:='', CUTMP:=''

//private oIconchild := HIcon():AddFile( "Img\prg.ico" )

Private oPanel, cImageDir:="Img\"

REQUEST DBFCDX
RDDSETDEFAULT("DBFCDX")
DBSETDRIVER("DBFCDX")

SET BELL OFF
SET DATE BRITISH
SET EPOCH TO 2000
SET CONFIRM ON
SET DELETED ON
SET EXCLUSIVE OFF
SET autopen off
SET CENTURY ON
setcancel(.f.)

INIT WINDOW oMainWindow MDI;
ICON oIcon;
TITLE "Teste " ;
MENUPOS 4;
ON EXIT {|| DBCLOSEALL(),.T.};
AT 0,0 ;//BACKGROUND BITMAP OBMP;
SIZE GetDesktopWidth(), GetDesktopHeight() - 28

//cImageDir+"Clientes.bmp"

@ 0,0 PANEL oPanel SIZE 0,064
@ 62,3 OWNERBUTTON OF oPanel ON CLICK {||CadCli()} ;
SIZE 32,26 FLAT ;
BITMAP cICliente COORDINATES 0,2,0,0 TOOLTIP "Cadastro de Clientes"

[sygecom]

Function Main
local GetList:={}
local oIcon := HIcon():AddRESOURCE( "MAINICON" )
local cICliente := HBitmap():AddResource("1001")

//AddFile( "Img\clientes.bmp" )

local oMainWindow, oStatus
local CUTMP2:='', HARQ:='', CUTMP:=''

//private oIconchild := HIcon():AddFile( "Img\prg.ico" )

Private oPanel, cImageDir:="Img\"

REQUEST DBFCDX
RDDSETDEFAULT("DBFCDX")
DBSETDRIVER("DBFCDX")

SET BELL OFF
SET DATE BRITISH
SET EPOCH TO 2000
SET CONFIRM ON
SET DELETED ON
SET EXCLUSIVE OFF
SET autopen off
SET CENTURY ON
setcancel(.f.)

INIT WINDOW oMainWindow MDI;
ICON oIcon;
TITLE "Teste " ;
MENUPOS 4;
ON EXIT {|| DBCLOSEALL(),.T.};
AT 0,0 ;//BACKGROUND BITMAP OBMP;
SIZE GetDesktopWidth(), GetDesktopHeight() - 28

//cImageDir+"Clientes.bmp"

@ 0,0 PANEL oPanel SIZE 0,064
@ 62,3 OWNERBUTTON OF oPanel ON CLICK {||CadCli()} ;
SIZE 32,26 FLAT ;
BITMAP cICliente COORDINATES 0,2,0,0 TOOLTIP "Cadastro de Clientes"

Preste atenção nessa linha para poder usar o BITMAP do Resorce:
local cICliente := HBitmap():AddResource("1001")
Não deve ter aspas, ou seja fica assim:
local cICliente := HBitmap():AddResource(1001)

Seu exemplo não esta completo, vai dar erro sempre...
Tem que terminar o mesmo. active, return, e bla, bla, bla....

[davidbezerra]

bom dia, Leonardo

desculpe ta te encomodando, mais eu tentei e nao consegui resouver o problema do bitmap, da erro, e alem disso nao to conseguindo usar o CLIPPER NOEXIT, em alguns campos so ta saindo quando do um click com o mouse em um outro, e tambem to tendo dificuldades em manipular as cores de um for MDIChild quando utilizo o WindowsXP.Manifest ele fica de uma cor e os SAYs de outra, fica parecendo que recortei palavras de uma revista e colei em uma folha de papel. se nao for abusar muinto de sua boa vontade gostaria de te enviar toda a pasta do programinha que estou tentando fazer.

valeu.

[sygecom]

Veja o exemplo que coloquei em anexo no posto do link abaixo, ai demostra como usar os BITMAP e o CLIPPER NOEXIT, o exemplo esta completo com fontes, é só compilar.
viewtopic.php?f=4&t=8186#p45910

Sobre os MDIChild, eu não uso elas, mas assim que der vou fazer uns teste, apenas vi que em samples tem exemplo de uso.