Jump to content
Fivewin Brasil

Acessar DIALOG em RES


ram_bh

Recommended Posts

Kabiaba,

No programa, chamo:

...

DEFINE DIALOG oDlgSenha RESOURCE "SENHA" OF oWndSenha

...

ACTIVATE DIALOG oDlgSenha CENTERED

...

Estranho é que consigo usar as imagens BMP do arquivo RES em botões...

Obrigado!

Editado por - ram_bh on 20/07/2010 11:17:33

Link to comment
Share on other sites

citação:

Sim, é esta a mensagem.

Rodrigo Melo

Belo Horizonte - MG

FWH 9.12 / xHarbour 1.1.2 / BCC 5.5.1


id=quote>id=quote>

VEJA OS CONTROLES DO DIALOGO, VOCE PODE TER UMA TSBROWSE E NÃO CHAMA A CLASSE OU UMA BITMAP E NÃO CHAMA NO MODULO.

O PROBLEMA ESTA NOS RECURSOS, PODE SER UM RECURSO BORLAND E VOCE NÃO CHAMOU A BIBLIOTECA.

FÃCIL ASSIM... VERIFIQUE.

QUEM SABE, FAZ AO VIVO!!

ABRAÇOS.

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

dentinho.jpg?rnd=0.830315402649066

Link to comment
Share on other sites

citação:

Sim, é esta a mensagem.

Rodrigo Melo

Belo Horizonte - MG

FWH 9.12 / xHarbour 1.1.2 / BCC 5.5.1


id=quote>id=quote>

Chame todos os controles existentes na sua dialog tipo assim ;


Local oGet,oSay,oEtc..

Local cVar:=Space(10),cSay:=Space(10)

Redefine Get oGet Var cVar ID

Redefine Say oSay Var cSay ID

Redefine etc...

id=code>id=code>

Abraços..

Retorne avisando se a dica funcionouid=red>

arvoree.png

Luiz Arruda

Corumbá - MS

ico.corumba@gmai.com

Link to comment
Share on other sites

Kapiaba,

Está assim no progranma:

...

REDEFINE GET oSENHA VAR cSENHA ID 97 PICTURE '@!' OF oDLgSenha

...

Você quer dizer que tenho que carregar a BWCC32.DLL?

Rodrigo Melo

Belo Horizonte - MG

FWH 9.12 / xHarbour 1.1.2 / BCC 5.5.1

Link to comment
Share on other sites

citação:

Kapiaba,

Está assim no progranma:

...

REDEFINE GET oSENHA VAR cSENHA ID 97 PICTURE '@!' OF oDLgSenha

...

Você quer dizer que tenho que carregar a BWCC32.DLL?

Rodrigo Melo

Belo Horizonte - MG

FWH 9.12 / xHarbour 1.1.2 / BCC 5.5.1


id=quote>id=quote>

SOMENTE SE VOCE TIVER CONTROLES BORLAND NO DIALOG, TIPO SAY OU GET OU QUALQUER OUTRO CONTROLE BORLAND.

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

dentinho.jpg?rnd=0.830315402649066

Link to comment
Share on other sites

citação:

Kapiaba,

Existem controles Borland na Dialog...

Já carreguei a BWCC32 mas o erro continua...

O que mais pode ser?

Rodrigo Melo

Belo Horizonte - MG

FWH 9.12 / xHarbour 1.1.2 / BCC 5.5.1


id=quote>id=quote>

O senhor pode me mostrar como o senhor carregou a BWCC32.DLL, ensine-me a ensina-lo.

Faça tambem um .RC do seu DIALOGO e poste aqui para ver-mos que mais tens neste DIALOGO.

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

dentinho.jpg?rnd=0.830315402649066

Link to comment
Share on other sites

Kapiaba,

Para nivelar, vamos por parte:

1) Fiz a conversão da DLL em RES, sem problemas;

2) Verifiquei que acesso algumas Dialogs e outras não, por causa de controles da Borland;

3) Alterei numa Dialog os controles Borland e consegui acessar a Dialog;

4) Para carregar BWCC32.DLL, uso hBorland := loadlibrary("BWCC32.DLL");

5) Mesmo carregado a BWCC32 desta forma continuo sem acessar as demais Dialogs que usam controles Borland.

A dúvida é: como acessar as demais Dialogs que usam controles Borland. Posso substituir os controles sem problemas...

No mais, agradeço sua ajuda.

Agora o senhor entendeu (kkkk)?

Rodrigo Melo

Belo Horizonte - MG

FWH 9.12 / xHarbour 1.1.2 / BCC 5.5.1

Link to comment
Share on other sites

Faça assim:


FUNCTION Main()

LOCAL hBorland

//-> Iguala a Variavel ao Nome da DLL dos Controles Borland

hBorland := LoadLibrary('BWCC32.DLL')

//

//-> Carrega os Recursos da DLL->BWCC32.DLL -> Para Usar Recursos Borland

BWCCRegister( GetResources() )

...

...

...

RETURN NIL

//-----------------------------------------------------------------------------

DLL32 FUNCTION BWCCRegister( hInst AS LONG ) AS WORD PASCAL LIB "BWCC32.DLL"

//-----------------------------------------------------------------------------

id=code>id=code>

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

dentinho.jpg?rnd=0.830315402649066

Link to comment
Share on other sites

Não sou o Kapiaba... ainda icon_smile_big.gif mas como ele deve estar almoçando vamos tentar..


hBorland:= LoadLibrary("BWCC32.DLL")

BWCCRegister( GetResources() )

Define WinDow...

Activate Window..

*-----Carregar Controles Borland

DLL32 FUNCTION BWCCRegister( hInst AS LONG ) AS WORD PASCAL LIB "BWCC32.DLL"

id=code>id=code>

Vc. pode Substituir os controles borland a vontade, eu mesmo faz mais de ano que não uso.

Veja a minha dica anterior (que foi ignorada pct01.gif).. dependendo do controle que vc. tem na dialog, não é possivel carrega-la sem antes defini-la no codigo..

Abraços..

Retorne avisando se a dica funcionouid=red>

arvoree.png

Luiz Arruda

Corumbá - MS

ico.corumba@gmai.com

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...