oribeiro

Marcelo,

Com essa função o sistema cancelou completamente os parâmetros definidos no VALID da Windows. Assim também não dá. (risos) - O que o xHarbour precisa fazer é executar o VALID apenas uma vez (como o seu antecessor Fw).

E agora? Será que os desenvolvedores do FwH não tem a correção desse bug?

(OASyS) Oscar Ribeiro

Fwh2.7+xHb0.99.60+BCC551

Testei aqui com todas as releases do Fhw desde a Fhw2.7 de Fevereiro até a Fhw2.8 com os seus respectivos xHarbour´s e em todas elas a tecla ESCAPE faz com que o VALID execute duas vezes.

Onde está o problema?

(OASyS) Oscar Ribeiro

Fwh2.7+xHb0.99.60+BCC551

João,

Acha possível você me enviar esses arquivos por MSN?

(OASyS) Oscar Ribeiro

Fwh2.7+xHb0.99.60+BCC551

Sim, pode ser problema na minha versão do Fwh 2.7 ou do xHarbour. Você pode me passar a lib do Fhw para xHb 0.99.61 e também me indicar onde é que eu baixo o .61? Quero testar aqui usando o que você tem aí.

Obrigado.

(OASyS) Oscar Ribeiro

Fwh2.7+xHb0.99.60+BCC551

João,

Compilei o seu exemplo e quando fecho o sistema com a tecla ainda passa duas vezes no VALID da Window.

Como faço para driblar isso? Se compilar esse mesmo exemplo com Fivewin 16bits não dá esse erro.

(OASyS) Oscar Ribeiro

Fwh2.7+xHb0.99.60+BCC551

Vejam no exemplo abaixo, que quando se fecha a janela com a tecla , apenas no xHarbour, ele processa duas vezes o VALID da Window. Como faço para driblar essa situação? Tentei criar uma variável Static e atualizá-la para tratar a segunda vez que o comando é processado mas não está dando certo.

#include "fivewin.ch"

Static tela:=.T.

function main()

local oWnd1, oWnd2, oDlg1, oBtn1, oGet1

Public cVar1:=PadR("APARTE A TECLA E VEJA O RESULTADO",100)

DEFINE WINDOW oWnd1 TITLE "WINDOW PRINCIPAL" FROM 0,0 TO 20,60 MDI

DEFINE WINDOW oWnd2 TITLE "TECLA " FROM 0,0 TO 20,60 MDICHILD OF oWnd1

oWnd2:bGotFocus = {||oDlg1:SetFocus()} // Sempre coloca o foco no Dialog

oWnd2:SetColor(GetSysColor(8),GetSysColor(15)) // faz Cor da oWnd2 = oDlg1

DEFINE DIALOG oDlg1 OF oWnd2 STYLE WS_CHILD FROM 0,0 TO 20,60

@ 2,05 GET oGet1 VAR cVar1 SIZE 150,12 PICT '@!'

@ 3,10 BUTTON oBtn1 PROMPT "Fechar" SIZE 100,50 ACTION oDlg1:End()

ACTIVATE DIALOG oDlg1 NOWAIT VALID oWnd2:End()

ACTIVATE WINDOW oWnd2 VALID ( passou(), .T. )

ACTIVATE WINDOW oWnd1 MAXIMIZED

return nil

function passou()

msginfo(tela,"PASSOU")

tela:=.F.

return (.t.)

(OASyS) Oscar Ribeiro

Fwh2.7+xHb0.99.60+BCC551

Vejam no exemplo abaixo, que quando se fecha a janela com a tecla , apenas no xHarbour, ele processa duas vezes o VALID da Window. Como faço para driblar essa situação? Tentei criar uma variável Static e atualizá-la para tratar a segunda vez que o comando é processado mas não está dando certo.

#include "fivewin.ch"

Static tela:=.T.

function main()

local oWnd1, oWnd2, oDlg1, oBtn1, oGet1

Public cVar1:=PadR("APARTE A TECLA E VEJA O RESULTADO",100)

DEFINE WINDOW oWnd1 TITLE "WINDOW PRINCIPAL" FROM 0,0 TO 20,60 MDI

DEFINE WINDOW oWnd2 TITLE "TECLA " FROM 0,0 TO 20,60 MDICHILD OF oWnd1

oWnd2:bGotFocus = {||oDlg1:SetFocus()} // Sempre coloca o foco no Dialog

oWnd2:SetColor(GetSysColor(8),GetSysColor(15)) // faz Cor da oWnd2 = oDlg1

DEFINE DIALOG oDlg1 OF oWnd2 STYLE WS_CHILD FROM 0,0 TO 20,60

@ 2,05 GET oGet1 VAR cVar1 SIZE 150,12 PICT '@!'

@ 3,10 BUTTON oBtn1 PROMPT "Fechar" SIZE 100,50 ACTION oDlg1:End()

ACTIVATE DIALOG oDlg1 NOWAIT VALID oWnd2:End()

ACTIVATE WINDOW oWnd2 VALID ( passou(), .T. )

ACTIVATE WINDOW oWnd1 MAXIMIZED

return nil

function passou()

msginfo(tela,"PASSOU")

tela:=.F.

return (.t.)

(OASyS) Oscar Ribeiro

Fwh2.7+xHb0.99.60+BCC551

Essa situação de fechar com o e ele executar o VALID da Window duas vezes não acontece se compilado com Fivewin puro.

Estranho né???

(OASyS) Oscar Ribeiro

Fwh2.7+xHb0.99.60+BCC551

Vejam no exemplo abaixo, acho que estou próximo de descobrir o motivo do erro: Se você fechar com o botão [Fechar] ele passa no VALID do Window apenas uma vez, mas se você fechar usando a tecla ele passa "duas" vezes. Isso é bug???

#include "fivewin.ch"

function main()

local oWnd1, oWnd2, oDlg1, oBtn1, oGet1, i:=0

Cria_Campos()

DEFINE WINDOW oWnd1 TITLE "WINDOW PRINCIPAL" FROM 0,0 TO 20,60 MDI

DEFINE WINDOW oWnd2 TITLE "TECLA " FROM 0,0 TO 20,60 MDICHILD OF oWnd1

oWnd2:bGotFocus = {||oDlg1:SetFocus()} // Sempre coloca o foco no Dialog

oWnd2:SetColor(GetSysColor(8),GetSysColor(15)) // faz Cor da oWnd2 = oDlg1

DEFINE DIALOG oDlg1 OF oWnd2 STYLE WS_CHILD FROM 0,0 TO 20,60

@ 2,05 GET oGet1 VAR cVar1 SIZE 150,12 PICT '@!'

@ 3,10 BUTTON oBtn1 PROMPT "Fechar" SIZE 100,50 ACTION oDlg1:End()

ACTIVATE DIALOG oDlg1 NOWAIT VALID oWnd2:End()

ACTIVATE WINDOW oWnd2 VALID ( msginfo("passou "+str(i++)),.T. ) // , oBtn1:SetFocus(), IIF(Atualizou(oDlg1),Grava(),.T.), Destroi_Campos() )

ACTIVATE WINDOW oWnd1 MAXIMIZED

return nil

Function Cria_Campos()

Public cVar1:=PadR("APARTE A TECLA E VEJA O RESULTADO",100)

Return NIl

(OASyS) Oscar Ribeiro

Fwh2.7+xHb0.99.60+BCC551

Nesse meu exemplo abaixo, se eu fecho a dialog com o enquanto o sistema pargunta se eu desejo gravar ele já fechou a dialog e já matou a variavel. Se eu fecho com o botão [Fechar] isso não acontece. Digite alguma coisa no campo get e faça o teste, por favor.

#include "fivewin.ch"

function main()

local oWnd1, oWnd2, oDlg1, oBtn1, oGet1

Cria_Campos()

DEFINE WINDOW oWnd1 TITLE "WINDOW PRINCIPAL" FROM 0,0 TO 20,60 MDI

DEFINE WINDOW oWnd2 TITLE "TECLA " FROM 0,0 TO 20,60 MDICHILD OF oWnd1

oWnd2:bGotFocus = {||oDlg1:SetFocus()} // Sempre coloca o foco no Dialog

oWnd2:SetColor(GetSysColor(8),GetSysColor(15)) // faz Cor da oWnd2 = oDlg1

DEFINE DIALOG oDlg1 OF oWnd2 STYLE WS_CHILD FROM 0,0 TO 20,60

@ 2,05 GET oGet1 VAR cVar1 SIZE 150,12 PICT '@!'

@ 3,10 BUTTON oBtn1 PROMPT "Fechar" SIZE 100,50 ACTION oDlg1:End()

ACTIVATE DIALOG oDlg1 NOWAIT VALID oWnd2:End()

ACTIVATE WINDOW oWnd2 VALID ( oBtn1:SetFocus(), IIF(Atualizou(oDlg1),Grava(),.T.), Destroi_Campos() )

ACTIVATE WINDOW oWnd1 MAXIMIZED

return nil

Function Cria_Campos()

Public cVar1:=PadR("APARTE A TECLA E VEJA O RESULTADO",100)

Return NIl

Function Destroi_Campos()

cVar1 := NIL

RELEASE cVar1

Return (.t.)

Function Grava()

if msgyesno("O registro foi atualizado, deseja gravar?")

campo1 := cVar1 // aqui dá erro, ele já destruiu os campos.

msginfo( cVar1 )

endif

Return (.T.)

Function Atualizou(oDlg,lGravou)

Local f:=1

local g:=1

local h:=1

local Contador:=0

lGravou := iif(lGravou=nil,.F.,lGravou) // Verifica se houve a gravacao

While f<=Len(oDlg:aControls) //acontrols é uma propriedade de todas as dialogs e é criada automaticamente

if oDlg:aControls[f]:ClassName()="TGET" .or. oDlg:aControls[f]:ClassName()="TMULTIGET"

if oDlg:aControls[f]:cCaption<>; // Gets Antes

oDlg:aControls[f]:cText // Gets Depois

oDlg:aControls[f]:cCaption:=; // Atualiza cCaption

oDlg:aControls[f]:cText

if !lGravou // Se nao gravou

Contador++

endif

endif

elseif oDlg:aControls[f]:ClassName()="TFOLDER"

g := 1

While g<=Len(oDlg:aControls[f]:aDialogs) // Checa todos os Dialogs da Folder

h := 1

While h<=Len(oDlg:aControls[f]:aDialogs[g]:aControls)

if oDlg:aControls[f]:aDialogs[g]:aControls[h]:ClassName()="TGET" .or. oDlg:aControls[f]:aDialogs[g]:aControls[h]:ClassName()="TMULTIGET"

if oDlg:aControls[f]:aDialogs[g]:aControls[h]:cCaption<>; // Gets Antes

oDlg:aControls[f]:aDialogs[g]:aControls[h]:cText // Gets Depois

oDlg:aControls[f]:aDialogs[g]:aControls[h]:cCaption:=; // Atualiza cCaption

oDlg:aControls[f]:aDialogs[g]:aControls[h]:cText

if !lGravou // Se nao gravou

Contador++

endif

endif

endif

h++

enddo

g++

end

endif

f++

End

if !lGravou .and. !Empty(Contador)

Return(.T.)

Endif

Return(.F.)

(OASyS) Oscar Ribeiro

Fwh2.7+xHb0.99.60+BCC551

João,

No meu programa eu crio variáveis publicas para os campos dos arquivos e depois eu destruo essas variáveis no comando ACTIVATE...VALID.

Acontece que no Fivewin ele fecha a janela numa boa e no FhW ele destroi as variáveis, fecha a janela e aparece um erro de variável inexistente.

Estranho né?

(OASyS) Oscar Ribeiro

Fwh2.7+xHb0.99.60+BCC551

Percebi que o FW trata o ESC de um modo diferente do FWH.

Tem como cancelar a tecla ESC para que o usuário não feche a janela usando essa tecla?

(OASyS) Oscar Ribeiro

Fwh2.7+xHb0.99.60+BCC551

Percebi que o FW trata o ESC de um modo diferente do FWH.

Tem como cancelar a tecla ESC para que o usuário não feche a janela usando essa tecla?

(OASyS) Oscar Ribeiro

Fwh2.7+xHb0.99.60+BCC551

Quando fecho minhas janelas com dá erro de variável não existe no fwh e no fw não dá. A variável está criada!

Ativo minhas janelas assim:

ACTIVATE DIALOG oDlgP NOWAIT VALID oWndC:End()

ACTIVATE WINDOW oWndC ;

VALID ( tBtPrinc[9]:SetFocus() ,iif(Atualizou(oDlgP),(Grava(.T.)),.T.),oScb:SetFocus(),Destroi_Campos(),oLbx:Disable(),Fecha_Formulario(oWndC,oDlgP,oLbx,cFrm,cPrg))

Fwh2.7+xHb0.99.60+BCC551

Quando fecho minhas janelas com dá erro de variável não existe no fwh e no fw não dá. A variável está criada!

Ativo minhas janelas assim:

ACTIVATE DIALOG oDlgP NOWAIT VALID oWndC:End()

ACTIVATE WINDOW oWndC ;

VALID ( tBtPrinc[9]:SetFocus() ,iif(Atualizou(oDlgP),(Grava(.T.)),.T.),oScb:SetFocus(),Destroi_Campos(),oLbx:Disable(),Fecha_Formulario(oWndC,oDlgP,oLbx,cFrm,cPrg))

Fwh2.7+xHb0.99.60+BCC551