Foi adicionado a opção de escrita numérica da esquerda para a direita.
Código: Selecionar todos
2026-08-07 14:40 UTC-0300 Itamar Lins <itamarlins at gmail.com>
* include/windows.ch:
- Added ES_NUMINVERT (16384) and ES_CLEARTYPE (512) style flags.
* source/hedit.prg:
- Added support for right-to-left entry in numeric fields.
Sample of use:
nVA := 0; nVB := 0
INIT DIALOG oDlg CLIPPER NOEXIT AT 0,0 SIZE 800,600
@ 10, 10 SAY "Any Value" TRANSPARENT SIZE 140, 21
@ 10, 30 GET oGetA Var nVA PICTURE "@E 999,999,999.99" SIZE 160, 24 STYLE ES_RIGHT + ES_NUMINVERT
@ 10, 60 GET oGetB Var nVB PICTURE "@E 999,999,999.99" SIZE 160, 24 STYLE ES_RIGHT + ES_NUMINVERT + ES_CLEARTYPE
oDlg:Activate(,,,.t.)
Thanks to Deivid José de Souza. https://pctoledo.org/viewtopic.php?t=23334