VALID Não funciona quando tem somente um GET

[Flavio A. Zago]

Pessoal

Atualizei meu FWH26 p/ FWH28 e após isso estou

tendo problemas com a clausula VALID quando só

tem um GET.

Alguem pode me ajudar?

Abaixo um exemplo onde o VALID não funciona:

#Include "FiveWin.ch"

FUNCTION Main()

LOCAL oDlg,;

cGet := SPACE(1),;

oGet

DEFINE DIALOG oDlg TITLE "Teste GET (VALID)"

@ 2,6 GET oGet VAR cGet PICTURE '@R 9' OF oDlg SIZE 10, 10 VALID TestValid()

ACTIVATE DIALOG oDlg CENTERED

RETURN NIL

FUNCTION TestValid()

MSGINFO('PASSOU')

RETURN .T.

[]´s

Flavio

FWH28 + VERCE 4.3 + XHARBOUR 99.61 + WORKSHOP

FWH28 + XBUILD + XHARBOUR (ENTERPRISE)

[Flavio A. Zago]

Pessoal

Atualizei meu FWH26 p/ FWH28 e após isso estou

tendo problemas com a clausula VALID quando só

tem um GET.

Alguem pode me ajudar?

Abaixo um exemplo onde o VALID não funciona:

#Include "FiveWin.ch"

FUNCTION Main()

LOCAL oDlg,;

cGet := SPACE(1),;

oGet

DEFINE DIALOG oDlg TITLE "Teste GET (VALID)"

@ 2,6 GET oGet VAR cGet PICTURE '@R 9' OF oDlg SIZE 10, 10 VALID TestValid()

ACTIVATE DIALOG oDlg CENTERED

RETURN NIL

FUNCTION TestValid()

MSGINFO('PASSOU')

RETURN .T.

[]´s

Flavio

FWH28 + VERCE 4.3 + XHARBOUR 99.61 + WORKSHOP

FWH28 + XBUILD + XHARBOUR (ENTERPRISE)

[kapiaba]

PONHA MAIS UM GET, POIS COM UM GET SÓ, A CLASSE NAO TEM PARA ONDE DISPARAR.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

[vagner]

Olá,

Isso já foi amplamente discutido , como disse o Kapi, coloque outro get ou um botão fora da dialog, só para q ele possa mudar de foco, senão não dá para validar

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

[Flavio A. Zago]

Obrigado Kapiaba e Vagner

Farei isso, mas é estranho, pois funcionava

perfeitamente na versão FWH26.

[]´s

Flavio