Mudanças na Hwgui

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

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

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

[Fernando queiroz]

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