FiveTech Software tech support forums

Hola amigos : Este codigo de abajo, cuando llega normalmente a su get no se ejecuta el bGotfocus , solo se ejecuta si posteriormente pulso Enter y me situo en el Get REDEFINE GET oNormal VAR nNormal ID 104 OF oDlg PICTURE "99,999.99" UPDATEoNormal:bGotFocus ...

Hola,
quizás te pueda ayudar.

oGet:bGotFocus = { || oGet:SetPos( 0 ) }

Saludos

... and lost-focus of the cell to draw or delete the border. Painting and deleting cell-borders is working :!: . for a selected cell something like: :bGotfocus := {|nRow, nCol|... :bLostfocus := {|nRow, nCol|... or is it possible to use : METHOD GotFocus( hCtlFocus ) INLINE ( ::oActive := Self, ::Super:GotFocus( ...

Try oCol:oBarGet:bGotFocus

Günther,

Please try this:

oRBtn:bGotFocus = { || MsgBeep() }

and let me know if it beeps

Lubin
Seguramente tampoco me expliqué bien yo

En cada control, asigna en su bGotFocus a una variable un valor que luego evalúas en el ACTION del botón

oLbx1:bGotFocus := { || nMivariable := 1 }

también te serviría igual en el bLostFocus

Puedes intentar cambiar el color, por ejemplo, definiendo el bGotFocus de los listbox, si es visualmente a lo que te refieres.
Tambien tienes la DATA :HasFocus de los objetos

Recibe el Focus

oGet:bGotFocus :={|| oGet:SetColor(nRGB( 0, 64, 64),nRGB(132,215,254)), oGet:Refresh() }

Pierde el Focus

oGet:bLostFocus:={|| oGet:SetColor(nRGB( 0,128,255),nRGB(255,255,225)), oGet:Refresh() }

Saves the position when the focus is lost ( bLostFocus ), and restores the position when acquiring the focus ( bGotFocus )

Marzio,

Add a DATA nPos to oEvent or a DATA Cargo and keep an array there for each GET

oEvent:bRefresh = { || oGet:Assign(), oEvent:nPos := oGet:nPos }

oGet:bGotFocus = { || oGet:SetPos( oEvent:nPos ) }

bGotFocus, hace el cambio de fuente correctamente oEdit: bGotFocus : = { | o | o: SetColor ( CLR_HRED, CLR_YELLOW ) } Ahora bien, bLostFocus bien si se sale del Edit con teclado <Tab>, pero no surte efecto si se hace ...

goosfancito,

tente:

obj:bGotFocus :={|| ... }

... Thanks a lot. A little more, Can I make another TSAY:Hide() when cUser is empty. Then TSAY:Show() when cUser is not empty. I try ::bKeyDown(), ::bGotFocus() but it doesn't work. https://s26.postimg.org/udblqvgnt/Login.png Please wait for FWH 17.08 I know you use FW_SetUnicode( ...

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

... } :bRecSelHeader := { |brw| "No." } :bRecSelFooter := { |brw| brw:nLen } :nRecSelWidth := 50 END oBrw1:lColChangeNotify := .t. oBrw1:bGotFocus := { || SyncBrowses( oBrw1, oBrw2 ) } oBrw1:bChange := { || If( oBrw1:lFocused, SyncBrowses( oBrw1, oBrw2 ), nil ) } oBrw2:lColChangeNotify ...