Separador Decimal

[aluiziorafael]

Boa tarde comunidade,
Não estou conseguindo mudar o separador decimal de forma satisfatória.
O problema reside no fato da minigui aceitar o ponto (.) como separador e os teclados colocam o separador vírgula(,) junto aos números.
Isto não está nada prático.
Alguém tem alguma solução?

Um Xabraço.

[Pablo César]

Oi Aluizio, se você está precisando para TEXTBOX já existe uma solução nisso que foi postada no fórum oficial da HMG que irei te repassar.

Coloque isto no inicio do programa:

Código: Selecionar todos

#xcommand ON KEY  DELNUM [ OF <parent> ] ACTION <action> => _DefineHotKey ( <"parent"> , 0 , VK_DECIMAL , <{action}> )
#xcommand RELEASE KEY DELNUM OF <parent> => _ReleaseHotKey ( <"parent"> , 0 , VK_DECIMAL   )
#xcommand STORE KEY DELNUM OF <parent> TO <baction> => <baction> := _GetHotKey ( <"parent"> , 0 , VK_DECIMAL   )

E coloque a seguinte linha logo após da definição da sua Window:

Código: Selecionar todos

..//..
DEFINE WINDOW Form_1 ;
		AT 0,0 ;
		WIDTH 400 ;
		HEIGHT 500 ;
		TITLE 'InputMask Demo' ;
		MAIN 
		
		ON KEY DELNUM ACTION  _PushKey(190)

Observe que é apenas para adicionar a linha 9 deste exemplo, o resto que postei só serve para referência. O problema ainda persiste na versão 3 na edição de campos em Grids. Mas que também existe uma solução paliativa instalado um utilitário que carrega no tray e que aciona o separador decimal "," quando você deixa a "," em cor verde. Quiser experimentar pode baixar o arquivo em anexo, inclusive traduzí em português pois estava em polonês.

[aluiziorafael]

:-Y Obrigado Pablo, funcionou perfeitamente.
Um Xbraço.