WHEN( .F. ) NO FIVEWIN 32 BITS

[kapiaba]

citação:

Kapiaba

O Problema e com a sua TGET.PRG, eu usei a minha e esta funcionando 100% da forma que vc estava querendo.

O conteudo do Get aparece no meio certinho, mas om a sua so aparece da forma com problema.

Se vc quiser as diferencas da minha TGET.PRG para a sua e so me mandar um e-mail que eu lhe envio o que esta diferente( FWH 2.6 ).

Marcelo Gomes

elitenet@terra.com.br

FW 2.3C/CLIPPER 5.2E/BLINKER 7.0

---

id=quote>id=quote>

OLA MARCELO... A VERSAO QUE VOCE ME ENVIOU, TEM O MESMO PROBLEMA DA VERSAO DO FIVEWIN 2.7, ELA ALINHA, ISTO A MINHA TAMBEM FAZIA, O QUE EU ESTOU RECLAMANDO, É A COR DO GET COM WHEN(.F.), O GET FICA COM ASPECTO DE MORTO, DEPOIS QUE O LINHARES FEZ AS MUDANCAS, A COR FICOU REDONDA, MAS AI, DESALINHOU OS GETS COM WHEN(.F.). Mesmo assim, muito obrigado meu querido. Abraços.

FiveWin 2.7 for xharbour Ferrari Vermelhinha valorizando... this is a solution, by Vagner Wirts, in breve wait-me.

O link para download do projeto xDev é este:

http://www.sqllib.com.br/xDev.zip

http://www.sqlmanager.net/en/products/mysql/manager/download

João Santos - São Paulo.

kmt_karinha@pop.com.br

FW 2.3C CLIP 5.3B FWH 2.7 - BLINKER 7.0 WorkShop.Exe

[kapiaba]

citação:

Ola

Kapiaba, sua tGet está bichada ou bixada.Baixei em Dicas e funcionou perfeitamente.Tente não compilar a Tget junto com o seu aplicativo.

Yrece

---

id=quote>id=quote>

OLà YRECE... A VERSÃO KE VOCE ME ENVIOU, TEM O MESMO PROBLEMA DA MINHA VERSAO DO FIVE 2.7, O QUE VOCE DISSE NO EMAIL, É VERDADE, MAS, É KE VOCE NÃO É CHATO E EXIGENTE COMO EU. EU GOSTO DE TUDO NOS MINIMOS DETALHES. POR ISSO, ESTOU INSISTINDO KE TEM ERRO NA CLASSE, O AUTOR, Jà RECONHECEU QUE TEM ERRO, CORRIGIU, MAS PARCIALMENTE, EM TODAS AS VERSOES DO FIVE PARA [X]HARBOUR, ELE KGOU A CLASSE. hehehehe.

YRECE... SE O GET COM WHEN(.T.) FICA VERMELHINHO QUE NEM MINHA FERRARI, O GET QUE TEM WHEN(.F.), TEM KE FICAR IGUAL, ERA ASSIM NA MINHA VERSAO EM 16 BITS... ORAS, TEMOS KE EVOLUIR, NAO REGREDIR. VEJA O FORUM INTERNACIONAL, SUPER FERAS DE LÃ, Jà ESTÃO CHEGANDO JUNTO... ESTOU 'PAGANDO' PRA VER... AFINAL, kem é o mais kruel do forum??? heim? heim?

FiveWin 2.7 for xharbour Ferrari Vermelhinha valorizando... this is a solution, by Vagner Wirts, in breve wait-me.

Não vous desesperei Vagner... Trankilo... trankilo... xexta, é nóis na fita. Abraços karinhosos.

O link para download do projeto xDev é este:

http://www.sqllib.com.br/xDev.zip

http://www.sqlmanager.net/en/products/mysql/manager/download

João Santos - São Paulo.

kmt_karinha@pop.com.br

FW 2.3C CLIP 5.3B FWH 2.7 - BLINKER 7.0 WorkShop.Exe

[pauloaraujo]

"AFINAL, kem é o mais kruel do forum??? heim? heim?"

http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=4700

[kapiaba]

citação:

"AFINAL, kem é o mais kruel do forum??? heim? heim?"

http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=4700

---

id=quote>id=quote>

FiveWin 2.7 for xharbour Ferrari Vermelhinha valorizando... this is a solution, by Vagner Wirts, in breve wait-me.

Trankilo... trankilo... xexta, é nóis na fita. Abraços karinhosos

Estou em Stand By, Esperando o Linares... Ele não tem noção de com kem se meteu... Ele ke se cuide. Não to nem ai, se ele é o dono do FIVEWIN MUNDIAL. Se tiver ke kebrá-lo no meio...

Minha Ferrari 2.7 for xHarbour, tá mais linda do ke nunca.

Stand By... Wait-me.

O link para download do projeto xDev é este:

http://www.sqllib.com.br/xDev.zip

http://www.sqlmanager.net/en/products/mysql/manager/download

João Santos - São Paulo.

kmt_karinha@pop.com.br

FW 2.3C CLIP 5.3B FWH 2.7 - BLINKER 7.0 WorkShop.Exe

[kapiaba]

Vejam a resposta do Antonio Linares:

http://fivetechsoft.com/forums/viewtopic.php?t=980

Vagner... Você konkorda? Veja seu lindo nome do Forum Internacional.

Kem faria isso por você??? heim? heim?

Kem é o mais KRUEL do MUNDO???? hehehehehehehehehehehe.

Stand by... Linares... Linares....

O link para download do projeto xDev é este:

http://www.sqllib.com.br/xDev.zip

http://www.sqlmanager.net/en/products/mysql/manager/download

João Santos - São Paulo.

kmt_karinha@pop.com.br

FW 2.3C CLIP 5.3B FWH 2.7 - BLINKER 7.0 WorkShop.Exe

[vagner]

Olá Kapi,

Bom ele só vez um pouco diferente do que eu montei, mas funciona do mesmo jeito

Vagner Wirts

Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5

[kapiaba]

Perfecto, Impecable, Antonio... Muchas Gracias... Usted és Fantástico, Increíble.

Mui Bueno. Excelente, Noble.

Solución Final: By Antonio Linares.

#define ES_CENTER 1

#define ES_RIGHT 2

#define ES_LEFT 0

#Define TA_LEFT 0

#Define TA_RIGHT 2

#Define TA_CENTER 6

METHOD Paint() CLASS TGet

local aInfo := ::DispBegin()

Local hOldFont

if ::oBrush != nil

FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush )

else

CallWindowProc( ::nOldProc, ::hWnd, WM_ERASEBKGND, ::hDC, 0 )

endif

if IsWindowEnabled( ::hWnd )

CallWindowProc( ::nOldProc, ::hWnd, WM_PAINT, ::hDC, 0 )

else

SetTextColor( ::hDC, ::nClrText )

SetBkColor( ::hDC, ::nClrPane )

hOldFont = SelectObject( ::hDC, ::oFont:hFont )

do case

case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_CENTER )

SetTextAlign( ::hDC, TA_CENTER )

ExtTextOut( ::hDC, 0, ::nWidth() / 2, ;

{ 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) )

case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_RIGHT )

SetTextAlign( ::hDC, TA_RIGHT )

ExtTextOut( ::hDC, 0, ::nWidth() - 4, ;

{ 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) )

otherwise

SetTextAlign( ::hDC, TA_LEFT )

ExtTextOut( ::hDC, 0, 0, ;

{ 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) )

endcase

SelectObject( ::hDC, hOldFont )

endif

if ValType( ::bPainted ) == "B"

Eval( ::bPainted, ::hDC, ::cPS, Self )

endif

::DispEnd( aInfo )

return 1

Gracias También a Vagner Wirts. vwirts@ig.com.br

Saludos, Desde São Paulo - Brazil.

O link para download do projeto xDev é este:

http://www.sqllib.com.br/xDev.zip

http://www.sqlmanager.net/en/products/mysql/manager/download

João Santos - São Paulo.

kmt_karinha@pop.com.br

FW 2.3C CLIP 5.3B FWH 2.7 - BLINKER 7.0 WorkShop.Exe

[kapiaba]

Solução Final By Vagner Wirts... Escolham a Vontade. Como sempre, temos sempre duas Opções.

o gostoso do Fivewin, é que ficamos, absolutamente ilimitados. Pelos menos, euzinho... hehehe

#define ES_CENTER 1

#define ES_RIGHT 2

#define ES_LEFT 0

#Define TA_LEFT 0

#Define TA_RIGHT 2

#Define TA_CENTER 6

METHOD ReDefine( nId, bSetGet, oWnd, nHelpId, cPict, bValid, nClrFore,;

nClrBack, oFont, oCursor, cMsg, lUpdate, bWhen, bChanged,;

lReadOnly, lSpinner, bUp, bDown, bMin, bMax ) CLASS TGet

DEFAULT oWnd := GetWndDefault(),;

nClrFore := GetSysColor( COLOR_WINDOWTEXT ),;

nClrBack := GetSysColor( COLOR_WINDOW ),;

lUpdate := .f., lReadOnly := .f., lSpinner := .f.

// Vagner Wirts em 21/12/2005

::cCaption = If( cPict == nil, cValToChar( Eval( bSetGet ) ), ;

Transform( Eval( bSetGet ), cPict ) )

if Eval( bSetGet ) == nil

Eval( bSetGet, ::cCaption )

endif

::nId = nId

::oWnd = oWnd

::nHelpId = nHelpId

::bSetGet = bSetGet

::oGet = GetNew( 20, 20, bSetGet,, cPict )

::bValid = bValid

::lDrag = .f.

::lCaptured = .f.

::lPassword = .f.

::oFont = oFont

::oCursor = oCursor

::cMsg = cMsg

::lUpdate = lUpdate

::bWhen = bWhen

::bChange = bChanged

::nPos = 1 // 0 14/Aug/98

::lReadOnly = lReadOnly

::lFocused = .f.

::cPicture = cPict

::SetColor( nClrFore, nClrBack )

::nClrDef := nClrBack

if lSpinner

::Spinner( bUp, bDown, bMin, bMax )

endif

oWnd:DefControl( Self )

return Self

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

METHOD Paint() CLASS TGet

local aInfo := ::DispBegin()

// Vagner Wirts em 21/12/2005

Local aRect, nPosTitu, hDC

// Mudanca(Cambio) enviada(o) por Antonio Linares en 20/12/2005

local hOldFont

// Vagner Wirts em 21/12/2005

aRect := GetClientRect(::hWnd)

if ::oBrush != nil

FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush )

else

CallWindowProc( ::nOldProc, ::hWnd, WM_ERASEBKGND, ::hDC, 0 )

endif

//-> Antonio Linares en 20/12/2005

if IsWindowEnabled( ::hWnd )

CallWindowProc( ::nOldProc, ::hWnd, WM_PAINT, ::hDC, 0 )

else

SetTextColor( ::hDC, ::nClrText )

SetBkColor( ::hDC, ::nClrPane )

hOldFont = SelectObject( ::hDC, ::oFont:hFont )

do case

case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_CENTER ) // 1

//Vagner Wirts em 21/12/2005

nPosTitu := ES_CENTER

// SetTextAlign( ::hDC, TA_CENTER ) // 6

case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_RIGHT ) // 2

//Vagner Wirts

nPosTitu := ES_RIGHT

// SetTextAlign( ::hDC, TA_RIGHT ) // 2

otherwise

//Vagner Wirts

nPosTitu := ES_LEFT

// SetTextAlign( ::hDC, TA_LEFT ) // 0

endcase

// Vagner Wirts em 21/12/2005

DrawText(::hDC,::cCaption,aRect,nPosTitu+4)

// Vagner Wirts em 20/12/2005

// ExtTextOut( ::hDC, 0, 0,;

// { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) )

SelectObject( ::hDC, hOldFont )

endif

if ValType( ::bPainted ) == "B"

// Eval( ::bPainted, ::hDC, ::cPS, Self )

endif

::DispEnd( aInfo )

// Fim da Mudanca - Fin del Cambio

return 1

Gracias, También a Antonio Linares. Perfecto, como Vagner Wirts the best of the World.

Estou muito feliz com as respostas dos dois. Obrigado.

O link para download do projeto xDev é este:

http://www.sqllib.com.br/xDev.zip

http://www.sqlmanager.net/en/products/mysql/manager/download

João Santos - São Paulo.

kmt_karinha@pop.com.br

FW 2.3C CLIP 5.3B FWH 2.7 - BLINKER 7.0 WorkShop.Exe