WHEN( .F. ) NO FIVEWIN 32 BITS

[kapiaba]

PERSONAS, ALGUEM SABE ME DIZER COMO RESOLVER, PARA QUE O FOCO DO GET EM UM WHEN( .F. ) FIQUE COLORIDO COMO NO FIVEWIN 16 BITS??

Jà ALTEREI A TGET.PRG, INCORPOREI AO PROJETO, MAS O GET COM WHEN( .F. ), CONTINUA COM ASPECTO DE 'MORTO', E EU NÃO GOSTO ASSIM... TEM JEITO??

MARLLON... ACHO KE ESTA, SÓ VOCÊ SABE... Abraços.

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]

PERSONAS, ALGUEM SABE ME DIZER COMO RESOLVER, PARA QUE O FOCO DO GET EM UM WHEN( .F. ) FIQUE COLORIDO COMO NO FIVEWIN 16 BITS??

Jà ALTEREI A TGET.PRG, INCORPOREI AO PROJETO, MAS O GET COM WHEN( .F. ), CONTINUA COM ASPECTO DE 'MORTO', E EU NÃO GOSTO ASSIM... TEM JEITO??

MARLLON... ACHO KE ESTA, SÓ VOCÊ SABE... Abraços.

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]

PERSONAS, ALGUEM SABE ME DIZER COMO RESOLVER, PARA QUE O FOCO DO GET EM UM WHEN( .F. ) FIQUE COLORIDO COMO NO FIVEWIN 16 BITS??

Jà ALTEREI A TGET.PRG, INCORPOREI AO PROJETO, MAS O GET COM WHEN( .F. ), CONTINUA COM ASPECTO DE 'MORTO', E EU NÃO GOSTO ASSIM... TEM JEITO??

MARLLON... ACHO KE ESTA, SÓ VOCÊ SABE... Abraços.

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

[gilmer]

Olá,

Remova o objeto anterior da LIB, ex:

TLIB fivehx.lib -TGET

[kapiaba]

citação:

Olá,

Remova o objeto anterior da LIB, ex:

TLIB fivehx.lib -TGET

---

id=quote>id=quote>

GILMER...

DÃ NA MESMA SE EU ALTERAR A CLASSE NO C:\FWH27\SOURCES\CLASSES\TGET.PRG, E RECOMPILAR A LIB DO FIVEHX.LIB???

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]

Não vai nem por decreto, Alguem sabe qual destes comandos deveria ser .T.??

Ou não é na TGET.PRG que eu tenho que alterar???

DEFAULT nClrFore := GetSysColor( COLOR_WINDOWTEXT ),;

nClrBack := GetSysColor( COLOR_WINDOW ),;

oWnd := GetWndDefault(),;

nHeight := If( oFont != nil, oFont:nHeight, 12 ),;

lDesign := .f., lPixel := .f., lUpdate := .f.,;

lCenter := .f., lRight := .f.,;

lReadOnly := .f., lPassword := .f.,;

lSpinner := .f.,;

nRow := 0, nCol := 0, lNoBorder := .f.,;

bSetGet := bSETGET( cText )

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

[jcleoner]

João

Comigo tambem acontece isso. No fw16 quando usava o when de forma que o campo ficasse bloqueado, o conteúdo dele ficava normal, já com o fw32 ele fica meio apagadinho. Já tentei de tudo e não consegui.

Se usar o readonly fica pior ainda pois fica mais apagado ainda.

Se descobrir me avise.

José Carlos

Guarulhos-SP

FW 2.0 / Clipper 5.2e / WS | FWH 2.7 / xHarbour 99.5 / xMate / Pelles / SqlLib(MySql)

[vagner]

VGet nele

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]

citação:

VGet nele

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

---

id=quote>id=quote>

JOSÉ CARLOS... ATÉ O PRESENTE MOMENTO, O QUE DESCOBRI, É O SEGUINTE: NÃO É A TGET.PRG QUE CONTROLA ISTO, É A CLASSE QUE CONTROLA O WHEN OU BWHEN... VOCE SABE QUE CLASSE KE CONTROLA ESTE COMANDO???

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

Editado por - kapiaba on 20/12/2005 15:40:15

[kapiaba]

vamos ver se as feras do internacional sabem... duvido.

http://fivetechsoft.com/forums/

http://fivetechsoft.com/forums/index.php?c=5

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

[aferra]

boa tarde!

não sei se resolve, mas para que não fique do jeito que vc está dizendo eu coloco a cor no get COLOR nRgb(0,0,0)id=red> e fica blzinha!

Um Grande Abraço e Feliz Natal

Alessandro F. Silva - Ribeirão Preto/SP

aferracini@terra.com.br

FW2.0d + CL53b + Blinker 7.0 + @Say @Get

MSN: ferracini_silva@hotmail.com

[kapiaba]

citação:

boa tarde!

não sei se resolve, mas para que não fique do jeito que vc está dizendo eu coloco a cor no get COLOR nRgb(0,0,0)id=red> e fica blzinha!

Um Grande Abraço e Feliz Natal

Alessandro F. Silva - Ribeirão Preto/SP

aferracini@terra.com.br

FW2.0d + CL53b + Blinker 7.0 + @Say @Get

MSN: ferracini_silva@hotmail.com

---

id=quote>id=quote>

Alessandro meu querido, não é em CLIPPER, é FIVEWIN FOR XHARBOUR FERRARI VERMELHINHA... No CLIPPER, eu SAY que funciona... Não funciona no FIVEWIN FOR XHARBOUR... AFF... TO FICANDO ATOLADINHO... hehehehehe.

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

[aferra]

e daí que é na ferrari, eu sei, só que se no clipper funciona, pq na FERRARIid=red> não funciona colocar o color no get com a cor que vc precisa?? hein??? vc tentou??

Um Grande Abraço e Feliz Natal

Alessandro F. Silva - Ribeirão Preto/SP

aferracini@terra.com.br

FW2.0d + CL53b + Blinker 7.0 + @Say @Get

MSN: ferracini_silva@hotmail.com

[vagner]

Outra coisa, é que quem controla o When, no Get, é sim a Classe TGet, cada classe possui a controladora de when, que manda para a classe dialog, e window, e deve funcionar como o Alessandro falow, no clipper também não funciona direito, para funcionar vc têm q passar como Right,Center, aí sim funciona

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]

citação:

e daí que é na ferrari, eu sei, só que se no clipper funciona, pq na FERRARIid=red> não funciona colocar o color no get com a cor que vc precisa?? hein??? vc tentou??

Um Grande Abraço e Feliz Natal

Alessandro F. Silva - Ribeirão Preto/SP

aferracini@terra.com.br

FW2.0d + CL53b + Blinker 7.0 + @Say @Get

MSN: ferracini_silva@hotmail.com

---

id=quote>id=quote>

ALESSANDRO... SUA RESPOSTA: VE SE TA BOM PRA VOCE.

REDEFINE GET aGet[1] VAR XCGC PICTURE "@K!" ;

WHEN( .F. ) ;

ID 20 OF oFld:aDialogs[ 1 ] ;

FONT oFont UPDATE ;

COLOR CLR_HRED, CLR_HCYAN ;

CURSOR oHand

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:

Outra coisa, é que quem controla o When, no Get, é sim a Classe TGet, cada classe possui a controladora de when, que manda para a classe dialog, e window, e deve funcionar como o Alessandro falow, no clipper também não funciona direito, para funcionar vc têm q passar como Right,Center, aí sim funciona

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

---

id=quote>id=quote>

ISSO KE VOCE FALOU OU INTELIGENCIA RARA, É PARA @SAY..

NO WORKSHOP.EXE USA-SE MULTIPLE LINE LIGADO, EU POSSO USAR O CENTER O LEFT OU O RAIO KE O PARTA, QUE NO FIVEWIN FOR CLIPPER O GET 'ACENDE'.

NO FIVEWIN FOR XHARBOUR, ISTO NAO ESTA ACONTECENDO, PORQUE O BWHEN EM ALGUM LUGAR, ESTÃ .F., ENTAO NAO 'ACENDE'. ENTENDE??? NAO ACHO NADA NA CLASSE, QUE CONTROLE O BWHEN... ELE JÃ ESTA VINDO DESLIGADO DE OUTRO LUGAR. CAPICHE OU TÃ DIFICIL? EU HEIM?!

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

[aferra]

eu disse assim:

REDEFINE GET aGet[1] VAR XCGC PICTURE "@K!" ;

WHEN( .F. ) ;

ID 20 OF oFld:aDialogs[ 1 ] ;

FONT oFont UPDATE ;

COLOR CLR_HREDid=red>;

CURSOR oHand

somente uma cor

Um Grande Abraço e Feliz Natal

Alessandro F. Silva - Ribeirão Preto/SP

aferracini@terra.com.br

FW2.0d + CL53b + Blinker 7.0 + @Say @Get

MSN: ferracini_silva@hotmail.com

[kapiaba]

Olá... Solução enviada por Antonio Linares em 20/12/2005, quase ficou perfeito, porém não está respeitando, quando eu coloco CENTER, LEFT OU RIGHT no WorkShop.exe com o Multiple Line Ligado. Se alguém conseguir corrigir, eu agradeço.

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

METHOD Paint() CLASS TGet

local aInfo := ::DispBegin()

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

local hOldFont

if ::oBrush != nil

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

else

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

endif

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

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

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

endif

::DispEnd( aInfo )

//-> 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 )

ExtTextOut( ::hDC, 0, 0,;

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

SelectObject( ::hDC, hOldFont )

endif

// Fim da Mudanca - Fin del Cambio

return 1

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]

MESMO USANDO O SYSTABCONTROL32 NO FOLDER, NÃO RESOLVE... EITA KE É HOJE KE EU VOU TER UMA SINCOPE. Tà CUASE PERFECTO. Gracias Antonio Linares. Mui Buena Classe.

falta-me solamente um tantinho... hehehehe To ficando atoladinho... Trem grande da P... pra dominar de uma vez!

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

[siscat]

citação:

PERSONAS, ALGUEM SABE ME DIZER COMO RESOLVER, PARA QUE O FOCO DO GET EM UM WHEN( .F. ) FIQUE COLORIDO COMO NO FIVEWIN 16 BITS??

Jà ALTEREI A TGET.PRG, INCORPOREI AO PROJETO, MAS O GET COM WHEN( .F. ), CONTINUA COM ASPECTO DE 'MORTO', E EU NÃO GOSTO ASSIM... TEM JEITO??

MARLLON... ACHO KE ESTA, SÓ VOCÊ SABE... Abraços.

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

---

id=quote>id=quote>

Desculpe João... eu tambem estou com este problema e ainda não consegui resolver... fico devendo!!! (

Gilmer... help-nosssssssss!!!!

Marllon Figueiredo

Analista de Sistemas ERP/CRM

Porto Alegre - RS

siscatsoftware@hotmail.com

FWH com (x)Harbour (@ Say), xMate, Clipper, MsSQL, Oracle, Postgres, MySQL, TopConnect, ADS

[kapiaba]

//-> A solução está aki Marllon, só que no WorkShop.exe, Ele esta alinhando o GET a Esquerda, Ajude-me a acertar a CLASSE, teste em ARROBA, e veja se ele alinha certo por favor.

METHOD Paint() CLASS TGet

local aInfo := ::DispBegin()

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

local hOldFont

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 )

ExtTextOut( ::hDC, 0, 0,;

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

SelectObject( ::hDC, hOldFont )

endif

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

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

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

endif

::DispEnd( aInfo )

// Fim da Mudanca - Fin del Cambio

return 1

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]

Olá Marlonn ajude-me aki, pois já to ficando louco...

Complemento do Antonio Linares:

João,

Cambia el orden del código:

...

if IsWindowEnabled( ::hWnd )

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

else

SetTextColor( ::hDC, ::nClrText )

SetBkColor( ::hDC, ::nClrPane )

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

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 )

Para respetar el CENTER, RIGHT O LEFT, tienes que llamar a SetTextAlign() antes de llamar a ExtTextOut():

Code:

do case

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

SetTextAlign( ::hDC, TA_CENTER )

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

SetTextAlign( ::hDC, TA_RIGHT )

otherwise

SetTextAlign( ::hDC, TA_LEFT )

endcase

ExtTextOut( ... )

_________________

regards, saludos

Antonio Linares

www.fivetechsoft.com

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

[Adelson (ADS e TI)]

Se vc está está usando a ferrari conforme diz, então porque empurra-la com WS. vc deve dirigi-la com Pelles.

hehehehehe.

ADELSON - (A&F Soft)

Pelles 3.00.4, FWH 2.6, xHarbor Comercial 0.99.5, Drive RDDSQL

[kapiaba]

citação:

Se vc está está usando a ferrari conforme diz, então porque empurra-la com WS. vc deve dirigi-la com Pelles.

hehehehehe.

ADELSON - (A&F Soft)

Pelles 3.00.4, FWH 2.6, xHarbor Comercial 0.99.5, Drive RDDSQL

---

id=quote>id=quote>

NO PELLESC.EXE NAO VAI, O PROBLEMA É NO PAINEL DE CONTROLES DA MINHA FERRARI, NÃO NO MOTOR ADELSON... PRESTE ATENÇÃO.

PS: UM BOM MECANICO, AVALIA COM CLAREZA.

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

Editado por - kapiaba on 21/12/2005 08:10:02

[kapiaba]

Gilmer ou Vagner... Está Quase correto desta forma, porem o GET nao está ficando no lugar correto, esta 'comendo' uma parte do GET, daria para voces testarem, enquanto o Antonio Linares Estuda a minha resposta lá no Internacional??

Vejam as respostas do Linares lá no Forum dele por favor.

Falta um pequeno detalhe que eu não SAY, pois não manjo p... nenhuma de classes.

#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 ) // 1

SetTextAlign( ::hDC, TA_CENTER ) // 6

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

SetTextAlign( ::hDC, TA_RIGHT ) // 2

otherwise

SetTextAlign( ::hDC, TA_LEFT ) // 0

endcase

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 )

return 1

Agradecimentos especiais a EDNALDO ALVES ROLIM, que me ajudou até este ponto.

ednaldorolim@uol.com.br - Fantastico amigo.

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

Editado por - kapiaba on 21/12/2005 08:23:46