Jump to content
Fivewin Brasil

Gradiente --- GradioDLG


Luiz Arruda (ICO)

Recommended Posts

Pessoal, não consigo usar o GradioDlg do Toya, não consigo nem mesmo compilar o exemplo dele.

se tento compilar retorna este erro durante a compilação..

Error: Unresolved external '_HB_FUN_GRADIENT' referenced from TOYA001.OBJ

se faço uma function gradient()

o exemplo compila mas com as telas normais, nem mesmo a window fica com o gradiente,

alguém me da uma luz de como fazer..

Luiz Arruda - Corumbá/MS

FWH 2.4 - WS - xHB 09950 - xDev

sai.gifico.corumba@gmail.com

Link to comment
Share on other sites

Pessoal, não consigo usar o GradioDlg do Toya, não consigo nem mesmo compilar o exemplo dele.

se tento compilar retorna este erro durante a compilação..

Error: Unresolved external '_HB_FUN_GRADIENT' referenced from TOYA001.OBJ

se faço uma function gradient()

o exemplo compila mas com as telas normais, nem mesmo a window fica com o gradiente,

alguém me da uma luz de como fazer..

Luiz Arruda - Corumbá/MS

FWH 2.4 - WS - xHB 09950 - xDev

sai.gifico.corumba@gmail.com

Link to comment
Share on other sites

Luiz,

Fiz o Gradient na Dialog usando o Brush.

Só que to procurando o Topico aqui mas nao to achando.

E tambem nao tenho mais os fontes.

Sei que na ocasião kapiaba e vagner que me auxiliaram.

Sei que tinha que coloca o brush no on paint agora só nao lembro como.

Marcelo Michels

marcelo@infototal.com.br

celo.michels@hotmail.com

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

Link to comment
Share on other sites

Bom dia toya.. Aqui no escritorio não temos MSN instalados

Mas assim que chegar em casa.. te ADD..

Versão: FWH 2.4 - WS - xHB 09950 - xDev

Um amigo com a versão 2.6 tb. não tá conseguindo.. só não sei qual xharbour dele..

Um outro amigo com a mesma versão minha diz que conseguiu, to aguardando ele entrar em contato comigo..

mas se vc. puder me adiantar alguma coisa fico agradecido..

Veja seu exemplo como fica se eu colocar uma function Grdient() vazia..

gradidlg.JPG

Luiz Arruda - Corumbá/MS

FWH 2.4 - WS - xHB 09950 - xDev

sai.gifico.corumba@gmail.com

Link to comment
Share on other sites

Ola Ico

Basta vc montar a FUNCAO Gradient()

pos ela esta no fw novo se nao me engano

////////////////////////////////////////////////////////////////////////////////

STATIC FUNCTION GRADIENT( hDC,_aCor1 ,_aCor2 )

LOCAL aRect := _aCor1 // GETCLIENTRECT( oWnd:hWnd )

LOCAL nStep := ( aRect[ 3 ] - aRect[ 1 ] ) / 256

LOCAL nColor := _aCor2

LOCAL oBrush

LOCAL i

*a qui faz o efeito basta achar a cor q. vc quizer fiz

com o cinza

aRect[ 3 ] := nStep

FOR i = 255 TO 0 STEP -1

DEFINE BRUSH oBrush COLOR RGB( i, i, i )

FILLRECT( hDC, aRect, oBrush:hBrush )

RELEASE BRUSH oBrush

aRect[ 1 ] += nStep

aRect[ 3 ] += nStep

nColor-=1

NEXT

RETURN NIL

Marcelo Ferro

Petrópolis - Rj

Fwh7.04/xHarbour 99.71/SqlLib /xMate/WS

Link to comment
Share on other sites

citação:

Ola Ico

Basta vc montar a FUNCAO Gradient()

pos ela esta no fw novo se nao me engano

////////////////////////////////////////////////////////////////////////////////

STATIC FUNCTION GRADIENT( hDC,_aCor1 ,_aCor2 )

LOCAL aRect := _aCor1 // GETCLIENTRECT( oWnd:hWnd )

LOCAL nStep := ( aRect[ 3 ] - aRect[ 1 ] ) / 256

LOCAL nColor := _aCor2

LOCAL oBrush

LOCAL i

*a qui faz o efeito basta achar a cor q. vc quizer fiz

com o cinza

aRect[ 3 ] := nStep

FOR i = 255 TO 0 STEP -1

DEFINE BRUSH oBrush COLOR RGB( i, i, i )

FILLRECT( hDC, aRect, oBrush:hBrush )

RELEASE BRUSH oBrush

aRect[ 1 ] += nStep

aRect[ 3 ] += nStep

nColor-=1

NEXT

RETURN NIL

IPI IPI URRAAAA!!!id=size4>

Lindo, Lindo..

pct05.gif

Deu Certo..

Obrigadão..

Abraços..

Marcelo Ferro

Petrópolis - Rj

Fwh7.04/xHarbour 99.71/SqlLib /xMate/WS


id=quote>id=quote>

Luiz Arruda - Corumbá/MS

FWH 2.4 - WS - xHB 09950 - xDev

sai.gifico.corumba@gmail.com

Link to comment
Share on other sites

citação:

obs

Para que serve e em que lugar eu chamo ele no programa fonte,,, pode dar um exemplos, por favor

luis antonio

SSP/MG


id=quote>id=quote>

Luis aquele exemplo que de mandei estou utilizando este esquema do toya, de uma olhada nele...

Obs: Vlw toya pela funcao, realmente ela é show de bola...

Abraços

Luiz Fernando

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.02,XHARBOUR 09971,PELES,XDEV,VLIB

FW 24,CLIPPER5 5.3e,CDX,WS,BLINKER 7.0

Link to comment
Share on other sites

citação:

luiz ,, tentei compilar o programa, mas esta faltando algumas coisas, res...

mas obrigado

luis antonio


id=quote>id=quote>

Luis estou em mococa hoje amanha de mandarei o exemplo ja compilado...

Abraços

Luiz Fernando

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.02,XHARBOUR 09971,PELES,XDEV,VLIB

FW 24,CLIPPER5 5.3e,CDX,WS,BLINKER 7.0

Link to comment
Share on other sites

citação:

obrigado,, luiz voce viu o curso que ia fazer,,, me avise, pois estou interessado. aqui nao e lugar de falar disso, mas e dificil de achar,,, hshshhshshshsh


id=quote>id=quote>

Já que o assunto é entre "LUIZes"

Mandei pro seu email um exemlo bem simples, um passo a passo que em 05 minutos vc. vai estar fazendo igualzinho..

e não é necessariamente o arquivo RES.. o que eu fiz está com um RC..

Seria de grande ajuda para todos se vc. atualizar seu perfil. em seu cadastro seu email está meio sinistro, não sei o email vai chegar .. verifique..

enviei para este CAMARA@PARAISONET.COM.BR;CAMAR é isso mesmo com este ;CAMAR no final e tudo maiuscula ???

Abraços..

Luiz Arruda - Corumbá/MS

FWH 2.4 - WS - xHB 09950 - xDev

sai.gifico.corumba@gmail.com

Link to comment
Share on other sites

citação:

Alguem poderia dizer,em qual editor de recursos,foi feita a tela 'cadastro1', do exemplo do toya, é que tem um destaque no topo e no rodapé da dialog, eu usa o WS, e não sei como se faz isso.

Devair

FWxH 2.7,xHarbour 0.99.70, xDev V0.65 workshop


id=quote>id=quote>

MOSTRE UM IMAGEM. VAMOS VER ESTE MISTERIO.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Link to comment
Share on other sites


REDEFINE BITMAP oCorreios ID 120 RESOURCE "CORREIOS" TRANSPAREN OF oDlg //ADJUST

id=code>id=code>

PODES USAR TAMBÉM, SENSITIVE SAY(SSAY.PRG), OU SAY NORMAL DA TSAY.PRG STANDARD DE FIVEWIN.

EU NÃO ENTENDI, PORQUE O TOYA ´FRESCOU´ PARA DARA A RESPOSTA. CUALÉ TOYA??

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Link to comment
Share on other sites

Não Precisa de Nada disto..

Pode fazer com qq tipo de dialog.. com "Caption" ou Sem "Caption"

eu particularmente prefiro com "KapTion"

Abra seu email e veja se entende o exemplo..

KAPIABA - Isto é o GradioDLG do Toya

como vc. tá falando dá certo sim, mas a imagem deverá ser apenas uma, o do toya cada um é um.. não sei se expliquei direito...

Abraços..

Luiz Arruda - Corumbá/MS

FWH 2.4 - WS - xHB 09950 - xDev

sai.gifico.corumba@gmail.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...