FiveTech Software tech support forums

Sebastian,

Has probado con EM_SETSEL ?

https://docs.microsoft.com/en-us/windows/win32/controls/em-setsel

Hello Antonio,

Today I updated my OS to MacOs 11.3.1 and the problem with the setting SetSel() is back again

Any suggestions?

... |nkey| IF (nKey < 127 .AND. nKey <> 13, (RK_Search(oGetZoek:GetText, nSortOrder), oGetZoek:SetFocus(), oGetZoek:SetSel(100,1)), ), IF (nKey == 13, oBrwMain:SetFocus(), ) }  It seems the SetSel() does not work anymore. Is there ...

Since I need to get the text from someone else's application, the Getwindowtext(hWn) function will return an empty value.
I solved this problem using clipboard

SendMessage(hWn, EM_SETSEL, 0, -1)
SendMessage(hWn, WM_COPY, 0, 0)
buf:=oClp:GetText()

He mirado el prg edit.prg de la clase TEdit()...
SetLimitText(n) para limitar la longitud.

@ 300,40 EDIT oEdit VAR cVar SIZE 280,22 PIXEL OF oWnd
oEdit:SetLimitText(30)

Metodos SelectAll()
y otros como SetSel() que deben heredar de TControl.

Iré investigando!!!


Un Saludo,
Xevi.

Thanks,
This line was enough for my purposes.
oGet1:bGotFocus = { || oGet1:SetSel( 0, 0 ) }

... CLR_BLACK, CLR_WHITE) } aoGetsBem[04]:bGotFocus := { || aoGetsBem[04]:SetColor( CLR_BLACK, nRGB( 255,255,45 )), aoGetsBem[04]:setsel(0,0), aoGetsBas[12]:setpos(0) } aoGetsBem[04]:cToolTip := 'Informe a Descrição do BEM (Ex: Imóvel na Rua São Paulo, 23 - Bairro Centro)' Um abraço, ...

Antonio, no recuerdo bien ese comportamiento, pero comprueba que al cargar el fichero después mandas el foco al control, o lo más sencillo quizás sea enviar un mensaje para colocarte en la primera posicion del documento ::Send( SCI_GETCURRENTPOS, 0, 0 ) o eliminar las selección ::Send( SCI_SETSEL, 0...

... lo uso para poner el cursor al inicio del memo) REDEFINE GET odesaux_c2 VAR xdesaux_c2 MEMO ID 925 OF oDlg WHEN Z_EDIT .and. eval({ |oget| oget:SetSel(0,0),.t. },odesaux_c2) sI observan uso una Variable Z_EDIT = .T. cuando quiero que editen y uso Z_EDIT = .F. para Blorquear su edicion... 8) ...

Cristobal,

El edit del browse pertenece al browse, y no a las columnas. Se usa uno solo para todas.

Luego solo tienes que quitar el comienzo:

oBrw:oEditGet:bGotFocus := { | o , hC | oBrw:Descripcion:oEditGet:SetSel( 0, 0 ) }

Cristobal,

Ese es el comportamiento por defecto de un Edit de Windows.

Para cambiarlo tendrias que usar bGotFocus y que desde ahí no se seleccione nada:

oEdit:bGotFocus = { || oEdit:SetSel( 0, 0 ) }

Colin, We have traced it and Method GotFocus() is called, but the calls to ::SetCurPos() or ::SetSel() don't work from within the method. Called externally, they are fine. I have done lots of tests. I have search the web for some hints, but found nothing yet. In the menatime ...

... TGet to evaluate a bGotFocus if defined: METHOD GotFocus() CLASS TGet   ::SetCurPos( ::oGet:pos - 1 )   ::SetSel( 0, 0 )   if ::bGotFocus != nil      Eval( ::bGotFocus, Self )   endifreturn nil so now we ...

... ::nCase) // ADDED BY RAMESH BABU P on 19-06-2011 nLength := len( rtrim( cItem ) ) cItem += space( nLength - len(cItem) ) ::SetText( cItem ) ::SetSel( nPosCursor -1, nLength) // Select found text ::oGet:Buffer = Pad( cItem, Len( ::oGet:Buffer )) // add by:ss-bbs return(.t.) endif ::HideSel() ...

... TITLE cArticulo REDEFINE GET oNotas VAR mNotas MEMO ID 4002 OF oDlg COLORS nRgb(0,0,255),nRgb(128,255,255) oNotas:bGotFocus = { || oNotas:SetSel( 0, 0 ),; oNotas:Goto( oNotas:GetLineCount() ),; __Keyboard( Chr( VK_END ) ) } ACTIVATE DIALOG oDlg CENTERED // para grabarlo IF lGraba IF FItems->(Rlock()) ...