PC Toledo

... oDoctoRel := oPago:FindFirst( "pago20:DoctoRelacionado" )
HPDF_Page_SetFont( oPage, oFontNorm, 7 )

DO WHILE oDoctoRel != NIL
IF nY < 180 // Control de Salto de Pagina
oPage := HPDF_AddPage( oPdf )
nY := 750
ImprimirEncabezadoTabla( oPage, oFontBold, @nY )
HPDF_Page_SetFont( oPage ...

... TEMPLATE PARENT Pedido_de_Vendas AT 25 , 317 WIDTH"
e na rotina Pedido_de_Vendas_OnIni coloco o procedimento que vai verificar se já existe o control, e se não existir, faço o LOAD desta forma:
IF !IswindowDefined( "PanelArtigos" )
LOAD WINDOW PanelFamilias AT 131 , 4 WIDTH 161 HEIGHT 580 ...

... e faço a leitura na matriz. Encontrando esse nome de botão de grupo na matriz ele vai a função carregaBotões e ai faz essa operação Form.Control.Visible :=.t.. Também existe outra função que verifica se é para desligar o visible quando o botão de grupo vai ser substituido por outro.
Se não ...

... não perca tempo tentando me explicar, só vou colocar alguns pontos que talvez não saiba;

você pode testar/atribuir/inverter a visibilidade de um controle qualquer assim;

form.control.visible := !form.control.visible

Se ainda assim precisa guardar nome antigo que ainda não compreendo a utilidade ...

A instrução IsControlDefined(xNomeBotao, "PanelArtigos") não está a cumprir para o que é determinado.
Vou lhe mostrar a rotina que cria os botões dos artigos correspondentes ao grupo escolhido.
Como não está a fazer o pretendido, dá um erro na verificação da existencia do control.
Imprimi o valor de ...

... s, done.
From https://gitflic.ru/project/alkresin/hwguiqt
a5946e8..c3edbff master -> origin/master
Updating a5946e8..c3edbff
Fast-forward
source/control.c | 7 +------
source/hcedit/hcedit.prg | 2 --
source/hcedit/hcedit_qt.c | 2 +-
source/hcwindow.prg | 2 +-
utils/tutorial/tutor.prg | 13 ...

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