posición inicial en un get vacio con picture

Board index FiveWin para Harbour/xHarbour posición inicial en un get vacio con picture

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

posición inicial en un get vacio con picture
Posted: Sat Mar 05, 2022 03:23 AM

Estimado Antonio,
he notado que en los get cuando esta vacio (no tiene texto), y lo seleccionamos con el raton dando click en cualquier parte del get, se posiciona en la primera posición,
(lo cual es lo correcto), pero si el get tiene un picture por ejemplo "@R 9999-9999" la posición se mantiene donde demos el click con el raton. aun cuando no hay dato, solo por estar el template.
por loque si el usuario inicia a introducir datos queda feisimo. :-)

salu2

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: posición inicial en un get vacio con picture
Posted: Sat Mar 05, 2022 08:10 AM

Estimado Carlos,

Supongo que estás editando un valor numérico. Estas líneas en tget.prg controlan ese comportamiento:

Code (fw): Select all Collapse

      if ::oGet:Type != "N" .and. ::nPos == 1
         ::oGet:Home()
         ::SetPos( ::oGet:Pos )
      else
         if ::oGet:type == "N" .and. ::lRightToLeft
            ::SetPos( ::nNumLen )
            ::Refresh()
         else
            ::oGet:Pos = ::nPos
         endif
      endif

al ser numérico pasa por el else y ahí no se hace el ::Home(). Prueba a hacer ::Home() en ambos casos

regards, saludos

Antonio Linares
www.fivetechsoft.com

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: posición inicial en un get vacio con picture
Posted: Sat Mar 05, 2022 06:54 PM

Gracias Antonio, reviso, realmente es un get de texto (numero de mobil) con un picture "R 9999-9999" por lo que solo acepta numeros, NO es numerico. :-)
revisare....

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: posición inicial en un get vacio con picture
Posted: Sun Mar 06, 2022 07:56 PM

Gracias antonio, por la sugerencia, asi quedo:

Code (fw): Select all Collapse

      if ::oGet:Type != "N" .and. ::nPos == 1
         ::oGet:Home()
         ::SetPos( ::oGet:Pos )
      else
         if ::oGet:type == "N" .and. ::lRightToLeft
            ::SetPos( ::nNumLen )
            ::Refresh()
         else
            if ::oGet:Type == "C" .and. Empty( ::Value() )
               ::oGet:Home()
               ::SetPos( ::oGet:Pos )
            else
               ::oGet:Pos = ::nPos
            endif
         endif
      endif

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

FiveTech Support Forums

Continue the discussion