Buenas tardes compa帽eros, estoy hace tiempo con un problema con el puntero. Me pasa que en las entradas de texto, cuando clikeo sobre ellas para empezar a escribir, el puntero aparece exactamente donde pinch茅, cuando en realidad deberia aparecer, o al principio del cuadro de texto si no hay nada escrito en 茅l, independientemente de en qu茅 lugar del cuadro haya clikeado, o, si hay una palabra escrita y clikeo al final, justo donde termina la palabra, independientemente de si clikeo justo sobre el final de la palabra, o m谩s atr谩s. Alguien sabe como hacer para que las entradas funcionen correctamente? Gracias de antemano.
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Problemas con la posici贸n del puntero en los get
C贸mo est谩s? No lo pude hacer andar
santidedos wrote:C贸mo est谩s? No lo pude hacer andar
Hola,
Si publicas el codigo, sera mucho mas facil ayudarte
"Los errores en programaci贸n, siempre est谩n entre la silla y el teclado..."
Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin
Carora, Estado Lara, Venezuela.
Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin
Carora, Estado Lara, Venezuela.
pronto Jos茅. El c贸digo que pedistes, 茅s +- asi:
Regards, saludos.
// \samples\JOSE.PRG
#Include "FiveWin.ch"
FUNCTION Main()
LOCAL oDlg, oGet1, oGet2, cGet1 := "Jose Alvarez ", ;
cGet2:= "Cambiando Foco de Jose"
LOCAL lCambiaJose := .F., aGrad, oClp
aGrad := { { 0.30, CLR_WHITE, CLR_WHITE },{ 0.50, CLR_WHITE, CLR_WHITE } }
DEFINE DIALOG oDlg SIZE 400, 300 GRADIENT aGrad
oDlg:lHelpIcon := .F.
DEFINE CLIPBOARD oClp OF oDlg
@ 3, 1 GET oGet1 VAR cGet1 OF oDlg SIZE 100, 12 PICTURE "@K" UPDATE ;
VALID ( MsgInfo( "Valor antes del LostFocus " + cGet1), .T. )
// Bloquear PASTE y CTRL+V en un GET
oGet1:bGotFocus := { || oClp:SetText( '' ) }
oGet1:bChange = { || lCambiaJose := .T. }
oGet1:bLostFocus := { || If( lCambiaJose, Jose_Focus( oGet1 ), .T. ) }
@ 5, 1 GET oGet2 VAR cGet2 OF oDlg SIZE 100, 12 PICTURE "@!" UPDATE
ACTIVATE DIALOG oDlg CENTERED ;
ON INIT( oGet1:bGotFocus := { || oGet1:SetPos( 0 ), Nil }, ;
oGet1:SetFocus() )
RETURN NIL
FUNCTION Jose_Focus( oGet1 )
LOCAL cTxtJose
cTxtJose := oGet1:cText
// MsgInfo( "FiveWin The Best: " + cTxtJose )
oGet1:bGotFocus := { || oGet1:SetPos( 0 ), Nil }
oGet1:SetFocus()
RETURN( .T. )
// FIN / ENDRegards, saludos.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341