Página 1 de 1
Mudanças na Hwgui
Enviado: 08 Ago 2023 07:46
por Itamar M. Lins Jr.
Olá!
Passei ontem o dia todo, tentando ajustar a Hwgui do SVN ao meu sistema.
Sempre assim, ninguém reportar nada... depois reclamam...
Se tem problema é bom deixar lá no SVN avisando.
Já mandei 3 BO lá pra ele. Se vai corrigir blz se não corrigir fica o registro.
Uma dialog não coloca o foco no browse nem por decreto, quando inicia.
O cursor do browse some quando usa as cores nas linhas, fica a linha toda em seleção sem cursor.
E mais a pasta contrib que ele não atualizou o hbrowse e demais controles.
Esses foram os principais que peguei.
Saudações,
Itamar M. Lins Jr.
Mudanças na Hwgui
Enviado: 08 Ago 2023 12:48
por JoséQuintas
Teve mudanças hoje na classe base pra tratar eventos do teclado, dentre outras coisas.
Veja se melhorou, acho que é um dos únicos testando do SVN.
Aqui meu uso ainda é limitado, só o que tem no gerador.
Browse mesmo nem tem, só movi a rotina que testei aqui em ADO, e vou ter que mudar pra DBF pra usar no gerador.
Ainda está fora de uso.
Bem que poderia tentar acelerar o gerador, pra servir de cobaia em testes, até na própria hwgui.
Como agora tem hwgui, hmg extended e oohg, vai complicar salvar atualizações na hwgui, talvez só mais no final, quando estiver mais útil, e separar só o que se refere a hwgui.
Mudanças na Hwgui
Enviado: 16 Ago 2023 08:37
por Itamar M. Lins Jr.
Olá!
Resolvido o problema do cursor com browse zebrado.
São 6 opções e não 4 no bColorBlock.
oBrw:aColumns[1]:bcolorblock:={||{0,16775408,0,16775408,16776960,10027008}}
Just mark at least one column as editable ( oColumn:lEditable := .T. ). If you don't want this column to be editable, just set oBrw:bEnter := {||0}, for example. This will prevent editing of columns.
Saudações,
Itamar M. Lins Jr.
Mudanças na Hwgui
Enviado: 16 Ago 2023 10:39
por Fernando queiroz
Itamar M. Lins Jr. escreveu:
Uma dialog não coloca o foco no browse nem por decreto, quando inicia.
Saudações,
Itamar M. Lins Jr.
itamar eu passei por isso quando uso o browse dentro de uma page, a solucao mesmo que estranha foi usar na dialog
oDlg:oPage1:SetTab(1)
Código: Selecionar todos
INIT DIALOG oDlg TITLE "PRODUTOS" ;
ICON HIcon():Addresource('SGC_ICON') ;
AT 0, 0 SIZE 1024,612 STYLE WS_DLGFRAME + WS_SYSMENU + DS_CENTER ;
ON INIT {|| oBrowse1:aArray := ::MANUTENCAO_CARREGA( "ORDER BY produtos.DESPRO limit 50" ) , ;
oBrowse1:REFRESH(), ;
::MANUTENCAO_onDlgInit( oDlg ), ;
oDlg:oPage1:SetTab(1) };
BACKCOLOR 16777215
e na page eu uso
ON GETFOCUS { || oDlg:oPage1:oBrowse1:SetFocus()};
Código: Selecionar todos
@ 1,113 TAB oPage1 ITEMS {} SIZE 1024,456 ;
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 ), )}
no meu caso eu uso busca letra a letra no browse e acontece que a primeira letra digitada nao aparece ai eu digito novamente e funciona tudo certinho, vai entender