PC Toledo

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