PC Toledo

... 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
! var names nPos nGetCount, +=, no logic changed

2025-12-12 22:24 UTC-0300 ItamarLins itamarlins at ...

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 ...

... 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 testar.

Nada demais, só o default da dlg do demoall CLIPPER NOEXIT NOEXITESC
E um bloco de código, acho que melhorado, do ponto de vista auto-explicativo.

nPos pra indicar posição do GET ao invés de I
nGetCount pra indicar quantidade de GETs, feito uma vez só
( nPos := nPos + nSkip ) trocado pra ( nPos ...

... DATA lExitOnEsc INIT .T. // Set it to False, if dialog shouldn't be ended after pressing ENTER key,
// Added by Sandro Freire



IF oDlg:lClipper
IF !hwg_GetSkip( oDlg, hCtrl, 1 )
IF oDlg:lExitOnEnter
oDlg:lResult := .T.
hwg_EndDialog( oDlg:handle )
ENDIF
ENDIF
RETURN 1
ENDIF


Faz ...

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 ...

Aquela imagem que já postei do demoall.

Acrescentando na dialog principal CLIPPER:
Antes da alteração abortava no ENTER em qualquer campo.
Depois da alteração, só aborta no ENTER do último campo.

No demoall mesmo, alterei a dialog principal adicionando CLIPPER.
ENTER nos campos passou a funcionar.
Mas ENTER no último campo aborta tudo.

A mesma coisa NÃO acontece se usar demoget2 em separado, sem TAB.

... Envolve várias partes da LIB ao mesmo tempo.
Meu conhecimento não é suficiente pra mexer com isso.

Só sei que se mudar a primeira dialog pra CLIPPER, aí aborta o programa.
Isso indica problema, mas sem mensagem nenhuma de erro, fica impossível saber aonde mexer.
Até tentei algumas alterações ...

Vixe, alterando a dlg principal adicionando CLIPPER, aí fechou tudo ao teclar ENTER, mas sem mensagem de erro.

Lembrando o fonte do demoall:

FUNCTION Main()

LOCAL oDlg, aInitList := {}, aEndList := {}, bCode

INIT DIALOG oDlg ;
TITLE "demoall.prg - Show Samples on screen, and others on menu ...

... LOCAL oDlg, oPage1, oPage2, oEdit1, oEdit2

LOCAL vEdit1 := "" , vEdit2 := ""

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

@ 6,5 TAB oPage1 ITEMS {} SIZE 1479,554 ;
STYLE 0 +0 ...

Olá!
Veja o nome da função:
Function UM_NOME_BEM_LONGO_AQUI
No clipper, só pega parte do nome. UM_NOME_BEM() não pega o resto. Veja se é isso.
No Harbour ele vê, TODO o nome da FUNÇÃO.

... os fontes, escritos de forma clara e objetiva, vc tem todo o ambiente de programação pronto para usar na sua máquina, aproveite e comece 2026 na frente !
Contato - Whats (41)99923-7976

https://produto.mercadolivre.com.br/MLB-4336121009-pacote-xbase-clipper-para-harbour-e-minigui-com-dbf-e-sql-_JM

Olá!
Mudei outra PALAVRA -> LOGO do forum!
Era Clipper On Line. Mudei para xBase On Line.