xBrowse -Adaptada Show e simples de Usar

[Kbelo]

Adaptei a xBrowse para facilitar e agilizar nosso trabalho.

ta 100%, com Recursos, array, Arquivos, etc...

Ta showww.

http://www.fivewin.com.br/exibedicas.asp?id=906

Marcelo Michels

marcelo@infototal.com.br

celo.michels@hotmail.com

xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate.

[Kbelo]

Adaptei a xBrowse para facilitar e agilizar nosso trabalho.

ta 100%, com Recursos, array, Arquivos, etc...

Ta showww.

http://www.fivewin.com.br/exibedicas.asp?id=906

Marcelo Michels

marcelo@infototal.com.br

celo.michels@hotmail.com

xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate.

[LUIS1361303120]

no xbrowse, tem jeito de quando for pulando de registro, colocar uma imagem aparecendo do lado referente a imagem em .JPG de um produto

luis

[Kbelo]

Isso vc faz com qualquer Browse ou Listbox.

Coloque

"on change Carrega()" ou

oBrw:bChange := {Carrega()}

id=code>id=code>

Defina sua Imagem Corretamente

REDEFINE IMAGE oIMG ID 104 OF oDlg adjust

id=code>id=code>

Na Função carrega faça.

*=*=*=*=*=*=*=*=*=*=*=*=*

Static Function Carrega

*=*=*=*=*=*=*=*=*=*=*=*=*

oIMG:LoadBmp( "MinhaImagem.jpg" )

return

id=code>id=code>

Marcelo Michels

marcelo@infototal.com.br

celo.michels@hotmail.com

xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate.

[alcmore]

To tentanto compilar o exemplo abaixo e da o seguinte erro.

Syntax erro> syntax erro at "xbrowse"

local oChild, oBrw, oCol

local aStruc

vProdutos := {}

aadd(vProdutos,{"Açucar mascavo ","00001","Feira de Santana"})

aadd(vProdutos,{"Açucar refinado","00002","Criciuma "})

aadd(vProdutos,{"Sal grosso ","00003","Feira de Santana"})

aadd(vProdutos,{"Leite de vaca ","00004","Salvador "})

aadd(vProdutos,{"Leite com Soda ","00005","Florianopolis "})

aadd(vProdutos,{"Leite sem soda ","00006","Criciuma "})

DEFINE DIALOG oChild RESOURCE "TEST" TITLE "Vetor Basico"

REDEFINE xBrowse oBrw ;

FIELDS vProdutos[oBrw],;

vProdutos[oBrw],;

vProdutos[oBrw];

HEADERS "Nome","Codigo","Endereço";

FONT oFont;

ID 101 OF oChild;

ARRAY vProdutos

ACTIVATE WINDOW oChild ON INIT oBrw:SetFocus()

RETURN NIL

id=code>id=code>

no Workshop qual browse eu defino (listboxa,tcbrowse..)

Devair

FWxH 2.7,xHarbour 0.99.70, xDev V0.65 workshop

devair.lino@bol.com.br

[Kbelo]

No exemplo que mandei tem um RC pegue aquele browse que tem la e copie para sua tela.

Ele é um TXBrowse mas este nao tem no Workshop.

Com o Peles vc inclui o controle padrão e muda a classe para txbrowse.

Para usar xBrowse nao se esqueça de incliuir

#Define "xbrowse.ch"

e como vc esta usando o meu exemplo utiliza a classe e o CH que esta no exemplo.

Qualque duvida é só chamar.

Marcelo Michels

marcelo@infototal.com.br

celo.michels@hotmail.com

xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate.

[alcmore]

Marcelo, primeiro obrigado por responder.

O erro continua, fiz assim:

- compilei junto com o meu programa o teu xbrowse.prg

- #Define xbrowse.ch (dúvida é: define ou include), coloquei define sem aspas no xbrowse.ch.

- coloquei o xbrowse.ch dentro da pasta do meu prg.

- copiei o seu recurso e colei em minha dialog

Se puder me diga onde estou errando.

Devair

FWxH 2.7,xHarbour 0.99.70, xDev V0.65 workshop

devair.lino@bol.com.br

[Kbelo]

citação:

Marcelo, primeiro obrigado por responder.

O erro continua, fiz assim:

- compilei junto com o meu programa o teu xbrowse.prg

- #Define xbrowse.ch (dúvida é: define ou include), coloquei define sem aspas no xbrowse.ch.

- coloquei o xbrowse.ch dentro da pasta do meu prg.

- copiei o seu recurso e colei em minha dialog

Se puder me diga onde estou errando.

Devair

FWxH 2.7,xHarbour 0.99.70, xDev V0.65 workshop

devair.lino@bol.com.br

---

id=quote>id=quote>

Pow foi mau.

É include mesmo.

#include "xBrowse.ch"

Marcelo Michels

marcelo@infototal.com.br

celo.michels@hotmail.com

xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate.

[marceloCR]

Daeee chará

como vaii vc??

compilei seu exemplo e deu os seguintes erros:

'_HB_FUN_GRADIENT'

'_HB_FUN_TRANSBMP'

'_HB_FUN_GETWINDOWTHREADPROCESSID'

que funções sao essas?

Marcelo Campos

[Kbelo]

Qual a Versão do FW que vc usa?

Veja se vc esta compilando a msimsg32.lib.

Mostre a sua compilação.

Marcelo Michels

marcelo@infototal.com.br

celo.michels@hotmail.com

xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate.

[marceloCR]

eu uso a fwh27+xharbour09951

essa lib eu nao possuo, será que é por isso?

[Kbelo]

Esta na Pasta da Sua BCC.

PSDK\msimg32.lib

veja la que tem.

Marcelo Michels

marcelo@infototal.com.br

celo.michels@hotmail.com

xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate.