SAIR DO GET COM ENTER AO INVES DE TAB

Projeto HwGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

Avatar do usuário
deividdjs
Usuário Nível 3
Usuário Nível 3
Mensagens: 377
Registrado em: 19 Set 2006 09:39
Localização: Foz do Iguaçu / Pr

SAIR DO GET COM ENTER AO INVES DE TAB

Mensagem por deividdjs »

Bom dia Amigos .. acho q vou incomodar bastante aqui até pegar no tranco de vez hehehe

tenho um get de pesquisa dentro de um browse, funciona perfeitamente ... porem não consigo fazer ele sair do get e dar foco no browse com o <enter> somente com <tab> ... está assim :

Código: Selecionar todos


		@ 655,27 GET oEdit1_pesquisar VAR vEdit1_pesquisar OF oPanel1 PICTURE "@!" SIZE 371,22 MAXLENGTH 30 ;
		   VALID {|| If( hwg_GetKeyState( VK_RETURN ) < 0, ;  
		   ( oBrw:SetFocus(), .f. ), .t. ) } ;  
		   ON CHANGE {|| BuscaPorContemCliente(oEdit1_pesquisar:GetText(), oBrw), .t. }; // Pesquisa dinâmica
		   STYLE WS_TABSTOP

  		  BrowserCliente()

Abraço!

Deivid
Windows 11 + Harbour 3.2 + MINGW64 gcc 14.1.0 + Visual Lib + GTWVG + LETODBF WINDOWNS/LINUX
Avatar do usuário
alaminojunior
Colaborador
Colaborador
Mensagens: 1717
Registrado em: 16 Dez 2005 21:26
Localização: Ubatuba - SP

SAIR DO GET COM ENTER AO INVES DE TAB

Mensagem por alaminojunior »

Não sei se mudou algo desde a versão 2.17 que uso, mas para este efeito basta colocar a cláusula CLIPPER na construção da janela.

Código: Selecionar todos

  INIT DIALOG oDlgMDFeMain TITLE "Manifesto de Documentos Fiscais - Eletrônico" ;
  ICON HIcon():AddResource(100)  ;
  AT 0, 0 SIZE 1024,700 ;
  FONT HFont():Add( 'Segoe UI Semibold',0,-11,600,,,) CLIPPER  NOEXIT  ;
  STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+DS_CENTER ;
  ON INIT {|| SetTransparent( hWin, 200 ) }
  Thisform := oDlgMDFeMain
Compilador xHarbour 1.2.3 + Embarcadero C++ 7.30
MySQL c/ SQLRDD
HwGui + GTWVG
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

SAIR DO GET COM ENTER AO INVES DE TAB

Mensagem por JoséQuintas »

Tá igual.
Até postei fonte naquele outro tópico "SAIR COM ESC".
Como era sobre menu, não olhou se tinha algo mais.

Código: Selecionar todos

STATIC FUNCTION gui_DialogCreate( xDlg, nRow, nCol, nWidth, nHeight, cTitle, bInit, lModal )

   IF Empty( bInit )
      bInit := { || Nil }
   ENDIF
   INIT DIALOG xDlg ;
      CLIPPER ;
      FONT oFont ;
      NOEXIT ;
      TITLE     cTitle + " (" + GUI():LibName() + ")"  ;
      AT        nRow, nCol ;
      SIZE      nWidth, nHeight ;
      BACKCOLOR COLOR_WHITE ;
      ON INIT bInit

   (xDlg);(lModal)

   RETURN Nil
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar do usuário
Itamar M. Lins Jr.
Administrador
Administrador
Mensagens: 7928
Registrado em: 30 Mai 2007 11:31
Localização: Ilheus Bahia
Curtiu: 1 vez

SAIR DO GET COM ENTER AO INVES DE TAB

Mensagem por Itamar M. Lins Jr. »

Olá!
#xcommand INIT DIALOG <oDlg> ;
[<res: FROM RESOURCE> <Resid> ] ;
[ TITLE <cTitle> ] ;
[ AT <x>, <y> ] ;
[ SIZE <width>, <height> ] ;
[ ICON <ico> ] ;
[ BACKGROUND BITMAP <oBmp> ] ;
[ STYLE <nStyle> ] ;
[ FONT <oFont> ] ;
[ <bclr: BACKCOLOR, COLOR> <bColor> ] ;
[<lClipper: CLIPPER>] ;
[<lExitOnEnter: NOEXIT>] ; //Modified By Sandro
[<lExitOnEsc: NOEXITESC>] ; //Modified By Sandro
[ <lnoClosable: NOCLOSABLE> ] ;
[ ON INIT <bInit> ] ;
[ ON SIZE <bSize> ] ;
[ ON PAINT <bPaint> ] ;
[ ON GETFOCUS <bGfocus> ] ;
[ ON LOSTFOCUS <bLfocus> ] ;
[ ON OTHER MESSAGES <bOther> ] ;
[ ON EXIT <bExit> ] ;
[ HELPID <nHelpId> ] ;
Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
Avatar do usuário
deividdjs
Usuário Nível 3
Usuário Nível 3
Mensagens: 377
Registrado em: 19 Set 2006 09:39
Localização: Foz do Iguaçu / Pr

SAIR DO GET COM ENTER AO INVES DE TAB

Mensagem por deividdjs »

Meu diálog já está com o parâmetro CLIPPER .. e mesmo assim não sai .. nas pesquisas que fiz no fórum tinha visto este detalhe do parâmetro Clipper e do style stoptab..
Windows 11 + Harbour 3.2 + MINGW64 gcc 14.1.0 + Visual Lib + GTWVG + LETODBF WINDOWNS/LINUX
Avatar do usuário
Itamar M. Lins Jr.
Administrador
Administrador
Mensagens: 7928
Registrado em: 30 Mai 2007 11:31
Localização: Ilheus Bahia
Curtiu: 1 vez

SAIR DO GET COM ENTER AO INVES DE TAB

Mensagem por Itamar M. Lins Jr. »

Olá!
Se for o ULTIMO não sai mesmo.
Sai do primeiro até o penúltimo.

Se o dialog tiver só 1 get, vc precisa colocar mais um o tal get fantasma.

E no ultimo também. Quando tem vários gets,

Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
Avatar do usuário
alaminojunior
Colaborador
Colaborador
Mensagens: 1717
Registrado em: 16 Dez 2005 21:26
Localização: Ubatuba - SP

SAIR DO GET COM ENTER AO INVES DE TAB

Mensagem por alaminojunior »

deividdjs escreveu:Meu diálog já está com o parâmetro CLIPPER .. e mesmo assim não sai .. nas pesquisas que fiz no fórum tinha visto este detalhe do parâmetro Clipper e do style stoptab..
Este GET tem alguma cláusula WHEN ou VALID que talvez esteja brecando o processo ?
Compilador xHarbour 1.2.3 + Embarcadero C++ 7.30
MySQL c/ SQLRDD
HwGui + GTWVG
Avatar do usuário
deividdjs
Usuário Nível 3
Usuário Nível 3
Mensagens: 377
Registrado em: 19 Set 2006 09:39
Localização: Foz do Iguaçu / Pr

SAIR DO GET COM ENTER AO INVES DE TAB

Mensagem por deividdjs »

alaminojunior escreveu:
deividdjs escreveu:Meu diálog já está com o parâmetro CLIPPER .. e mesmo assim não sai .. nas pesquisas que fiz no fórum tinha visto este detalhe do parâmetro Clipper e do style stoptab..
Este GET tem alguma cláusula WHEN ou VALID que talvez esteja brecando o processo ?

Código: Selecionar todos

  @ 655,27 GET oEdit1_pesquisar VAR vEdit1_pesquisar OF oPanel1 PICTURE "@!" SIZE 371,22 MAXLENGTH 30 ;
         VALID {|| If( hwg_GetKeyState( VK_RETURN ) < 0, ;  
         ( oBrw:SetFocus(), .f. ), .t. ) } ;  
         ON CHANGE {|| BuscaPorContemCliente(oEdit1_pesquisar:GetText(), oBrw), .t. }; // Pesquisa dinâmica
         STYLE WS_TABSTOP
tem um VALID .. q inclusive está forçando a saida dele com o <enter> :\

complicado esse tal de GUI hheheeh

abs,
Windows 11 + Harbour 3.2 + MINGW64 gcc 14.1.0 + Visual Lib + GTWVG + LETODBF WINDOWNS/LINUX
Avatar do usuário
alaminojunior
Colaborador
Colaborador
Mensagens: 1717
Registrado em: 16 Dez 2005 21:26
Localização: Ubatuba - SP

SAIR DO GET COM ENTER AO INVES DE TAB

Mensagem por alaminojunior »

Não consigo agora testar nem mentalmente esse bloco de código, então sugiro ir por partes, remova esta cláusula valid e change e vá testando.
Compilador xHarbour 1.2.3 + Embarcadero C++ 7.30
MySQL c/ SQLRDD
HwGui + GTWVG
Avatar do usuário
alaminojunior
Colaborador
Colaborador
Mensagens: 1717
Registrado em: 16 Dez 2005 21:26
Localização: Ubatuba - SP

SAIR DO GET COM ENTER AO INVES DE TAB

Mensagem por alaminojunior »

Amanhã consigo te enviar o código que uso para este tipo de pesquisa
Compilador xHarbour 1.2.3 + Embarcadero C++ 7.30
MySQL c/ SQLRDD
HwGui + GTWVG
Avatar do usuário
deividdjs
Usuário Nível 3
Usuário Nível 3
Mensagens: 377
Registrado em: 19 Set 2006 09:39
Localização: Foz do Iguaçu / Pr

SAIR DO GET COM ENTER AO INVES DE TAB

Mensagem por deividdjs »

Itamar M. Lins Jr. escreveu:Olá!
Se for o ULTIMO não sai mesmo.
Sai do primeiro até o penúltimo.

Se o dialog tiver só 1 get, vc precisa colocar mais um o tal get fantasma.

E no ultimo também. Quando tem vários gets,

Saudações,
Itamar M. Lins Jr.
boa noite Itamar ... como assim get fantasma ? então se eu tiver somente um get no dialog ele não sairá e dará foco em outro objeto no meu caso (oBrw) com a tecla enter ?? e como eu faria esse get fantasma ??

Abraço,
Windows 11 + Harbour 3.2 + MINGW64 gcc 14.1.0 + Visual Lib + GTWVG + LETODBF WINDOWNS/LINUX
Avatar do usuário
deividdjs
Usuário Nível 3
Usuário Nível 3
Mensagens: 377
Registrado em: 19 Set 2006 09:39
Localização: Foz do Iguaçu / Pr

SAIR DO GET COM ENTER AO INVES DE TAB

Mensagem por deividdjs »

alaminojunior escreveu:Não consigo agora testar nem mentalmente esse bloco de código, então sugiro ir por partes, remova esta cláusula valid e change e vá testando.
eu fiz isso .. deixei o get pelado .. .e mesmo assim ele só sai dele e dá foco no browse com o <TAB> com o <ENTER> não ocorre nada !!
Windows 11 + Harbour 3.2 + MINGW64 gcc 14.1.0 + Visual Lib + GTWVG + LETODBF WINDOWNS/LINUX
Responder