Problema com Button ( Click/Return )???

Cezar · September 18, 2003

OlÃ¡,

Tenho uma dialog com vÃ¡rios buttons em sequencia:

Inclui Altera Exclui Consulta...

Se clico com o mouse no Altera, a clasula ACTION executa beleza !!!

Se aperto o ENTER, pula para o botÃ£o seguinte e nÃ£o executa o ACTION !!!

O mesmo com todos!!

Estou olhando a classe TButton ( nativa do FWH 2.4 ), mais ainda nÃ£o encontrei o problema.

Voces tÃªm alguma dica sobre este problema???

Grato.

karinha · September 18, 2003

// Cezar.. Eu FaÃ§o assim para substituir os botoes...

// 1) - exemplo

oLbx:bKeyDown := {|nKey| IIF( nKey==13 .OR. nKey==32, ;

MsgInfo( "Nao Disponivel" ), ) } // Sua Funcao

// 2) - exemplo

oLbx:bKeyDown := { | nKey | Faz_Pesquisa( nKey, ;

( oDbf:cAlias ), oLbx, oSay, ;

oLbx:SetFocus(), ;

oLbx:Refresh() ), ;

IF ( nKey = VK_RETURN, ;// Enter

( Click(), GetClientes( .F., oDbf ), ;

oLbx:SetFocus(), ;

oLbx:Refresh() ), ;

IF ( nKey = VK_INSERT, ;// Insert

( Click(), GetClientes( .T., oDbf ), ;

oLbx:SetFocus(), ;

oLbx:Refresh() ), ;

IF ( nKey = VK_DELETE, ;// Delete

( Click(), ApagarCli( oDbf ), ;

oLbx:SetFocus(), ;

oLbx:Refresh() ), ) ) ) }

JoÃ£o Santos

SÃ£o Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

Cezar · September 18, 2003

Ola JoÃ£o, como vai,

O seu exemplo controla os Keys dentro da ListBox; o meu problema estÃ¡ nos Buttons.

Na minha dialog nÃ£o tem ListBox; tem 1 Folder, vÃ¡rios gets e vÃ¡rios buttons !!!

Buttons:

[inclui] [Altera] [Exclui] [Consulta]

Se clicar com o mouse no "botÃ£o Alterar" a clÃ¡usula ACTION Ã© executada normalmente!!

Se posicionar, com as setas, o foco em cima do "botÃ£o Alterar" e der ENTER, a clÃ¡usula ACTION "NÃƒO Ã‰ EXECUTADA" e foco passa para o botÃ£o seguinte.

Se funciona com o MOUSE e nÃ£o funciona com o ENTER, presumo que seja um problema da classe TButton.

O que acha ???

Grato.

karinha · September 18, 2003

Usando o mesmo exemplo, troque oLbx por oDlg... Tente... Olhe os exemplos do samples... NÃ£o desista tÃ£o fÃ¡cil, pegue a idÃ©ia... Porque serÃ¡ que 'ele' postou isso? Eu sei que vocÃª Ã© inteligente! AbraÃ§os.

JoÃ£o Santos

SÃ£o Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

karinha · September 19, 2003

Cezar, Teste e vocÃª entendera o que eu quero dizer...

Se voce esta usando o WORKSHOP.EXE para fazer suas telas, verifique se

os estao alinhados com o <1,2>, se nÃ£o estiverem alinhe-os.

oWnd:bKeyDown = { | nKey | MsgInfo( "Down: " + Str( nKey ) ) }

oWnd:bKeyChar = { | nKey | MsgInfo( "Char: " + Str( nKey ) ) }

oGet:bKeyDown = { | nKey | MsgInfo( nKey ) } // Troque pela funcao

oFld:bKeyDown = { | nKey | MsgInfo( nKey ) } // Troque pela funcao

oDlg:bKeyDown = { | nKey | MsgInfo( nKey ) } // Troque pela funcao

// Assim, tambÃ©m substituo os meus botÃµes...

SetKey (32, { | nKey | Teste( nKey ) } )

SetKey (27, { | nKey | Teste( nKey ) } )

// Este Recurso Traz o Icone de Filtro Por Matricula

SetKey( VK_F2,{|nKey| FiltrarM( oDbf ), ;

oLbx:Refresh() , ;

oLbx:SetFocus(), ;

oLbx:DrawSelect() } )

JoÃ£o Santos

SÃ£o Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

Cezar · September 20, 2003

Ola JoÃ£o,

Realmente Ã© uma problema de foco.

Usei uma function() xSetFocus(), postado em dicas pelo Vaner Virts em dicas!!

Veja o exemplo que te enviei !!

Muito obrigado pela preocupaÃ§Ã£o e ajuda na soluÃ§Ã£o do problema.

Um abraÃ§o.

Cezar.

karinha · September 20, 2003

Data: 19/09/2003 23:25:21

De:Cezar

Para:Karinh

Cc:

Assunto:Problemas de Foco !!

JoÃ£o, bom dia.

Desde jÃ¡ agradeÃ§o a sua ajuda e preocupaÃ§Ã£o, VALEU MUITO!!!

Acho que chegamos a uma soluÃ§Ã£o:

Deduzi que o problema estava no foco, apÃ³s o ENTER

executava a function "Alterar",

mas nÃ£o ia para o GET[ 2]; percebi que se coloca-se uma

Msginfo() simulando um stop,

o foco ia para o GET[ 2] !!

Lembrei de ter visto alguma coisa referente a foco em dicas: achei a

function xSetFocus() em dicas, postada pelo Vagner Virts, veja a mudanÃ§a abaixo.

Ufa !!

Pra hoje Ã© sÃ³, semana que vem tem mais um pepino prÃ¡ voces.

Um abraÃ§o e bom fim semana !!!

Cezar.

Exemplo:

DEFINE DIALOG oDlg FROM ................

@ 10,10 GET oGet[ 2] PROMPT ........

.........

Isto nÃ£o funcionava !!!

@ 182,240 BUTTON oBtn PROMPT "&Alterar" ;

OF oDlg SIZE 25,10 PIXEL ;

ACTION ( aOpe := PN_Altera( aOpe, oDlg, oDbf, oGet, oBtn )

Isto funcionou !!!

@ 182,240 BUTTON oBtn PROMPT "&Alterar" ;

OF oDlg SIZE 25,10 PIXEL ;

ACTION ( aOpe := PN_Altera( aOpe, oDlg, oDbf, oGet, oBtn ),;

xSetFocus( oGet[2] ), oGet[2]:SetFocus() )

@ 182,280 BUTTON oBtn[9] PROMPT "&Sair" ;

OF oDlg SIZE 25,10 PIXEL ;

ACTION oDlg:End() CANCEL

oDlg:bStart := {|| oBtn:SetFocus() }

ACTIVATE DIALOG oDlg CENTERED VALID ( PN_Fecha( oDbf, oFld ), .T.)

RETURN Nil

*********************************************************************

Isto nÃ£o funcionava !!!

*********************************************************************

FUNCTION PN_Altera( aOpe, oDlg, oDbf, oGet, oBtn )

oDbf[1]:Load()

aOpe[1] := 2

aOpe[2] := oDbf[1]:NumPed

aOpe[3] := oDbf[1]:NumPed

aOpe[4] := 0

oDlg:Update()

oGet[2]:SetFocus() // aqui o foco nÃ£o ia para Get[ 2]

// AtÃ© ia, mas nÃ£o segurava!!

RETURN aOpe

*********************************************************************

Isto funcionou !!!

*********************************************************************

FUNCTION PN_Altera( aOpe, oDlg, oDbf, oGet, oBtn )

oDbf[1]:Load()

aOpe[1] := 2

aOpe[2] := oDbf[1]:NumPed

aOpe[3] := oDbf[1]:NumPed

aOpe[4] := 0

//oDlg:Update()

//xSetFocus( oGet[ 2] ) // aqui tambÃ©m nÃ£o

//oGet[ 2]:SetFocus()

RETURN aOpe

*********************************************************************

Esta function() foi postada pelo Vagner Virts em dicas!!

*********************************************************************

STATIC FUNCTION xSetFocus(oObj)

Local oTempo := ""

Define Timer oTempo Interval 10 Of oObj:oWnd ;

Action (oObj:SetFocus(),oObj:SetPos(0),oTempo:Deactivate())

Activate Timer oTempo

RETURN Nil

*********************************************************************

FIM *****************************************************************

Cezar... Esqueci que vocÃª usava o @Say Minha Resposta:

Que horror! Pensei que vocÃª estava usando o WORKSHOP.EXE! Isto nunca teria acontecido se

Fizesse seus programas usando o WORKSHOP.EXE. Ainda dÃ¡ tempo! Desista desta coisa medonha

de @Say enquanto Ã© tempo! Deus me livre e guarde de uma coisa terrivel destas em minha vida!

Isto Ã© fim de carreira! VocÃª nunca verÃ¡ eu usando um truque ao usar o WORKSHOP.EXE para

acertar o FOCO de absolutamente nada em meus programas... o WORKSHOP acerta sozinho pra mim!

E Cezar? VocÃª disse que estava com problemas nos BOTÃ•ES e nÃ£o no FOCO de um GET! SÃ³ quem usa

@Say pode confundir 'alhos' com 'bugalhos' nada a ver o seu problema... Se vocÃª estivesse

usando o WORKSHOP.EXE nunca pagaria este 'MICO'! No futuro, poste o CÃ³digo junto com sua

pergunta, ai fica mais fÃ¡cil para o pessoal do @Say(Irrccc) te ajudar! @Say... Eu nÃ£o Say!

xSetFocus() Com Recursos... ???? Fala sÃ©rio! Never! Never! Never! SÃ³ rindo! xSetFocus()?????

Me da calafrios sÃ³ de pensar em @Say... hehehehehehehehehehehehe AbraÃ§os.

JoÃ£o Santos

SÃ£o Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

Cezar · September 21, 2003

Ola JoÃ£o,

Ia postar o cÃ³digo depois do seu e-mail, mas tive que sair rapidamente.

Comecei usando o WorkShop com FWH 2.4 mas desisti porque dÃ¡ tanto erros de DLL, e as mensagens diz claramente que Ã© corrompimento da DLL de 32bits coisa assim, tanto que desisti.

Mas tÃ¡ tudo certo.

AtÃ© mais,

Cezar.

karinha · September 22, 2003

PRESTIGIE O I ENCONTRO DE PROGRAMADORES EM FW

NÃ£o concordo. Tente de novo! Pegue outros exemplos. NÃ£o desista do WORKSHOP.EXE nunca! Ã‰ o futuro! NÃ£o constinue com o famigerado @Say... VocÃª vai se arrepender! AbraÃ§os.

JoÃ£o Santos

SÃ£o Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

Edmar · September 22, 2003

OlÃ¡,

se vocÃª usa o WorkShop para colocar seus Buttons, o problema estÃ¡ lÃ¡. Verifique as propriedades dos Buttons dentro do WorkShop e vocÃª descobrirÃ¡ o problema.

Edmar R. Santos

Sto. Ant. Monte - MG

Cezar · September 22, 2003

OlÃ¡ Edmar,

NÃ£o estou usando o WorkShop com o FWH 2.4 porque tive tantos problemas do tipo "corrompimento da DLL 32 bits" que desisti.

Voce usa Workshop com FWH 2.4 e nÃ£o tem problemas??

Um abraÃ§o.

Cezar.

**********************************

citaÃ§Ã£o:
OlÃ¡,

se vocÃª usa o WorkShop para colocar seus Buttons, o problema estÃ¡ lÃ¡. Verifique as propriedades dos Buttons dentro do WorkShop e vocÃª descobrirÃ¡ o problema.

Edmar R. Santos

Sto. Ant. Monte - MG

id=quote>id=quote>

karinha · September 22, 2003

JoÃ£o Santos

SÃ£o Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

Alexandre Bassanezi · September 22, 2003

JoÃ£o, seu WORKSHOPiscenter tÃ¡ dando pau ... hahahaha

Cezar, realmente o FW e FWH tem este problemÃ£o com ENTER nos botÃµes nas Ãºltimas versÃµes, eu corrigi isto de algum modo tb, mais nÃ£o lembro como.

[]Â´s

Alexandre

karinha · September 22, 2003

NÃ£o concordo! NÃ o tenho Problemas! Quais sÃ£o? SÃ³ se for no FWH! AbraÃ§os.

JoÃ£o Santos

SÃ£o Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

gilmer · September 22, 2003

OlÃ¡,

Utilize o WorkShop c/ RC ou RES no FWH (DLL 32 BITS) e vocÃª nÃ£o terÃ¡ mais problemas.Infelizmente o Workshop danifica as vezes a dll 32 bit

citaÃ§Ã£o:

OlÃ¡ Edmar,

NÃ£o estou usando o WorkShop com o FWH 2.4 porque tive tantos problemas do tipo "corrompimento da DLL 32 bits" que desisti.

Voce usa Workshop com FWH 2.4 e nÃ£o tem problemas??

Um abraÃ§o.

Cezar.

**********************************

citaÃ§Ã£o:

OlÃ¡,

se vocÃª usa o WorkShop para colocar seus Buttons, o problema estÃ¡ lÃ¡. Verifique as propriedades dos Buttons dentro do WorkShop e vocÃª descobrirÃ¡ o problema.

Edmar R. Santos

Sto. Ant. Monte - MG

id=quote>id=quote>

id=quote>id=quote>

gilmer · September 22, 2003

OlÃ¡,

citaÃ§Ã£o:

OlÃ¡,

Tenho uma dialog com vÃ¡rios buttons em sequencia:

Inclui Altera Exclui Consulta...

Se clico com o mouse no Altera, a clasula ACTION executa beleza !!!

Se aperto o ENTER, pula para o botÃ£o seguinte e nÃ£o executa o ACTION !!!

O mesmo com todos!!

Estou olhando a classe TButton ( nativa do FWH 2.4 ), mais ainda nÃ£o encontrei o problema.

Voces tÃªm alguma dica sobre este problema???

Grato.

id=quote>id=quote>

Cezar · September 22, 2003

Boa noite Gilmer,

Harbour Alfa Build 42.0 ( Flex )

NÃ£o tem sentido usar um segundo prÃ¡ consertar o primeiro , isso nÃ£o funciona. Desisti!!

Se tiver alguma soluÃ§Ã£o, agradeÃ§o.

Cezar.

gilmer · September 23, 2003

OlÃ¡,

Passe o email que deseja receber a atualizaÃ§Ã£o do FWH, como tambÃ©m seu cÃ³digo na Virtual. Eu sempre usei RC e RES e nunca tive problemas. Favor dair maiores informaÃ§Ãµes sobre seu problema em arquivos RC.

Cezar · September 23, 2003

Gilmer,

Vou te mandar o e-mail ???

Cezar.

gilmer · September 24, 2003

Cezar,

Estarei respondendo e enviando o produto amanhÃ£ (25/09/03)

Problema com Button ( Click/Return )???

Recommended Posts

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

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

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

Join the conversation