tget only numbers and "."

[Silvio.Falconi]

the user can digit only number and "." on a get

LOCAL oGet, cvar := Space(100)


@ 82, 2 GET oGet VAR cVar SIZE 200,20 PIXEL OF oBarRight NOBORDER FONT oFontGet

oGet:bChange := {|nKey|(Chr(nKey)$"0123456789.")}

why I can insert also characters ? (as you see in this picture )

[Jimmy]

hi Silvo,

the user can digit only number and "." on a get

what about using cPicture "99"

[karinha]

Algo asi?

Code: Select all  Expand view  RUN

// C:\FWH..\SAMPLES\SILVGETN.PRG

#Include "FiveWin.ch"

STATIC oDlg, oFont

FUNCTION Main()

   LOCAL oGet, cVar := Space(100)
   LOCAL oBtnX2, cTitle, aGrad, oSay

   cTitle := "Cambia GET"

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0, - 14

   DEFINE DIALOG oDlg SIZE 600, 200  PIXEL TRUEPIXEL RESIZABLE  ;
      TITLE cTitle GRADIENT aGrad FONT oFont

   oDlg:lHelpIcon := .F.

   @ 12, 2 GET oGet VAR cVar SIZE 200,20 PIXEL OF oDlg FONT oFont ;
      PICTURE "@R 99,999,999,999.99"

   ACTIVATE DIALOG oDlg CENTERED ON INIT( CAMBIA_PICT( oGet ) )

RETURN NIL

FUNCTION CAMBIA_PICT( oGet )

  LOCAL cPict := "012345678912"

  oGet:VARPUT( cPict )
  oGet:Refresh()

RETURN( .T. )

// FIN / END
 

Regards, saludos.

[Silvio.Falconi]

Algo asi?

Code: Select all  Expand view  RUN

// C:\FWH..\SAMPLES\SILVGETN.PRG

#Include "FiveWin.ch"

STATIC oDlg, oFont

FUNCTION Main()

   LOCAL oGet, cVar := Space(100)
   LOCAL oBtnX2, cTitle, aGrad, oSay

   cTitle := "Cambia GET"

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0, - 14

   DEFINE DIALOG oDlg SIZE 600, 200  PIXEL TRUEPIXEL RESIZABLE  ;
      TITLE cTitle GRADIENT aGrad FONT oFont

   oDlg:lHelpIcon := .F.

   @ 12, 2 GET oGet VAR cVar SIZE 200,20 PIXEL OF oDlg FONT oFont ;
      PICTURE "@R 99,999,999,999.99"

   ACTIVATE DIALOG oDlg CENTERED ON INIT( CAMBIA_PICT( oGet ) )

RETURN NIL

FUNCTION CAMBIA_PICT( oGet )

  LOCAL cPict := "012345678912"

  oGet:VARPUT( cPict )
  oGet:Refresh()

RETURN( .T. )

// FIN / END
 

Regards, saludos.

NO

I must write a string no a price
I must write also "." sample: 36.67.80.7.3.23.45 and not PICTURE "@R 99,999,999,999.99"

because the tget control is read by a procedure that finds the numbers in the xbrowse and colors them as you can see here

oGet:bChange := {|nKey|(Chr(nKey)$"0123456789.")}
oGet:bKeyDown := { | nKey |(oGet:assign(), ActiveNavigator(cVar,oBrw,oItem2:lChecked)) }

[karinha]

Code: Select all  Expand view  RUN

   PICTURE "99.99.99.9.9.99.99" //-> 36.67.80.7.3.23.45
 

https://vivaclipper.wordpress.com/2012/09/12/what-is-picture-function-template/

Regards, saludos.

[Silvio.Falconi]

Code: Select all  Expand view  RUN

   PICTURE "99.99.99.9.9.99.99" //-> 36.67.80.7.3.23.45
 

https://vivaclipper.wordpress.com/2012/09/12/what-is-picture-function-template/

Regards, saludos.

I not know the config of string
Can be 36.6 or 45.66 .78 or more numbers
Chat Is space(100)
Perhaps U not understood my problem

[nageswaragunupudi]

Code: Select all  Expand view  RUN

oGet:bKeyChar := { |k| If( chr( k ) $ ".0123456789", nil, 0 ) }

[Silvio.Falconi]

Code: Select all  Expand view  RUN

oGet:bKeyChar := { |k| If( chr( k ) $ ".0123456789", nil, 0 ) }

Thanks rao