FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Marcar Contenido de 1 GET
José Camilo
Posts: 212
Joined: Wed Apr 07, 2021 03:56 PM
Marcar Contenido de 1 GET
Posted: Sat May 25, 2024 05:24 PM

Buenas tardes !!

Necesito que al ingresar a un GET con contenido todo el contenido quede "seleccionado" de manera que al oprimir cualquier letra dicho contenido se borre y quede lo nuevo que escribo.

Como se puede realizar?

Gracias

karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Marcar Contenido de 1 GET
Posted: Sat May 25, 2024 05:47 PM
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=34507&p=204944&hilit=SETSEL&sid=e21c137412d6e3fd082e548c14c5c9b1&sid=015ef7a49e0c9d9c937aca83565dc468#p204944
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
José Camilo
Posts: 212
Joined: Wed Apr 07, 2021 03:56 PM
Re: Marcar Contenido de 1 GET
Posted: Sat May 25, 2024 06:18 PM

Gracias Joao!!!

Pero no me funciona.

lo mio es un get comun, no multiline ni memo.

gracias igual.

cmsoft
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: Marcar Contenido de 1 GET
Posted: Sat May 25, 2024 09:03 PM
Hola Jose Camilo:
Puedes hacer
Code (fw): Select all Collapse
REDEFINE GET oGet VAR cTexto   ID 1001  OF oDlg 
oGet:bGotFocus :={|| oGet:SelectAll()}
Esto hará que cada vez que el control get tome el foco, se seleccione todo, y si escribes un texto nuevo se sobreescriba
Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com
José Camilo
Posts: 212
Joined: Wed Apr 07, 2021 03:56 PM
Re: Marcar Contenido de 1 GET
Posted: Sat May 25, 2024 09:49 PM

Gracias Cesar !!!

perfecto.

Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Marcar Contenido de 1 GET
Posted: Sun May 26, 2024 04:17 AM

José Camilo:

El comportamiento natural de un GET es que cuando toma el foco, aunque el cursor se posiciona al principio,

al momento de iniciar a teclear, el contenido anterior es sustituido por lo nuevo que se esta tecleando.

Pero, imaginemos que solo quieres cambiar el último carácter, al momento de mover el cursor a la posición

a sustituir, el comportamiento del párrafo anterior se anula. En otras palabras, el movimiento del cursor anula

el comportamiento inicial.

Solo debes usar un PICTURE como este Picture "@K", échale un ojito a los PICTURE

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
paquitohm
Posts: 318
Joined: Fri Jan 14, 2022 08:37 AM
Re: Marcar Contenido de 1 GET
Posted: Mon May 27, 2024 07:32 AM
Armando wrote:José Camilo:
El comportamiento natural de un GET es que cuando toma el foco, aunque el cursor se posiciona al principio,
al momento de iniciar a teclear, el contenido anterior es sustituido por lo nuevo que se esta tecleando.
Saludos
IMHO ese es un comportamiento peligroso. Cualquier tecla borrará el contenido. Puede dar lugar a muchas modificaciones indebidas de datos
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Marcar Contenido de 1 GET
Posted: Mon May 27, 2024 01:46 PM
Paquito, Armando tiene razón.
Code (fw): Select all Collapse
// C:\FWH\SAMPLES\SILVGETC.PRG

#include 'fivewin.ch'

FUNCTION Main()

   LOCAL oDlg, oGet, oBtn
   LOCAL lTest := .T.
   LOCAL nDimX := SPACE(60)

   SET _3DLOOK ON
   SET CONFIRM ON

   nDimX := "JOSE CAMILO, PAQUITOHM AND FIVEWIN THE BEST IN PICTURE"

   DEFINE DIALOG oDlg TITLE "A simple GET" FROM 2, 2 TO 11, 60

   IF Set( _SET_INSERT, ! Set( _SET_INSERT ) )
      Set( _SET_INSERT, ! Set( _SET_INSERT ) )
   ENDIF

   @ 1.5, 2 GET oGet VAR nDimX SIZE 200, 12 OF oDlg PICTURE "@K!" ;
      VALID( LIMPIA_GET_SIL( oGet ) )

   oGet:bGotFocus := {|| oGet:SelectAll() }

   @ 2.5, 4 BUTTON oBtn PROMPT "&Ok" SIZE 45, 12 OF oDlg ;
      ACTION ( oDlg:End(), MsgInfo( nDimX ) ) DEFAULT

   @ 2.5, 15 BUTTON "&Cancel" SIZE 45, 12 OF oDlg ;
      ACTION ( oDlg:End(), MsgInfo( nDimx ) )

   ACTIVATE DIALOG oDlg CENTERED

   IF Set( _SET_INSERT, ! Set( _SET_INSERT ) )
      Set( _SET_INSERT, ! Set( _SET_INSERT ) )
   ENDIF

   SET CONFIRM OFF

RETURN NIL

FUNCTION LIMPIA_GET_SIL( oGet )

   IF GETASYNCKEY( VK_UP )

      oGet:bGotFocus := {|| oGet:SelectAll() }

      RETURN( .T. )

   ENDIF

RETURN( .F. )

// FIN / END
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Marcar Contenido de 1 GET
Posted: Mon May 27, 2024 03:32 PM
paquitohm wrote:
José Camilo:
El comportamiento natural de un GET es que cuando toma el foco, aunque el cursor se posiciona al principio,
al momento de iniciar a teclear, el contenido anterior es sustituido por lo nuevo que se esta tecleando.
Saludos
IMHO ese es un comportamiento peligroso. Cualquier tecla borrará el contenido. Puede dar lugar a muchas modificaciones indebidas de datos
Paquito:

Creo que me explique mal, no es un comportamiento natural de los GETs, puedes hacer que lo que se teclee
nuevo sustituya a lo existente usando la cláusula PICTURE "@K", que es lo que Camilo necesita, pero ya es
decisión del programador usarlo o no.

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
José Camilo
Posts: 212
Joined: Wed Apr 07, 2021 03:56 PM
Re: Marcar Contenido de 1 GET
Posted: Mon May 27, 2024 03:46 PM

Buenos dias!!!

Gracias a todos los que contestaron.

me parecia que normalmente cuando ingresaba a un get con contenido al escribir algo ese contenido desaparecia, pero me paso que con la clausula Font dejaba de hacer ese efecto.

Listo. ya esta solucionado tanto con el font como con lo sugerido por Cesar.

MUCHAS GRACIAS!!!

Continue the discussion

Static archive · New replies & topics via GitHub Discussions