PC Toledo

Em homenagem a Paulo Cesar Toledo
https://pctoledo.org/

icone no executavel

https://pctoledo.org/viewtopic.php?t=8180

Página 1 de 1

icone no executavel

Enviado: 07 Jun 2008 12:13
por 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

Re: icone no executavel

Enviado: 07 Jun 2008 15:39
por 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 !!!

Re: icone no executavel

Enviado: 09 Jun 2008 08:47
por 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)

Re: icone no executavel

Enviado: 09 Jun 2008 09:23
por 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.

Re: icone no executavel

Enviado: 09 Jun 2008 10:41
por sygecom
edutek escreveu: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
.....
.....
.....

Re: icone no executavel

Enviado: 09 Jun 2008 11:17
por sygecom
davidbezerra escreveu: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"
.....
.....
.....

Re: icone no executavel

Enviado: 09 Jun 2008 13:38
por 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

Re: icone no executavel

Enviado: 09 Jun 2008 13:46
por 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.

Re: icone no executavel

Enviado: 09 Jun 2008 14:00
por 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"

Re: icone no executavel

Enviado: 09 Jun 2008 14:04
por sygecom
davidbezerra escreveu: 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....

Re: icone no executavel

Enviado: 11 Jun 2008 09:04
por 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.

Re: icone no executavel

Enviado: 11 Jun 2008 16:55
por 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.
Todos os horários são UTC-03:00
Página 1 de 1

Powered by phpBB® Forum Software © phpBB Limited

Traduzido por: Suporte phpBB