www.FiveTechSoft.com
https://forums.fivetechsoft.com/
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
Code: Select all
//------------------------------------------------------------------------//
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 )
//---------------------------------------------------------------------------//