Browse da Hwgui que acho simples de fazer.

por **Fernando queiroz** » 08 Nov 2021 19:26

CONSEGUIIIIIIIIIIIII

INIT DIALOG oDlg TITLE "PRODUTOS" ;
ICON HIcon():Addresource('SGC_ICON') ;
AT 0, 0 SIZE 1024,600 CLIPPER NOEXIT ;
ON INIT {|| oBrowse1:aArray := ::CADASTRO_PRODUTOS_MANUTENCAO_CARREGA( "ORDER BY produtos.DESPRO LIMIT 50" ) , ;
oBrowse1:REFRESH(), ;
::CADASTRO_PRODUTOS_MANUTENCAO_onDlgInit( oDlg ), oDlg:oPage1:SetTab(1), oDlg:oPage1:ChangePage(1) } ;
BACKCOLOR 16777215

@ 1,113 TAB oPage1 ITEMS {} SIZE 1024,456 ;
ON SIZE ANCHOR_TOPABS + ANCHOR_LEFTABS + ANCHOR_RIGHTABS + ANCHOR_BOTTOMABS;
ON GETFOCUS { || oDlg:oPage1:oBrowse1:SetFocus()};
ON CHANGE {|This| IF( ! EMPTY(oBrowse1:aArray), ;
::Produtos_tab(This, oDlg, ;
LTRIM(str(oPage1:oBrowse1:aArray[ oPage1:oBrowse1:nCurrent, 1])), ;
oPage1:oBrowse1:aArray[ oPage1:oBrowse1:nCurrent, 2], ;
@cProgressKey ), )}

SO FUNCIONOU ASSIM

por **JoséQuintas** » 08 Nov 2021 19:37

Ia editar pra formatar fonte, mas se fizer isso a parte em vermelho vai sumir.

Tenho a impressão de que aquela anotação da hwgui 2.17 ajudou na descoberta, lá mostra no INIT, que é quando inicia, e fez no GETFOCUS, que é quando recebe o foco.

O que estou reparando é o seguinte:
Não é exatamente um bug, é que nem tudo na hwgui é automático.

Talvez faltem exemplos mais variados como esse.
Se acontecer de novo, não sei se vamos lembrar disso.

por **Itamar M. Lins Jr.** » 09 Nov 2021 08:58

Olá!

é que nem tudo na hwgui é automático.

Hwgui é leve, tem poucos comandos em relação as outras GUI. Por isso eu gosto dela.
O pessoal reclama de poucos exemplos. Na minha época tinha menos exemplos ainda.
Exemplos tem que ser bem pequenos, sem variáveis de CLASSE e METODOS.

Só o feijão com arroz mesmo.

Saudações,
Itamar M. Lins Jr.