Abas (TAB) e foco

[JoséQuintas]

DLGAUTO

Parte 1, o get genérico

Código: Selecionar todos

STATIC FUNCTION gui_TextCreate( xDlg, xParent, xControl, nRow, nCol, nWidth, nHeight, ;
            xValue, cPicture, nMaxLength, bValid, bAction, cImage, ;
            aItem, oFrmClass, lPassword )

   @ nCol, nRow GET xControl ;
      VAR       xValue ;
      OF        xParent ;
      SIZE      nWidth, nHeight ;
      STYLE     WS_DISABLED + iif( ValType( xValue ) $ "N,N+", ES_RIGHT, ES_LEFT ) ;
      ; // MAXLENGTH nMaxLength ;
      PICTURE   iif( Empty( cPicture ), Nil, cPicture ) ;
      VALID     bValid

   (nMaxLength);(bAction);(cImage);(aItem);(oFrmClass);(lPassword);(xDlg)

   RETURN Nil

parte 2: a chamada, lembrando que o segundo parâmetro é o parent que será usado

Código: Selecionar todos

  GUI():TextCreate( ::xDlg, iif( ::lWithTab, xTabPage, ::xDlg ), ...

Conclusão: indicar o PARENT

[deividdjs]

caro Luciano existe o EVENT ON CHANGE NA TAB e com ele voce pode manipular os objetos no momento que uma PAGE pega o FOCUs.

exemplo
@ 31,278 TAB oPage1 ITEMS {} SIZE 500,142 ;
STYLE 0 ;
ON CHANGE {|o| onchange_opage1(o)}

BEGIN PAGE 'page 2' OF oPage1
@ 180,41 GROUPBOX "Opções totais" OF oPage1 SIZE 206,80
GET RADIOGROUP r1
@ 207,68 RADIOBUTTON oRadiobutton1 CAPTION "CheckBox" OF oPage1 SIZE 110,22
@ 207,89 RADIOBUTTON oRadiobutton2 CAPTION "CheckBox" OF oPage1 SIZE 110,22
END RADIOGROUP SELECTED 1


FUNCTION onchange_opage1(opage)
IF opage:GetActivePage() = 2
oRadiobutton1:SETFOCUS()
ENDIF
RETURN nil

Bomdia Basso .. blz ?/

voce ja chegou a utilizar em hwgui um tab dentro do outro tab ?? e conseguiu controlar os gets ?? e os foco nos tabs ??

Abraço!

Deivid

[alxsts]

Olá!

[deividdjs]

Olá!

Abandonou hwgui e o forun ? jejejej ...

Valeu irmao .. obrigado !!

[JoséQuintas]

Nem tanto, veja aqui:

https://github.com/marcosgambeta/HWGUI

https://github.com/marcosgambeta/hwguipp

https://github.com/marcosgambeta/hwgui-r1908

E note em issues, ajudando Sygecom.
O fonte que só funciona compilando com -gc3 e outras coisas.

A idéia é ajustar para C++, com isso do bug acabou criando outros endereços.
Não é finalidade dele substituir a original, mas ele pode dar alguma dica, ou indicar se vai precisar de suporte da hwgui original.

Até hoje acho esquisito esse bug.
Comprovado só com hwgui, qualquer versão, compilando com -gc3 o bug some.

[alxsts]

Olá!

Confundiu Luis Fernando Basso (esbasso) com Marcos Gambeta...

[deividdjs]

Nem tanto, veja aqui:

https://github.com/marcosgambeta/HWGUI

https://github.com/marcosgambeta/hwguipp

https://github.com/marcosgambeta/hwgui-r1908

E note em issues, ajudando Sygecom.
O fonte que só funciona compilando com -gc3 e outras coisas.

A idéia é ajustar para C++, com isso do bug acabou criando outros endereços.
Não é finalidade dele substituir a original, mas ele pode dar alguma dica, ou indicar se vai precisar de suporte da hwgui original.

Até hoje acho esquisito esse bug.
Comprovado só com hwgui, qualquer versão, compilando com -gc3 o bug some.

Zé ... nas minhas idas e vindas ... eu até cheguei baixar essas libs do marcosgambeta ... porem qual é a mais estavel e que funciona com GCC 64 .. pq eu andei compilando uma delas e falta algumas funções comparando com a atual ..

qual é a diferença de uma e outra ?? tu sabe me dizer ??

Abraço,

Deivid

[JoséQuintas]

Zé ... nas minhas idas e vindas ... eu até cheguei baixar essas libs do marcosgambeta ... porem qual é a mais estavel e que funciona com GCC 64 .. pq eu andei compilando uma delas e falta algumas funções comparando com a atual ..
qual é a diferença de uma e outra ?? tu sabe me dizer ??

Não sou a pessoa indicada pra responder, porque estou limitado à parte básica.

O ideal é tentar essa, pedir suporte relatando na hwgui o que acontece, pode ter solução simples.
Seria melhor pra todos.

Se não tiver jeito... se 2.17 resolve...fazer o que... veja qual é a versão compatível com essa IDE, já que nessa IDE funciona o que está querendo.
É triste, mas fazer o que, o aplicativo precisa seguir em frente.

[JoséQuintas]

Código: Selecionar todos

                  IF !hwg_GetSkip( oParent := ::oParent, ::handle, 1 )
                     DO WHILE oParent != Nil .AND. !__ObjHasMsg( oParent, "GETLIST" )
                        oParent := oParent:oParent
                     ENDDO
                     hwg_DlgCommand( oParent, hwg_MakeWParam( IDOK, 0 ) )
                  ENDIF

Como mexer nisso eu não sei.
O DO WHILE vai procurando qual o controle superior que possui GetList, que vai ser usado pra controlar o HEdit(Get).
É de se imaginar que o Kresin deve saber o que procurar pra resolver, talvez ajustar a rotina geral pra essa situação.

[JoséQuintas]

Pelo jeito tem tudo na hwgui, provavelmente até da época da IDE.
Se na IDE funciona, talvez a resposta esteja nos próprios fontes.

[deividdjs]

Na ide com a versão 2.17 funciona perfeitamente .. porém estive comparando os fontes mudaram totalmente a forma de tratar os TABs .. aí não sei se mexer somente no HTab.prg se afeta mais alguma coisa … e se compilo meu sistema com essa versão buga tudo .. é bem complicado de uma versão pra outra …

[JoséQuintas]

Ok, mas o Kresin saberá, e pode usar fontes anteriores como exemplo.
Passe aquele fonte de teste, explique o problema, e mencione que nessa IDE dessa versão funciona.
Ele poderá verificar, e dar solução pra hwgui atual.

Só lembrar:
As mudanças na 2.17 chegaram num ponto que não deu pra continuar, o raciocínio dos programadores não era igual, por isso houve a decisão de retornar a situação anterior.
O melhor é que o Kresin mesmo procure resolver, pra ter continuidade, senão, corre o risco de repetir a situação anterior e ser anulado.
Talvez até usar os novos recursos e abandonar o tab anterior.

[deividdjs]

Eu vi que o Itamar já reportou algo ref. A isso pra ele SourceForge, porém vou reforçar pra ver se ele nos dá uma atenção .. obrigado Zé ..

Abraço !

[JoséQuintas]

Reportei o fonte teste lá.
É diferente do caso do Itamar, que se trata de apenas uma tab.
O seu caso é tab dentro de tab.

[SOSSOFT]

Boa solução, ir logo para a "fonte"