Re: Abas com texto control ainda nao funciona na versao 2.23
Enviado: 14 Dez 2025 14:37
EEEEBBBBBBAAAAAAAA !!!!!!!
Conforme a IA tinha dito, seria ENTER não tratado na DIALOG, porque ENTER sai.
E eis que olhei guilib.ch
Yes
Problema resolvido declarando dialog NOEXIT, pra não sair com ENTER.
Sei lá porque isso existe.....
Dá a impressão de que seria pra encerrar a janela de GETs automaticamente....
Mas quando a janela não é exclusiva só de GETs, como em tabpage.... aí ferrou.
Se pensar direito.... esse seria o comportamento do Clipper numa tela console.....
Sei lá ... só o default que não atendia a situação do demoall.
Não sei se também elimina a necessidade do GET fantasma....
dialog funcionando no demoall
O ESC é porque ESC nos gets fecha tudo, ao invés de só encerrar gets, comportamento igual pra ESC geral, e ENTER no último GET, igual tela console, é o default e precisa ser alterado conforme a situação.
Conforme a IA tinha dito, seria ENTER não tratado na DIALOG, porque ENTER sai.
E eis que olhei guilib.ch
Código: Selecionar todos
[<lClipper: CLIPPER>] ;
[<lExitOnEnter: NOEXIT>] ; //Modified By Sandro
[<lExitOnEsc: NOEXITESC>] ; //Modified By Sandro
Problema resolvido declarando dialog NOEXIT, pra não sair com ENTER.
Sei lá porque isso existe.....
Dá a impressão de que seria pra encerrar a janela de GETs automaticamente....
Mas quando a janela não é exclusiva só de GETs, como em tabpage.... aí ferrou.
Se pensar direito.... esse seria o comportamento do Clipper numa tela console.....
Sei lá ... só o default que não atendia a situação do demoall.
Não sei se também elimina a necessidade do GET fantasma....
dialog funcionando no demoall
Código: Selecionar todos
INIT DIALOG oDlg ;
CLIPPER ;
NOEXIT ;
NOEXITESC ;
TITLE "demoall.prg - Show Samples on screen, and others on menu" ;
AT 0,0 ;
SIZE 1024, 768 ;
BACKCOLOR 16772062 ;
STYLE WS_POPUP + WS_CAPTION + WS_MAXIMIZEBOX + WS_MINIMIZEBOX + WS_SYSMENU ;
ON INIT { || DemoAllEvalList( aInitList ) }