Get com bordas redondas.

kapiaba · September 8, 2009

Galera, a partir de qual versÃ£o, isto foi implementado?

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=16587

AbraÃ§os.

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

kapiaba · September 8, 2009

Galera, a partir de qual versÃ£o, isto foi implementado?

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=16587

AbraÃ§os.

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

Luiz Fernando · September 8, 2009

citaÃ§Ã£o:
Galera, a partir de qual versÃ£o, isto foi implementado?

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=16587

AbraÃ§os.

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

id=quote>id=quote>

Ola Kapiaba, na verdade esta rotina nÃ£o Ã© do fivewin, e sim, uma rotina criada por um usuario, mais sinceramente fica muito feio, nÃ£o gostei, muito melhor a vget, alem de ser um produto nacional(rsrsrs)...

AbraÃ§os

Luiz Fernando

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

kapiaba · September 8, 2009

citaÃ§Ã£o:

citaÃ§Ã£o:
Galera, a partir de qual versÃ£o, isto foi implementado?

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=16587

AbraÃ§os.

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

id=quote>id=quote>
Ola Kapiaba, na verdade esta rotina nÃ£o Ã© do fivewin, e sim, uma rotina criada por um usuario, mais sinceramente fica muito feio, nÃ£o gostei, muito melhor a vget, alem de ser um produto nacional(rsrsrs)...

AbraÃ§os

Luiz Fernando

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

id=quote>id=quote>

VALEU, OBRIGADO.

SE FICA FEIO, ISTO NÃƒO POOOODDDYYYYY!!

NÃ£o vou usar, Kruzes!!!

AbraÃ§os.

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

Marca · September 8, 2009

OlÃ¡ a todos

Se tirarem a borda do get o efeito fica bem melhor.

Marcelo Ferro

PetrÃ³polis - Rj

Fwh9.01/xHarbour 1.1.0 Simplex /SqlLib /xMate/WS e Pelles

Luiz Fernando · September 8, 2009

citaÃ§Ã£o:
OlÃ¡ a todos

Se tirarem a borda do get o efeito fica bem melhor.

Marcelo Ferro

id=quote>id=quote>

Ola Marcela blz,fiz tb este teste, mais a cor do GET nÃ£o Ã© preenchida nos cantos aonde faz o arredondamento...

AbraÃ§os

Luiz Fernando

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

kapiaba · September 8, 2009

citaÃ§Ã£o:

citaÃ§Ã£o:
OlÃ¡ a todos

Se tirarem a borda do get o efeito fica bem melhor.

Marcelo Ferro

id=quote>id=quote>
Ola Marcela blz,fiz tb este teste, mais a cor do GET nÃ£o Ã© preenchida nos cantos aonde faz o arredondamento...

AbraÃ§os

Luiz Fernando

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

id=quote>id=quote>

Pequena correÃ§Ã£o: Ã‰ MARCELO!! kCte!! kkkk

NÃƒO Ã‰ UMA FUNÃ‡ÃƒO?? NÃƒO DÃ PARA ALTERA-LA??

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

Marca · September 8, 2009

citaÃ§Ã£o:
Pequena correÃ§Ã£o: Ã‰ MARCELO!! kCte!! kkkk

NÃƒO Ã‰ UMA FUNÃ‡ÃƒO?? NÃƒO DÃ PARA ALTERA-LA??

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

id=quote>id=quote>

hahaha Obrigado Kapiaba

Sim Ã© uma funÃ§Ã£o e basta trocar a cor onde

aqui vc corrige para a cor de seu get

hBrush := CreateSolidBrush( RGB( 255, 255, 255 ) )

que nÃ£o ira acontecer o problema

Marcelo Ferro

PetrÃ³polis - Rj

Fwh9.01/xHarbour 1.1.0 Simplex /SqlLib /xMate/WS e Pelles

Editado por - marca on 08/09/2009 15:43:59

September 8, 2009

Bacaninha

http://www.redstarsoft.net

September 8, 2009

Alterado a cor

http://www.redstarsoft.net

kapiaba · September 8, 2009

citaÃ§Ã£o:
Alterado a cor

xHarbour1.1.0|Fwh9.2|Bcc55|Ribbonbar.lib|Pelles|MySQL|PostgreSQL

http://www.redstarsoft.net

id=quote>id=quote>

Gostei Lailton, por favor POSTE A FUNÃ‡ÃƒO AQUI, para que todos possam pegar.

Obrigado.

AbraÃ§os.

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

September 8, 2009

na hora de criar a tela no (PELLEs ou WORKSHOP) em BORDER coloco NO

a altura coloque 10

redefine get oGetb var cVarb ID 4002 of odlg color CLR_WHITE,CLR_BLUE

oDlg:bPainted := {|| SetGetRounded(oGetb, oDlg, CLR_BLUE ) }

function SetGetRounded( oControl, oDlg, cCor )

local hBrush, hOldBrush

default cCor:= RGB( 255, 255, 255 ) // padrao a cor fica branco

if "TGET" $ oControl:ClassName()

hBrush := CreateSolidBrush( cCor )

hOldBrush := SelectObject( oDlg:hDC, hBrush )

RoundRect( oDlg:hDC, oControl:nLeft - 3 ,;

oControl:nTop - 2 ,;

oControl:nLeft + oControl:nWidth + 3,;

oControl:nTop + oControl:nHeight + 2,;

oControl:nHeight / 2 ,;

oControl:nWidth )

SelectObject( oDlg:hDC, hOldBrush )

DeleteObject( hBrush )

endif

return

http://www.redstarsoft.net

kapiaba · September 8, 2009

Uma pergunta:

oDlg:bPainted := {|| SetGetRounded(oGetb, oDlg, CLR_BLUE ) }

Se eu quiser colocar no ON INIT, eu posso?

AbraÃ§os.

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

LuisÃ£o · September 8, 2009

Junte a funÃ§Ã£o do Lailton com essa aqui, e vocÃª pode definir a cor e mudar todos os GETs da dialog de uma sÃ³ vez:

function SetGetRounded( oDlg )

local hBrush, hOldBrush, oControl

FOR WX = 1 TO LEN(oDLG:aControls)

oControl:= oDLG:aControls[WX]

if "TGET" $ oControl:ClassName()

hBrush := CreateSolidBrush( RGB( 255, 255, 255 ) )

hOldBrush := SelectObject( oDlg:hDC, hBrush )

RoundRect( oDlg:hDC, oControl:nLeft - 3 ,;

oControl:nTop - 2 ,;

oControl:nLeft + oControl:nWidth +3 ,;

oControl:nTop + oControl:nHeight + 2 ,;

oControl:nHeight / 2 ,;

oControl:nWidth )

SelectObject( oDlg:hDC, hOldBrush )

DeleteObject( hBrush )

endif

id=code>id=code>

Luis Fernando Jr.(LuisÃ£o)

"Seize the day or die regretting the time you lost"

FWH8.1 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

kapiaba · September 8, 2009

citaÃ§Ã£o:
Junte a funÃ§Ã£o do Lailton com essa aqui, e vocÃª pode definir a cor e mudar todos os GETs da dialog de uma sÃ³ vez:
function SetGetRounded( oDlg )

local hBrush, hOldBrush, oControl

FOR WX = 1 TO LEN(oDLG:aControls)

oControl:= oDLG:aControls[WX]

if "TGET" $ oControl:ClassName()

hBrush := CreateSolidBrush( RGB( 255, 255, 255 ) )

hOldBrush := SelectObject( oDlg:hDC, hBrush )

RoundRect( oDlg:hDC, oControl:nLeft - 3 ,;

oControl:nTop - 2 ,;

oControl:nLeft + oControl:nWidth +3 ,;

oControl:nTop + oControl:nHeight + 2 ,;

oControl:nHeight / 2 ,;

oControl:nWidth )

SelectObject( oDlg:hDC, hOldBrush )

DeleteObject( hBrush )

endif

next

return(.t.)

id=code>id=code>
Luis Fernando Jr.(LuisÃ£o)

"Seize the day or die regretting the time you lost"

FWH8.1 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

id=quote>id=quote>

Excelente!!! Adoro isto, comeÃ§o a brincar com voces e olha o Show!!

Obrigado.

AbraÃ§os.

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

Luiz Arruda (ICO) · September 8, 2009

Como assim Juntar ??? tentei "juntar" e deu esse erro..

Error description: Error BASE/1004 Class: 'ARRAY' has no exported method: ACONTROLS

Luiz Arruda - Corumba(MS)

FiveWin 9.04

[x]Harbour

xDev

WS

--

NÃ£o existe nada de completamente errado no mundo mesmo um relÃ³gio parado consegue estar certo duas vezes por dia.

-

NÃ£o Abandone Seu TÃ³picoid=red>

September 8, 2009

Boa LuisÃ£o eu tambem ja estava montando isso

agora todos os GetÂ´s ficaram no estyle

mto baum

http://www.redstarsoft.net

Luiz Arruda (ICO) · September 8, 2009

Desculpem ai ... descobri

AbraÃ§os..

Luiz Arruda - Corumba(MS)

FiveWin 9.04

[x]Harbour

xDev

WS

--

NÃ£o existe nada de completamente errado no mundo mesmo um relÃ³gio parado consegue estar certo duas vezes por dia.

-

NÃ£o Abandone Seu TÃ³picoid=red>

kapiaba · September 8, 2009

citaÃ§Ã£o:
Desculpem ai ... descobri

AbraÃ§os..

Luiz Arruda - Corumba(MS)

FiveWin 9.04

[x]Harbour

xDev

WS

--

NÃ£o existe nada de completamente errado no mundo mesmo um relÃ³gio parado consegue estar certo duas vezes por dia.

-

NÃ£o Abandone Seu TÃ³picoid=red>

id=quote>id=quote>

Assim nÃ£o Luiz, POSTE O Â´JUNTADOÂ´ Porfa.

Eita forum Â´porretaÂ´.

Obrigado

AbraÃ§os.

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

September 8, 2009

Agora melhorado

#include "fivewin.ch"

function main()

public odlg, oget, cVar:=space(50),ogetb, cVarb:=space(50)

define dialog odlg REsource "TELA"

oDlg:bPainted:= {|| SetGetRounded(oDlg, CLR_BLUE) }

redefine get oGet var cVar ID 4001 of odlg color CLR_WHITE,CLR_BLUE

redefine get oGetb var cVarb ID 4002 of odlg color CLR_WHITE,CLR_BLUE

activate dialog odlg centered

return

function SetGetRounded( _oDlg, cCor )

local hBrush, hOldBrush, Wx, oControl

default cCor:= RGB( 255, 255, 255 )

FOR WX = 1 TO LEN(_oDlg:aControls)

oControl:= _oDlg:aControls[WX]

if "TGET" $ oControl:ClassName()

hBrush := CreateSolidBrush( cCor )

hOldBrush := SelectObject( oDlg:hDC, hBrush )

RoundRect( oDlg:hDC, oControl:nLeft - 3 ,;

oControl:nTop - 2 ,;

oControl:nLeft + oControl:nWidth + 3,;

oControl:nTop + oControl:nHeight + 2,;

oControl:nHeight / 2 ,;

oControl:nWidth )

SelectObject( oDlg:hDC, hOldBrush )

DeleteObject( hBrush )

endif

NEXT WX

return Nil

id=code>id=code>

Resultado:

gostei :D:D:D

http://www.redstarsoft.net

Marca · September 8, 2009

citaÃ§Ã£o:
Agora melhorado
#include "fivewin.ch"

function main()

public odlg, oget, cVar:=space(50),ogetb, cVarb:=space(50)

define dialog odlg REsource "TELA"

oDlg:bPainted:= {|| SetGetRounded(oDlg, CLR_BLUE) }

redefine get oGet var cVar ID 4001 of odlg color CLR_WHITE,CLR_BLUE

redefine get oGetb var cVarb ID 4002 of odlg color CLR_WHITE,CLR_BLUE

activate dialog odlg centered

return

function SetGetRounded( _oDlg, cCor )

local hBrush, hOldBrush, Wx, oControl

default cCor:= RGB( 255, 255, 255 )

FOR WX = 1 TO LEN(_oDlg:aControls)

oControl:= _oDlg:aControls[WX]

if "TGET" $ oControl:ClassName()

hBrush := CreateSolidBrush( cCor )

hOldBrush := SelectObject( oDlg:hDC, hBrush )

RoundRect( oDlg:hDC, oControl:nLeft - 3 ,;

oControl:nTop - 2 ,;

oControl:nLeft + oControl:nWidth + 3,;

oControl:nTop + oControl:nHeight + 2,;

oControl:nHeight / 2 ,;

oControl:nWidth )

SelectObject( oDlg:hDC, hOldBrush )

DeleteObject( hBrush )

endif

NEXT WX

return Nil

id=code>id=code>
Resultado:

gostei :D:D:D

xHarbour1.1.0|Fwh9.2|Bcc55|Ribbonbar.lib|Pelles|MySQL|PostgreSQL

http://www.redstarsoft.net

id=quote>id=quote>

Somente uma pequena correÃ§Ã£o na funÃ§Ã£o do Lailton

Marcelo Ferro

PetrÃ³polis - Rj

Fwh9.01/xHarbour 1.1.0 Simplex /SqlLib /xMate/WS e Pelles

LUIS1361303120 · September 8, 2009

E CASO QUEIRA COLOCA COR DE FUNDO COMO AMARELO, ACRESCENEI ESTA LINHA:

hCtlFocus := SetColor(nRgb( 255, 255, 000 ))

Function SetGetRounded( _oDlg, cCor )

local hBrush, hOldBrush, Wx, oControl

default cCor:= RGB( 255, 255, 255 )

FOR WX = 1 TO LEN(_oDlg:aControls)

oControl:= _oDlg:aControls[WX]

if "TGET" $ oControl:ClassName()

hBrush := CreateSolidBrush( cCor )

hCtlFocus := SetColor(nRgb( 255, 255, 000 ))

hOldBrush := SelectObject( _oDlg:hDC, hBrush )

RoundRect( _oDlg:hDC, oControl:nLeft - 3 ,;

oControl:nTop - 2 ,;

oControl:nLeft + oControl:nWidth + 3,;

oControl:nTop + oControl:nHeight + 2,;

oControl:nHeight / 2 ,;

oControl:nWidth )

SelectObject( _oDlg:hDC, hOldBrush )

DeleteObject( hBrush )

endif

NEXT WX

return Nil

September 8, 2009

Isso mesmo Sorry

function SetGetRounded( _oDlg, cCor )

local hBrush, hOldBrush, Wx, oControl

default cCor:= RGB( 255, 255, 255 )

FOR WX = 1 TO LEN(_oDlg:aControls)

oControl:= _oDlg:aControls[WX]

if "TGET" $ oControl:ClassName()

hBrush := CreateSolidBrush( cCor )

hOldBrush := SelectObject( _oDlg:hDC, hBrush )

RoundRect( _oDlg:hDC, oControl:nLeft - 3 ,;

oControl:nTop - 2 ,;

oControl:nLeft + oControl:nWidth + 3,;

oControl:nTop + oControl:nHeight + 2,;

oControl:nHeight / 2 ,;

oControl:nWidth )

SelectObject( _oDlg:hDC, hOldBrush )

DeleteObject( hBrush )

endif

NEXT WX

return Nil

http://www.redstarsoft.net

CTOAS · September 8, 2009

Amigos...

FunÃ§Ã£o muito boa, sÃ³ um detalhe... Quando o GET esta DISABLE() fica as bordas na cor mas o nÃºcleo do GET fica branco com as letras cinzas.

[]'s

Email: christiano.silveira@gmail.com

September 8, 2009

estou tentando arumar o disable mais ainda sem sucesso.

http://www.redstarsoft.net

Get com bordas redondas.

Recommended Posts

Link to comment

Share on other sites

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Guest n/a

Link to comment

Share on other sites

Guest n/a

Link to comment

Share on other sites

Link to comment

Share on other sites

Guest n/a

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Guest n/a

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Guest n/a

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Guest n/a

Link to comment

Share on other sites

Link to comment

Share on other sites

Guest n/a

Link to comment

Share on other sites

Join the conversation