PC Toledo

... 2025-12-21 10:40 UTC-0300 Itamar Lins itamarlins at gmail.com
* source/gtk/hbrowse.prg
! Fix for ... BROWSE ... APPEND AUTOEDIT flags into a TAB control

2025-12-16 14:51 UTC-0300 Jose Quintas jmcquintas at gmail.com
* samples/demoall.prg
! dlg CLIPPER NOEXIT NOEXITESC
* source/cross/common.prg ...

O default com CLIPPER é encerrar a dialog no último GET.
Parece... que o ecerramento é antes do VALID.

Teria que testar com NOEXIT se muda alguma coisa.
Aí poderíamos pensar em testar o valid antes da saída.
Caso contrário... teria que ser em outro lugar.

Olá!
O get tem que se comportar da mesma forma do Clipper(DOS)

GET <enter>
GET <enter>
GET
READ

INIT DIALOG
CONTROLES...
Só que pára, se tiver um GET aqui "penúltimo" e não sai com enter então o VALID {||etc} não funciona.
Se o ultimo objeto/controle for por exemplo BUTTON pega FOCO, OWNERBUTTON não ...

NÃO SEI se faltaria alguma coisa...
Mas acho que daria pra fazer manualmente.
Por exemplo, ENTER no último GET posicionar num button OK/Salvar/Etc.

Depende do que considerar CLIPPER, se é movimento só pelos GETs.
Quando não indica isso, deve ser a default, que deve ser por TABSTOP.
Não cheguei a ...

Olá!

bom dia amigos ..

depois que vocês atualizam a hwgui vocês colocam onde pra baixar ela ja com as modificações ?/

Abraço!

Deivid

Agora dá até pra achar aonde gera saída.


DATA lResult INIT .F. // Becomes TRUE if the OK button is pressed
DATA lExitOnEnter INIT .T. // Set it to False, if dialog shouldn't be ended after pressing ENTER key,
// Added by Sandro Freire
DATA lExitOnEsc INIT .T. // Set it to False, if dialog ...

EEEEBBBBBBAAAAAAAA !!!!!!!

Conforme a IA tinha dito, seria ENTER não tratado na DIALOG, porque ENTER sai.

E eis que olhei guilib.ch


[<lClipper: CLIPPER>] ;
[<lExitOnEnter: NOEXIT>] ; //Modified By Sandro
[<lExitOnEsc: NOEXITESC>] ; //Modified By Sandro


Yes
Problema resolvido declarando ...

Olá!
Essa parte interna sempre foi da forma que é.
O que tinha e foi colocado em controles extendidos, é uma serie de penduricalhos.
Mãozinha do mouse, cores, etc..Coisas só do windows.
Tô com um problema parecido aqui para resolver.
Já fiz umas 3 abordagens diferentes e nada.... Uma hora sai.
Igual ...

Nada feito.
Isso tudo é pra TAB, que tem TABPAGES que são janelas reais.
Não se aplica a SysTabControl32.

Possibilidades:
Talvez criar panel em cada tabpage, pros GETs ficarem numa janela real
Refazer tudo pra existirem janelas reais pra tabpage.

Complicou pra solução, não sei como era na hwgui 2.17.

é seguro acrescentar esse WS_EX_CONTROLPARENT pra qualquer tabpage?

Sim — é seguro acrescentar WS_EX_CONTROLPARENT para qualquer TabPage, e mais do que isso: é o estilo correto e esperado para esse tipo de container.

Vou justificar tecnicamente, para você ficar confortável com a decisão.

1. O que ...

... não aparece MsgBox

não há stack Harbour

Por que isso só acontece no último GET da TabPage

Porque existe uma condição especial:

Quando um controle não pode avançar o foco e não consome ENTER, o Windows promove o ENTER para o diálogo.

Nos outros GETs:

o foco muda

o EDIT consome ...

A IA sempre diz que achou a solução kkkkk
Sugeri uma alteração


talvez em hedit isto
ELSEIF wParam == VK_TAB .OR. ( wParam == VK_RETURN .AND. lParam == IDOK )
RETURN 0
ELSEIF wParam == VK_ESCAPE .OR. wParam == VK_RETURN
Return - 1
no método onevent

Excelente achado. É exatamente aí.
Esse ...

Olá!
O DemoAll do José Quintas, é compilado de modo "experimental".
Tem uns comando em MT que só pega quando ativado.
As Janelas, Dialogs estão dentro de um ARRAY.
Vai precisar passar isso, os processos de um para outro...

Vou compilar com a versão q tenho aqui e ver se ocorre isso tbm .. a princípio no meu sistema não fecha ou aborta a aplicação ao chegar no último get .. mais vou testar com o demoall e volto com vcs ..