Página 1 de 2

QUEM USA A VERSÃO 2.23 B7 ? e faz isso funcionar com <enter>

Enviado: 14 Out 2024 08:27
por deividdjs
bom dia Prezados ..

no Designer funciona perfeitamente um <PAGE> dentro de outro <PAGE> e os gets asumindo os parametros do dialog .. porem na versão 2.23 b7 o mesmo codigo não funciona .. alguem pode me dar uma força ??

Codigo gerado pelo Designer .. aí funciona com com <enter> se compilo o mesmo codigo no meu sistema .. quando dou <enter> nao acontece nada ... e se sou um <tab> ele volta para o tab1 ... bem doido!

Código: Selecionar todos


#Include "hwgui.ch"
STATIC Thisform

FUNCTION controle( ... )
 RETURN _controle( HB_AParams() )

FUNCTION _controle(  )

  LOCAL oDlg,  oPage1, oPage2, oOwnerbutton1, oOwnerbutton2, oOwnerbutton3, oOwnerbutton4, oEdit1 ;
        , oEdit2, oEdit3, oEdit4, oButton1

 LOCAL  vEdit1 := "" , vEdit2 := "" , vEdit3 := "" , vEdit4 := ""


  INIT DIALOG oDlg TITLE "Form1" ;
    AT 0, 0 SIZE 1200,645 CLIPPER  NOEXIT  ;
     STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+WS_SIZEBOX+DS_CENTER 
    Thisform := oDlg

   @ 4,3 TAB oPage1 ITEMS {} SIZE 1192,632 ;
        STYLE 0 +0  
    BEGIN PAGE 'teste 1' OF oPage1  
    END PAGE OF oPage1
    BEGIN PAGE 'teste 2' OF oPage1  
    END PAGE OF oPage1
    BEGIN PAGE 'teste 3' OF oPage1  
   @ 229,36 OWNERBUTTON oOwnerbutton4  SIZE 68,47   ;
        TEXT ''  ;
        COORDINATES 0, 0, 0, 0 
   @ 1,91 TAB oPage2 ITEMS {} SIZE 1189,541 ;
        STYLE 0 +0  
    BEGIN PAGE 'teste 1' OF oPage2  
    END PAGE OF oPage2
    BEGIN PAGE 'teste 2' OF oPage2  
   @ 40,63 GET oEdit1 VAR vEdit1 SIZE 80,24   
   @ 48,124 GET oEdit2 VAR vEdit2 SIZE 80,24   
   @ 58,179 GET oEdit3 VAR vEdit3 SIZE 80,24   
   @ 67,232 GET oEdit4 VAR vEdit4 SIZE 80,24   
   @ 69,343 BUTTON oButton1 CAPTION "ok"   SIZE 90,30 ;
        STYLE BS_CENTER +WS_TABSTOP 
    END PAGE OF oPage2
   @ 10,34 OWNERBUTTON oOwnerbutton1  SIZE 68,47   ;
        TEXT ''  ;
        COORDINATES 0, 0, 0, 0 
   @ 83,34 OWNERBUTTON oOwnerbutton2  SIZE 68,47   ;
        TEXT ''  ;
        COORDINATES 0, 0, 0, 0 
   @ 155,35 OWNERBUTTON oOwnerbutton3  SIZE 68,47   ;
        TEXT ''  ;
        COORDINATES 0, 0, 0, 0 
    END PAGE OF oPage1

   ACTIVATE DIALOG oDlg 


RETURN oDlg:lresult
no meu sistema está assim ..

Código: Selecionar todos

#include "hwgui.ch"

STATIC oBrw , ThisCli

FUNCTION controle( ... )
 RETURN DB_CADCLI( HB_AParams() )

PROCEDURE DB_CADCLI()  // Função principal de cadastro de clientes
   
	LOCAL GETLIST := {} 
    
   PRIVATE oDlg, oTab1, oTab2
   PRIVATE oOwnerbutton1, oRadiobutton1, oOwnerbutton2, oRadiobutton2 , oOwnerbutton3, oOwnerbutton4
   PRIVATE vEdit1_pesquisar := "", vRadiogroup1 := 1 , vRadioSelect 
   PRIVATE oEdit1_pesquisar, oRadiogroup1, oGroup1    
   PRIVATE oPhantom , cPHANTOM 
   
	// Cria o diálogo e centraliza ele na janela principal
	INIT DIALOG oDlg ;
	   TITLE "Registro de Clientes" ;
		CLIPPER NOEXIT;
	   AT 0, 0 ;
	   SIZE 1200, 645 ;
	   FONT oFontDlg ;
	   STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+DS_CENTER+MB_USERICON ;	
		ON INIT {|This| HWG_SETWINDOWTHEME( this:handle,0),oBrw:lInfocus := .T., SimulaAltDuasVezes() }
				 
	   ThisCli := oDlg
		                    
      @ 5,5 TAB oTab1 ITEMS {"Consulta","Datos del Cadastro","Movimientos","Pedidos","Facturas","Productos"} SIZE 1188, 635 ; //
      ON CHANGE { || IIF(oTab1:GetActivePage() == 2, (oTab2:SetTab(1), oTab2:SetFocus()), NIL) };
	   ON SIZE ANCHOR_TOPABS + ANCHOR_LEFTABS + ANCHOR_RIGHTABS + ANCHOR_BOTTOMABS ;//	      BITMAP {"cmdBrowse","cmdBrowse","cmdBrowse","cmdBrowse","cmdBrowse","cmdBrowse"} FROM RESOURCE
			
	BEGIN PAGE "Consulta" OF oTab1
	   	   
		@ 2,30 OWNERBUTTON oOwnerbutton1  SIZE 62,50 ;
	        TEXT 'Incluir' COORDINATES 0, 28, 0, 0  ;
	        FONT HFont():Add( 'MS Sans Serif',0,-11,400,,,) ;
	        BITMAP HBitmap():AddResource('bmp_new') COORDINATES 0, 5, 0, 0 TRANSPARENT COLOR 12632256  ; 
	        TOOLTIP "Incluir Cliente"
	
		@ 67,30 OWNERBUTTON oOwnerbutton2  SIZE 62,50 ;
	        TEXT 'Alterar' COORDINATES 0, 28, 0, 0  ;
	        FONT HFont():Add( 'MS Sans Serif',0,-11,400,,,) ;
	        BITMAP "bmp_edit" FROM RESOURCE COORDINATES 0, 5, 0, 0 TRANSPARENT COLOR 12632256;
	        TOOLTIP "Alterar datos del Cliente"

		@ 132,30 OWNERBUTTON oOwnerbutton3 SIZE 62,50 ;
	        TEXT 'Eliminar' COORDINATES 0, 28, 0, 0  ;
	        FONT HFont():Add( 'MS Sans Serif',0,-11,400,,,) ;
	        BITMAP "smcancel" FROM RESOURCE COORDINATES 0, 5, 0, 0 TRANSPARENT COLOR 12632256;
	        TOOLTIP "Borrar Registro"

		@ 1120,30 OWNERBUTTON oOwnerbutton4 SIZE 62,50 ON CLICK {|| hwg_EndDialog(oDlg:handle()) } ;
	        TEXT 'Salir' COORDINATES 0, 28, 0, 0  ;
	        FONT HFont():Add( 'MS Sans Serif',0,-11,400,,,) ;
	        BITMAP "smexit" FROM RESOURCE COORDINATES 0, 5, 0, 0 TRANSPARENT COLOR 12632256;
			  TOOLTIP "Salir del los registros" 
		 
		@ 250,26 GET RADIOGROUP oRadiogroup1 VAR vRadiogroup1 CAPTION "Orden" OF oTab1  SIZE 380,56;
		
		    @ 255,40 RADIOBUTTON oRadiobutton1 CAPTION "&Nombre" SIZE 90,22;
		        ON CLICK {|| vEdit1_pesquisar := "", oEdit1_pesquisar:Refresh(), ORDSETFOCUS("CLICX_02"), oBrw:SetFocus(), oBrw:Refresh(), oEdit1_pesquisar:SetFocus() }
		
		    @ 255,58 RADIOBUTTON oRadiobutton2 CAPTION "No&mbre Comercial" SIZE 140,22;  
		        ON CLICK {|| vEdit1_pesquisar := "", oEdit1_pesquisar:Refresh(), ORDSETFOCUS("CLICX_06"), oBrw:SetFocus(), oBrw:Refresh(), oEdit1_pesquisar:SetFocus() }
		
		    @ 400,58 RADIOBUTTON oRadiobutton3 CAPTION "&RUC" SIZE 90,21;  
		        ON CLICK {|| vEdit1_pesquisar := "", oEdit1_pesquisar:Refresh(), ORDSETFOCUS("CLICX_09"), oBrw:SetFocus(), oBrw:Refresh(), oEdit1_pesquisar:SetFocus() }
		
		    @ 400,40 RADIOBUTTON oRadiobutton4 CAPTION "&Código" SIZE 90,22;
		        ON CLICK {|| vEdit1_pesquisar := "", oEdit1_pesquisar:Refresh(), ORDSETFOCUS("CLICX_01"), oBrw:SetFocus(), oBrw:Refresh(), oEdit1_pesquisar:SetFocus() }
		
   	    @ 545,40 RADIOBUTTON oRadiobutton5 CAPTION "Ciu&dad" SIZE 80,22;
	           ON CLICK {|| vEdit1_pesquisar := "", oEdit1_pesquisar:Refresh(), ORDSETFOCUS("CLICX_10"), oBrw:SetFocus(), oBrw:Refresh(), oEdit1_pesquisar:SetFocus() }

   	    @ 545,58 RADIOBUTTON oRadiobutton5 CAPTION "&Teléfono" SIZE 80,22;
	           ON CLICK {|| vEdit1_pesquisar := "", oEdit1_pesquisar:Refresh(), ORDSETFOCUS("CLICX_07"), oBrw:SetFocus(), oBrw:Refresh(), oEdit1_pesquisar:SetFocus() }
              
		
		END RADIOGROUP SELECTED vRadiogroup1      
		
		@ 649, 26 GROUPBOX oGroup1 CAPTION "&Búsqueda" SIZE 389, 55
		
		@ 655, 50 GET oEdit1_pesquisar VAR vEdit1_pesquisar PICTURE "@!" SIZE 371, 22 MAXLENGTH 30;    
                VALID { || PesquisaClientes(oEdit1_pesquisar:GetText(), oBrw), oBrw:SetFocus(), .T. }

      @ 0,0 GET oPhantom VAR cPHANTOM SIZE 0, 0

		BrowserCliente() 
      
   END PAGE OF oTab1

   BEGIN PAGE "Datos del Cadastro" OF oTab1
   
         @ 1, 22 TAB oTab2 ITEMS { "Personales", "Cobranzas", "Comerciales", "Profissionales", "Otros" } ;
         SIZE 1187, 635 ;
			ON SIZE ANCHOR_TOPABS + ANCHOR_LEFTABS + ANCHOR_RIGHTABS + ANCHOR_BOTTOMABS //         ON INIT {|| oTab2:SetTab(1) }
	         
         BEGIN PAGE "Personales" OF oTab2
				   
             page_cliente()
         
         END PAGE OF oTab2

		   BEGIN PAGE "Cobranzas" OF oTab2
		   END PAGE OF oTab2

		   BEGIN PAGE "Comerciales" OF oTab2
		   END PAGE OF oTab2

		   BEGIN PAGE "Profissionales" OF oTab2
		   END PAGE OF oTab2

		   BEGIN PAGE "Otros" OF oTab2
		   END PAGE OF oTab2
   
   END PAGE OF oTab1

   BEGIN PAGE "Movimientos" OF oTab1
   END PAGE OF oTab1

   BEGIN PAGE "Pedidos" OF oTab1
   END PAGE OF oTab1

   BEGIN PAGE "Facturas" OF oTab1
   END PAGE OF oTab1

   BEGIN PAGE "Productos" OF oTab1
   END PAGE OF oTab1
  
	ACTIVATE DIALOG oDlg 
   
RETURN oDlg:lresult

o estranho é q se deixo somente o tab1 .. eu consigo se movimentar com o <enter> entre os gets..

Abraço,

Deivid

QUEM USA A VERSÃO 2.23 B7 ? e faz isso funcionar com <enter>

Enviado: 14 Out 2024 08:57
por JoséQuintas
test.png
Até compilei aqui, mas não tem get.

Não entendi o LOCAL GetList, isso não vale pra GUI, porque GET não executa em rotinas individuais igual console.
Remova e veja se muda alguma coisa.

QUEM USA A VERSÃO 2.23 B7 ? e faz isso funcionar com <enter>

Enviado: 14 Out 2024 09:50
por JoséQuintas
Não esquece do get fantasma.
Ele toma lugar de um get, e pode tomar lugar do foco também.
Nesse caso coloco o tratamento de foco no get anterior ao fantasma, se precisar.

QUEM USA A VERSÃO 2.23 B7 ? e faz isso funcionar com <enter>

Enviado: 14 Out 2024 12:54
por deividdjs
Ola Zé ...

o getlist coloquei pra ver se resolvia alguma coisa .. mais com base em console mesmo .. não ele não interferiu em nada ..

os gets estao aqui nesta função ..

Código: Selecionar todos

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

FUNCTION page_cliente()
   LOCAL vEdit1 := "", vEdit2 := "", vEdit3 := "", vEdit4 := "", vEdit5 := ""
   LOCAL oEdit1, oEdit2, oEdit3, oEdit4, oEdit5, oButton1, oButton2, oOwnerbutton1
   LOCAL cDummy, oGetEsc

   // Controles dentro da aba "Personales" (associados ao oPage)
   @ 60, 68 GET oEdit1 VAR vEdit1 SIZE 308, 22 STYLE ES_AUTOHSCROLL 
   @ 64, 119 GET oEdit2 VAR vEdit2 SIZE 338, 22 STYLE ES_AUTOHSCROLL 
   @ 67, 164 GET oEdit3 VAR vEdit3 SIZE 148, 22 STYLE ES_AUTOHSCROLL 
   @ 70, 216 GET oEdit4 VAR vEdit4 SIZE 173, 22 STYLE ES_AUTOHSCROLL 
   @ 74, 273 GET oEdit5 VAR vEdit5 SIZE 217, 22 STYLE ES_AUTOHSCROLL 

   cDummy := SPACE(1)  // Variável para o GET invisível
   @ 0, 0 GET oGetEsc VAR cDummy PICTURE "@!" SIZE 0, 0 

   // Botões dentro da aba "Personales"
   @ 64, 356 BUTTON oButton1 CAPTION "Ok" SIZE 90, 30 STYLE WS_TABSTOP 
   @ 234, 361 BUTTON oButton2 CAPTION "Cancelar" SIZE 90, 30 STYLE WS_TABSTOP 
   @ 477, 378 OWNERBUTTON oOwnerbutton1 SIZE 68, 28 TEXT "Voltar" 

   // Configurando o foco inicial ao entrar na aba "Personales"
   OnInit := { || oEdit1:SetFocus() }

RETURN NIL 
porem se quiser .. pode compilar o primeiro codigo tbm q foi gerado pelo designer .. . tbm não funciona quando compilo na ultima versão ..

Abraço!

QUEM USA A VERSÃO 2.23 B7 ? e faz isso funcionar com <enter>

Enviado: 14 Out 2024 13:32
por JoséQuintas
Ainda vou testar mas.... acho que o problema pode ser a variável com tamanho zero.
Lembro de um problema com isso em algum lugar/lib.

QUEM USA A VERSÃO 2.23 B7 ? e faz isso funcionar com <enter>

Enviado: 14 Out 2024 13:57
por JoséQuintas
Fiz um teste aqui e funcionou, confirme se realmente é solução.
Defini como parent a tab principal, e não a interna.

Código: Selecionar todos

         BEGIN PAGE "Personales" OF oTab2

             page_cliente( oTab1 )

         END PAGE OF oTab2

Código: Selecionar todos

FUNCTION page_cliente( oTab )
   LOCAL vEdit1 := "", vEdit2 := "", vEdit3 := "", vEdit4 := "", vEdit5 := ""
   LOCAL oEdit1, oEdit2, oEdit3, oEdit4, oEdit5, oButton1, oButton2, oOwnerbutton1
   LOCAL cDummy, oGetEsc

   // Controles dentro da aba "Personales" (associados ao oPage)
   @ 60, 68 GET oEdit1 VAR vEdit1 OF oTab SIZE 308, 22 STYLE ES_AUTOHSCROLL
   @ 64, 119 GET oEdit2 VAR vEdit2 OF oTab SIZE 338, 22 STYLE ES_AUTOHSCROLL
   @ 67, 164 GET oEdit3 VAR vEdit3 OF oTab SIZE 148, 22 STYLE ES_AUTOHSCROLL
   @ 70, 216 GET oEdit4 VAR vEdit4 OF oTab SIZE 173, 22 STYLE ES_AUTOHSCROLL
   @ 74, 273 GET oEdit5 VAR vEdit5 OF oTab SIZE 217, 22 STYLE ES_AUTOHSCROLL

   cDummy := SPACE(1)  // Variável para o GET invisível
   @ 0, 0 GET oGetEsc VAR cDummy PICTURE "@!" SIZE 0, 0

   // Botões dentro da aba "Personales"
   @ 64, 356 BUTTON oButton1 CAPTION "Ok" SIZE 90, 30 STYLE WS_TABSTOP
   @ 234, 361 BUTTON oButton2 CAPTION "Cancelar" SIZE 90, 30 STYLE WS_TABSTOP
   @ 477, 378 OWNERBUTTON oOwnerbutton1 OF oTab SIZE 68, 28 TEXT "Voltar"

   // Configurando o foco inicial ao entrar na aba "Personales"
   OnInit := { || oEdit1:SetFocus() }

RETURN NIL
Talvez precise pros buttons também, mas precisa confirmar a sintaxe.

"Talvez" não tenha sido previsto tab repassar comandos pra outra tab, não sei dizer.
Interessante repassar esse fonte pra hwgui, pra confirmar se tem solução melhor ou não.

Nota: desse jeito dá pra testar PARENT diferente, porque é só passar pra função.

QUEM USA A VERSÃO 2.23 B7 ? e faz isso funcionar com <enter>

Enviado: 14 Out 2024 15:07
por deividdjs
JoséQuintas escreveu:Fiz um teste aqui e funcionou, confirme se realmente é solução.
Defini como parent a tab principal, e não a interna.

Código: Selecionar todos

         BEGIN PAGE "Personales" OF oTab2

             page_cliente( oTab1 )

         END PAGE OF oTab2

Código: Selecionar todos

FUNCTION page_cliente( oTab )
   LOCAL vEdit1 := "", vEdit2 := "", vEdit3 := "", vEdit4 := "", vEdit5 := ""
   LOCAL oEdit1, oEdit2, oEdit3, oEdit4, oEdit5, oButton1, oButton2, oOwnerbutton1
   LOCAL cDummy, oGetEsc

   // Controles dentro da aba "Personales" (associados ao oPage)
   @ 60, 68 GET oEdit1 VAR vEdit1 OF oTab SIZE 308, 22 STYLE ES_AUTOHSCROLL
   @ 64, 119 GET oEdit2 VAR vEdit2 OF oTab SIZE 338, 22 STYLE ES_AUTOHSCROLL
   @ 67, 164 GET oEdit3 VAR vEdit3 OF oTab SIZE 148, 22 STYLE ES_AUTOHSCROLL
   @ 70, 216 GET oEdit4 VAR vEdit4 OF oTab SIZE 173, 22 STYLE ES_AUTOHSCROLL
   @ 74, 273 GET oEdit5 VAR vEdit5 OF oTab SIZE 217, 22 STYLE ES_AUTOHSCROLL

   cDummy := SPACE(1)  // Variável para o GET invisível
   @ 0, 0 GET oGetEsc VAR cDummy PICTURE "@!" SIZE 0, 0

   // Botões dentro da aba "Personales"
   @ 64, 356 BUTTON oButton1 CAPTION "Ok" SIZE 90, 30 STYLE WS_TABSTOP
   @ 234, 361 BUTTON oButton2 CAPTION "Cancelar" SIZE 90, 30 STYLE WS_TABSTOP
   @ 477, 378 OWNERBUTTON oOwnerbutton1 OF oTab SIZE 68, 28 TEXT "Voltar"

   // Configurando o foco inicial ao entrar na aba "Personales"
   OnInit := { || oEdit1:SetFocus() }

RETURN NIL
Talvez precise pros buttons também, mas precisa confirmar a sintaxe.

"Talvez" não tenha sido previsto tab repassar comandos pra outra tab, não sei dizer.
Interessante repassar esse fonte pra hwgui, pra confirmar se tem solução melhor ou não.

Nota: desse jeito dá pra testar PARENT diferente, porque é só passar pra função.

Zé .. já havia tentado desta maneira tbm e aqui não funcionou!! fiz exatamente igual vc me mandou no arquivo em anexo .. não funciona !! q versão tu tá utilizando ?? pode me passar ?? vou recompilar aqui e testar com a sua lib !!! pq na versão do designer funciona .. e na ultima versão que tenho aqui não ... o estranho é que se por o <tab> dentro de um panel tbm não funciona .. ele não passa os parametros do dialog para o tab se ele estiver dentro de outro objeto ... se eu coloco esses gets no tab1 ele funciona .. porem se eu por a função de cliente recebendo o parent <tab1> não funciona ! loko o negocio !!

Abraço!

QUEM USA A VERSÃO 2.23 B7 ? e faz isso funcionar com <enter>

Enviado: 14 Out 2024 15:45
por alxsts
Olá!

Gere a LIB HwGUI com -b e use o debugger para ver o que está acontecendo internamente...

QUEM USA A VERSÃO 2.23 B7 ? e faz isso funcionar com <enter>

Enviado: 14 Out 2024 19:17
por JoséQuintas
deividdjs escreveu:fiz exatamente igual vc me mandou no arquivo em anexo .. não funciona !!
Opa, muita calma nessa hora.
O arquivo que enviei pode ser compilado e funciona sozinho.
Comece fazendo o teste com ele então.

Minha hwgui é exatamente a oficial, não tem uma letrinha sequer diferente.
Fica no github, mas dá no mesmo.
Só não atualizo todo dia, mas atualizo quando posso.

QUEM USA A VERSÃO 2.23 B7 ? e faz isso funcionar com <enter>

Enviado: 14 Out 2024 19:33
por JoséQuintas
fonte.png
Esse fonte, compilado sozinho.
hbmk2 test3.prg hwgui.hbc

QUEM USA A VERSÃO 2.23 B7 ? e faz isso funcionar com <enter>

Enviado: 14 Out 2024 19:48
por JoséQuintas
Não acertei o foco inicial, apenas testei a parte dos gets.
Dá pra ser usado como cobaia até acertar tudo.
Precisaremos de ajuda pro resto, pra não ter que ficar tentando várias coisas.

QUEM USA A VERSÃO 2.23 B7 ? e faz isso funcionar com <enter>

Enviado: 15 Out 2024 09:03
por deividdjs
desta forma q vc passou funciona zé .. mais porque ?? não deveria funciona normalmente dentro do oTAb2 mesmo sem passar o paramento do parent oTab1 ?? .... tem coisas q me deixam bem confusos em hwgui ... mais vamos lá seguimos !! obrigado pelo enigma solucionado ehhehe

porem ainda tem um problema .... quando eu mudo de aba ... os gets vão atras .. ehehehe outro B.O KKKKK

Código: Selecionar todos

FUNCTION page_cliente( oTab )
   LOCAL vEdit1 := "", vEdit2 := "", vEdit3 := "", vEdit4 := "", vEdit5 := ""
   LOCAL oEdit1, oEdit2, oEdit3, oEdit4, oEdit5, oButton1, oButton2, oOwnerbutton1
   LOCAL cDummy, oGetEsc

   // Controles dentro da aba "Personales" (associados ao oPage)
   @ 60, 68 GET oEdit1 VAR vEdit1 OF oTab SIZE 308, 22 STYLE ES_AUTOHSCROLL
   @ 64, 119 GET oEdit2 VAR vEdit2 OF oTab SIZE 338, 22 STYLE ES_AUTOHSCROLL
   @ 67, 164 GET oEdit3 VAR vEdit3 OF oTab SIZE 148, 22 STYLE ES_AUTOHSCROLL
   @ 70, 216 GET oEdit4 VAR vEdit4 OF oTab SIZE 173, 22 STYLE ES_AUTOHSCROLL
   @ 74, 273 GET oEdit5 VAR vEdit5 OF oTab SIZE 217, 22 STYLE ES_AUTOHSCROLL

   cDummy := SPACE(1)  // Variável para o GET invisível
   @ 0, 0 GET oGetEsc VAR cDummy PICTURE "@!" SIZE 0, 0

   // Botões dentro da aba "Personales"
   @ 64, 356 BUTTON oButton1 CAPTION "Ok" SIZE 90, 30 STYLE WS_TABSTOP
   @ 234, 361 BUTTON oButton2 CAPTION "Cancelar" SIZE 90, 30 STYLE WS_TABSTOP
   @ 477, 378 OWNERBUTTON oOwnerbutton1 OF oTab SIZE 68, 28 TEXT "Voltar"

   // Configurando o foco inicial ao entrar na aba "Personales"
   OnInit := { || oEdit1:SetFocus() }

RETURN NIL
Abraço!

QUEM USA A VERSÃO 2.23 B7 ? e faz isso funcionar com <enter>

Enviado: 15 Out 2024 10:09
por JoséQuintas
deividdjs escreveu:porem ainda tem um problema .... quando eu mudo de aba ... os gets vão atras .
Então do jeito que fiz tá errado.
Eles ficaram encima da tab de baixo, e não dentro.
Só olhei pros gets, e não troquei de aba.

QUEM USA A VERSÃO 2.23 B7 ? e faz isso funcionar com <enter>

Enviado: 15 Out 2024 10:16
por deividdjs
EXATO .. o correto é por como parametro oTab2 q os gets ficam dentro da aba corretamente .. porem o <enter> não funciona .... eu vi em um post o Simoes falando q abandonou os PAGES deve ser por causa desse monte de BUG q deve ter .. hehehe

QUEM USA A VERSÃO 2.23 B7 ? e faz isso funcionar com <enter>

Enviado: 15 Out 2024 11:49
por JoséQuintas
Eu vejo por outro lado.
Vira um fonte de difícil manutenção.
Pra que montar um "livro" pro usuário, se ele vai olhar/mexer em uma página por vez?
Tem que haver outra forma de fazer isso.

Qual seria a solução pra uso na tela de um celular ou numa página de internet ?
Acho que é pensar por aí.