En un objeto GET necesito que, al tomar el foco, se quede todo seleccionado, al igual que hace el submenú del oGet "Seleccionar todo".
He probado con oGet:bGotFocus = { || oGet:SelectAll() } pero no funciona.
Utilizo FWH 2.8 y xHarbour 0.99.61
Manuel Aranda wrote:En un objeto GET necesito que, al tomar el foco, se quede todo seleccionado, al igual que hace el submenú del oGet "Seleccionar todo".
He probado con oGet:bGotFocus = { || oGet:SelectAll() } pero no funciona.
Utilizo FWH 2.8 y xHarbour 0.99.61
//------------------------------------------------------------------------//
function Main()
local oDlg
local dDay := Date()
local oGet
DEFINE DIALOG oDlg TITLE "Just a get"
@ 2, 2 SAY "Date:" OF oDlg
@ 2, 6 GET oGet VAR dDay OF oDlg SIZE 40, 10 SPINNER ;
VALID ! Empty( dDay )
@ 3, 7 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION oDlg:End()
@ 3, 16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL
oGet:bGotFocus := { || oGet:SelectAll() }
ACTIVATE DIALOG oDlg CENTERED
return nil
//------------------------------------------------------------------------//
procedure AppSys // Xbase++ requirement
return
//------------------------------------------------------------------------//
#ifdef __XPP__
#define GetNew _GetNew
#endif
CLASS TClipGet FROM Get
METHOD Display() VIRTUAL
ENDCLASS
//---------------------------------------------------------------------------//
function GetNew( nRow, nCol, bVarBlock, cVarName, cPicture, cColor )
return TClipGet():New( nRow, nCol, bVarBlock, cVarName, cPicture, cColor )
//---------------------------------------------------------------------------//Gracias, karinha, pero sigue sin funcionar. Supongo que tendrá que ver con la versión de fwh que tengo.
Saludos,
Manuel
Manuel,
METHOD SelectAll() INLINE ::SetSel( 0, -1 )
Antonio:
Asà es como lo tengo en TGET.PRG y no funciona.
En realidad lo que me ocurre es que en el menú contextual del oGet la opción "Pegar" no funciona correctamente, es decir, hay que seleccionar previamente todo el contenido del oGet para que "Pegar" te copie todo el contenido de "Copiar", si no es asÃ, se produce un pegado parcial.
Saludos,
Manuel
