Selecionar conteudo do GET quando receber foco

[deividdjs]

tarde galera ...

como faço para selecionar o conteudo do GET quando este receber o foco ??

já tentei simular teclas tipo END +( SHIT+HOME ) E nada .. o end até vai pro final do texto porem o SHIT+HOME não executa ... existe alguma outra forma mais pratica ?

Abraço prezados ..

Deivid

[Itamar M. Lins Jr.]

Olá!
Eu clico 2 vezes com o mouse que já marca o texto todo. Ai é do sistema operacional a característica.
Ou xMinhaVar := oGet:GetText(), etc.

Saudações,
Itamar M. Lins Jr.

[alxsts]

Olá!

Utilize os métodos SelStart() e SelLength()

HEdit

DATA
CLASS VAR winclass (R)
oPicture (R)
bSetGet (RW)
bValid (RW)
lNoPaste (RW)
nMaxLength (RW)
bkeydown (RW)
bkeyup (RW)
bchange (RW)
bColorBlock (RW)
lFirst (R)
lChanged (R)
lMultiLine (R)
cType (R)
aColorOld (R)

METHODS
New( oWndParent, nId, vari, bSetGet, nStyle, nLeft, nTop, nWidth, nHeight, ;
oFont, bInit, bSize, bGfocus, bLfocus, ctooltip, ;
tcolor, bcolor, cPicture, lNoBorder, nMaxLength, lPassword, bKeyDown, bChange )
Refresh()
Value( xValue ) SETGET
SelStart( nStart ) SETGET
SelLength( nLength ) SETGET
Internal:
Activate()
onEvent( msg, wParam, lParam )
Init()

Código: Selecionar todos

   // EDITBOX - an Edit control, designed to input some text
   @ 80,20 EDITBOX oEdit1 CAPTION "" SIZE 200,26 ON SIZE ANCHOR_LEFTABS + ANCHOR_RIGHTABS ;
           ON GETFOCUS { || 
                            With Object oEdit1   
                               :value( "Texto para teste do EDITBOX" )
                               :selStart := 0
                               :selLength := Len( :value )
                            End With
                            
                            RETURN NIL
                        }

Problema: não está saido do EditBox com Enter... só com TAB.

[deividdjs]

Olá!

Utilize os métodos SelStart() e SelLength()

HEdit

DATA
CLASS VAR winclass (R)
oPicture (R)
bSetGet (RW)
bValid (RW)
lNoPaste (RW)
nMaxLength (RW)
bkeydown (RW)
bkeyup (RW)
bchange (RW)
bColorBlock (RW)
lFirst (R)
lChanged (R)
lMultiLine (R)
cType (R)
aColorOld (R)

METHODS
New( oWndParent, nId, vari, bSetGet, nStyle, nLeft, nTop, nWidth, nHeight, ;
oFont, bInit, bSize, bGfocus, bLfocus, ctooltip, ;
tcolor, bcolor, cPicture, lNoBorder, nMaxLength, lPassword, bKeyDown, bChange )
Refresh()
Value( xValue ) SETGET
SelStart( nStart ) SETGET
SelLength( nLength ) SETGET
Internal:
Activate()
onEvent( msg, wParam, lParam )
Init()

Captura de tela 2024-10-10 110125.jpg

Código: Selecionar todos

   // EDITBOX - an Edit control, designed to input some text
   @ 80,20 EDITBOX oEdit1 CAPTION "" SIZE 200,26 ON SIZE ANCHOR_LEFTABS + ANCHOR_RIGHTABS ;
           ON GETFOCUS { || 
                            With Object oEdit1   
                               :value( "Texto para teste do EDITBOX" )
                               :selStart := 0
                               :selLength := Len( :value )
                            End With
                            
                            RETURN NIL
                        }

Problema: não está saido do EditBox com Enter... só com TAB.

exatamente .. o problema do EDITBOX é esse .. só funciona com tab .. e esse metodo não funciona com GET ..

Obrigado pela ajuda !

Deivid

[deividdjs]

deu certo Alexandre para o que eu precisava fazer .. ficou top!!

obrigado pela dica .. abraço

Código: Selecionar todos

//---------------------------------//
 FUNCTION SelecionarTextoGET(oEdit)
//---------------------------------// 
   LOCAL cTexto
   IF oEdit != NIL
      cTexto := AllTrim(oEdit:Value)      
      WITH OBJECT oEdit
         :SelStart := 0                   
         :SelLength := Len(cTexto)        
      END WITH
   ENDIF
   RETURN NIL

[alxsts]

Olá!

exatamente .. o problema do EDITBOX é esse .. só funciona com tab .. e esse metodo não funciona com GET

Isto é estranho... se escrevermos um get, oGet por exemplo, e depois fizermos hwg_MsgInfo( oGet:className() ), ele retorna "HEdit", o mesmo do EditBox...

deu certo Alexandre para o que eu precisava fazer .. ficou top!!

Imagino que resolveu com o EditBox... certo? Ou conseguiu fazer funcionar no Get?

[deividdjs]

Olá!

exatamente .. o problema do EDITBOX é esse .. só funciona com tab .. e esse metodo não funciona com GET

Isto é estranho... se escrevermos um get, oGet por exemplo, e depois fizermos hwg_MsgInfo( oGet:className() ), ele retorna "HEdit", o mesmo do EditBox...

deu certo Alexandre para o que eu precisava fazer .. ficou top!!

Imagino que resolveu com o EditBox... certo? Ou conseguiu fazer funcionar no Get?

Boa noite Alexandre .. na realidade fiz uma adaptação .. mais foi solucionado no get .. porem não no parametro ... criei a função e fiz ele selecionar no get mais de outra forma ... gambi !! rsrs mais resolveu ... obrigado !