Cursor get coloreado al editar (Solucionado)

[ACC69]

Hola buenos dias de antemano les envio cordial saludos.

Pues eso, adjunto la imagen

http://s2.subirimagenes.com/otros/previ ... orget2.jpg



En esta imagen en el campo referencia, habra forma de cambiar en ese estado al entrar en edicion, este coloreado en azul y su vez, al editar , borre automaticamente para escribir otra referencia,y asi que muestre en todos los campos gets a editar ...espero haberme explicado ,pero la imagen dice mas que mil palabras lo que quiero hacer ..este es una imagen de muestra de un sistema de compac i contabilidad...

Saludos cordiales.

Atte: Adrian C. C.

acc69@hotmail.com

Hola buenas tardes de antemano les envio cordial saludos a todos los fivewineros.

Retomando el tema de nuevo,que adjunto la imagen, es normal que este el foco de edicion sin ningun caracter?? ya que uso el metdo SelectAll() para que tome el foco en la edicion del get y el get esta vacio y no deberia de seleccionar de esa manera, solo cuando hay algun caracter escrito ,aqui la imagen o se puede dar solucion al respecto ?

Y otro detalle igual sucede que si hay minimo de 20 caracteres en el color azul rebasa el color en la edicion mas de 20 caracteres ,cuando el SelectAll() deberia respetar los caracteres tecleados y no todo ...espero haberme explicado.

http://s2.subirimagenes.com/otros/previo/thump_9451460esnormal.jpg



Saludos cordiales
Atte: Adrian C. C.

[cnavarro]

Intenta algo asi (no esta probado )

Code: Select all  Expand view

Function GetSelectAll( oDlg )
   AEval( oDlg:aControls, { | o | IF( o:ClassName() = "TGET", if( !Empty( o:cValue ), ( o:bGotFocus := { | o | o:SelectAll() } ) , ) , ) } )  
Return nil

 

[ACC69]

Intenta algo asi (no esta probado )

Code: Select all  Expand view

Function GetSelectAll( oDlg )
   AEval( oDlg:aControls, { | o | IF( o:ClassName() = "TGET", if( !Empty( o:cValue ), ( o:bGotFocus := { | o | o:SelectAll() } ) , ) , ) } )  
Return nil

 

Gracias Ing. Cristobal,pruebo y le comento el resultado.

Saludos
Atte: Adrian C. C.

[ACC69]

Intenta algo asi (no esta probado )

Code: Select all  Expand view

Function GetSelectAll( oDlg )
   AEval( oDlg:aControls, { | o | IF( o:ClassName() = "TGET", if( !Empty( o:cValue ), ( o:bGotFocus := { | o | o:SelectAll() } ) , ) , ) } )  
Return nil

 

Gracias Ing. Cristobal,pruebo y le comento el resultado.

Saludos
Atte: Adrian C. C.

Buenos dias Ing. Cristobal, no funciono! marco error de value :

Application
===========
Path and name: C:\Proy_Hb\ProvIVA2\ProvIVA2.exe (32 bits)
Size: 3,458,560 bytes
Compiler version: Harbour 3.2.0dev (r1412151448)
FiveWin Version: FWH 14.12
Windows version: 6.2, Build 9200

Time from start: 0 hours 0 mins 9 secs
Error occurred at: 26/08/15, 09:31:29
Error description: Error BASE/1004 Message not found: TGET:CVALUE
Args:
[ 1] = O TGET

Stack Calls
===========
Called from: => __ERRRT_SBASE( 0 )
Called from: ../../../tobject.prg => TGET:ERROR( 0 )
Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
Called from: ../../../tobject.prg => TGET:MSGNOTFOUND( 0 )
Called from: ../../../tobject.prg => TGET:CVALUE( 0 )
Called from: LISTPOL.prg => (b)GETSELECTALL( 579 )
Called from: => AEVAL( 0 )
Called from: LISTPOL.prg => GETSELECTALL( 579 )
Called from: LISTPOL.prg => CAPTPOL( 446 )
Called from: LISTPOL.prg => VAL_NKEY( 285 )
Called from: LISTPOL.prg => (b)POLIZA( 133 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:KEYDOWN( 2731 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:KEYDOWN( 1047 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:KEYDOWN( 2394 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1733 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 12612 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3345 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1050 )
Called from: PROVEIVA.prg => PRINCIPAL( 184 )

Estaba checando la clase TGet, pero no le halle como modificar al metodo SelecAll() para que unicamente tome el foco a la longitud del caracter tecleado en la edicion del Get y no que rebase todo, ha de ser un bug ,segun yo.! pongo la imagen:




Y deberia verse asi lo normal al entrar en el foco de edicion del campo de la referencia que este el SelectAll() a la loingitud del caracter tecleado como la imagen que tome la muestra el sistema compac i contabilidad,aqui la muestra de la imagen:



Alguien que haya solucionado ese detalle o nadie usa SelectAll() ya que ayuda al usuario a entrar a la edicion borrando todo lo tecleado,segun sea el caso o retroceder con flecha de retroceso y modifcar o insertar segun para el usuario

Saludos cordiales

Atte: Adrian C. C.

[ACC69]

Intenta algo asi (no esta probado )

Code: Select all  Expand view

Function GetSelectAll( oDlg )
   AEval( oDlg:aControls, { | o | IF( o:ClassName() = "TGET", if( !Empty( o:cValue ), ( o:bGotFocus := { | o | o:SelectAll() } ) , ) , ) } )  
Return nil

 

Gracias Ing. Cristobal,pruebo y le comento el resultado.

Saludos
Atte: Adrian C. C.

Buenos dias Ing. Cristobal, no funciono! marco error de value :

Application
===========
Path and name: C:\Proy_Hb\ProvIVA2\ProvIVA2.exe (32 bits)
Size: 3,458,560 bytes
Compiler version: Harbour 3.2.0dev (r1412151448)
FiveWin Version: FWH 14.12
Windows version: 6.2, Build 9200

Time from start: 0 hours 0 mins 9 secs
Error occurred at: 26/08/15, 09:31:29
Error description: Error BASE/1004 Message not found: TGET:CVALUE
Args:
[ 1] = O TGET

Stack Calls
===========
Called from: => __ERRRT_SBASE( 0 )
Called from: ../../../tobject.prg => TGET:ERROR( 0 )
Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
Called from: ../../../tobject.prg => TGET:MSGNOTFOUND( 0 )
Called from: ../../../tobject.prg => TGET:CVALUE( 0 )
Called from: LISTPOL.prg => (b)GETSELECTALL( 579 )
Called from: => AEVAL( 0 )
Called from: LISTPOL.prg => GETSELECTALL( 579 )
Called from: LISTPOL.prg => CAPTPOL( 446 )
Called from: LISTPOL.prg => VAL_NKEY( 285 )
Called from: LISTPOL.prg => (b)POLIZA( 133 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:KEYDOWN( 2731 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:KEYDOWN( 1047 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:KEYDOWN( 2394 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1733 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 12612 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3345 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1050 )
Called from: PROVEIVA.prg => PRINCIPAL( 184 )

Estaba checando la clase TGet, pero no le halle como modificar al metodo SelecAll() para que unicamente tome el foco a la longitud del caracter tecleado en la edicion del Get y no que rebase todo, ha de ser un bug ,segun yo.! pongo la imagen:




Y deberia verse asi lo normal al entrar en el foco de edicion del campo de la referencia que este el SelectAll() a la loingitud del caracter tecleado como la imagen que tome la muestra el sistema compac i contabilidad,aqui la muestra de la imagen:



Alguien que haya solucionado ese detalle o nadie usa SelectAll() ya que ayuda al usuario a entrar a la edicion borrando todo lo tecleado,segun sea el caso o retroceder con flecha de retroceso y modifcar o insertar segun para el usuario

Saludos cordiales

Atte: Adrian C. C.

Al parecer creo que casi nadie usa el metodo SelectAll()

+1

Saludos

[cnavarro]

Adrian
Aunque no he tenido tiempo de mirarlo con un ejemplo, no será difícil eliminar del SelectAll cuando la variable esté vacia
Otro tema será eliminar del SelectAll la parte derecha de la variable que no se utiliza, ya que si eliminamos los espacios en blanco a la derecha de la variable que no se esté utilizando, es posible que al intentar modificar su valor e intentar escribir a la derecha del valor que tenemos, es posible que no nos lo permita
Hay que probarlo

[ACC69]

Adrian
Aunque no he tenido tiempo de mirarlo con un ejemplo, no será difícil eliminar del SelectAll cuando la variable esté vacia
Otro tema será eliminar del SelectAll la parte derecha de la variable que no se utiliza, ya que si eliminamos los espacios en blanco a la derecha de la variable que no se esté utilizando, es posible que al intentar modificar su valor e intentar escribir a la derecha del valor que tenemos, es posible que no nos lo permita
Hay que probarlo

Gracias Ing. Cristobal por el interes ,estaba mirando la clase de TGet y no le hallo como o por donde modicarle, o tan siquiera agregarle unos parametros mas dentro de la clase para usar falso o verdadero si se usa o no el metodo SelectAll() ,ya que no soy muy experto en las clases .

Saludos

Atte: Adrian C. C.

[cnavarro]

Prueba asi con esta modificacion (no esta probado )

Code: Select all  Expand view

Function GetSelectAll( oDlg )
   AEval( oDlg:aControls, { | o | IF( o:ClassName() = "TGET", if( !Empty( o:oGet:buffer ), ( o:bGotFocus := { | o | o:SelectAll() } ) , ) , ) } )  
Return nil

 

[ACC69]

Prueba asi con esta modificacion (no esta probado )

Code: Select all  Expand view

Function GetSelectAll( oDlg )
   AEval( oDlg:aControls, { | o | IF( o:ClassName() = "TGET", if( !Empty( o:oGet:buffer ), ( o:bGotFocus := { | o | o:SelectAll() } ) , ) , ) } )  
Return nil

 

Ok hare la prueba Ing.

[ACC69]

Prueba asi con esta modificacion (no esta probado )

Code: Select all  Expand view

Function GetSelectAll( oDlg )
   AEval( oDlg:aControls, { | o | IF( o:ClassName() = "TGET", if( !Empty( o:oGet:buffer ), ( o:bGotFocus := { | o | o:SelectAll() } ) , ) , ) } )  
Return nil

 

Ok hare la prueba Ing.

Ing. Cristobal No marca error, pero ahora sin efecto deseado, o sea no entra en SelectAll() no toma el foco en la edicion en color azul como anteriormen,bueno ya mejor lo dejamos asi,espero que el maestro Antonio Linares, nos pueda solucionar ese detalle , solo corregir ese detalle o mejorar la clase TGet

Saludos y gracias por tu interes y tu tiempo Ing. Cristobal

Atte: Adrian C. C.

[cnavarro]

Ok, esto si está probado
Solo soluciona que no realiza el SelectAll si la variable está vacia

Code: Select all  Expand view

Function GetSelectAll( oDlg )
   AEval( oDlg:aControls, { | o | IF( o:ClassName() = "TGET", o:bGotFocus := { | o | if( !Empty( o:oGet:Buffer ), o:SelectAll(), ) }, )  } )  
Return nil

 

[ACC69]

Ok, esto si está probado
Solo soluciona que no realiza el SelectAll si la variable está vacia

Code: Select all  Expand view

Function GetSelectAll( oDlg )
   AEval( oDlg:aControls, { | o | IF( o:ClassName() = "TGET", o:bGotFocus := { | o | if( !Empty( o:oGet:Buffer ), o:SelectAll(), ) }, )  } )  
Return nil

 

Hola buenos dias Ing. Cristobal, gracias por tomarte el tiempo y el interes a este tema .

Hare la prueba y le comento el resultado.

Saludos

Atte: Adrian C. C.

[ACC69]

Ok, esto si está probado
Solo soluciona que no realiza el SelectAll si la variable está vacia

Code: Select all  Expand view

Function GetSelectAll( oDlg )
   AEval( oDlg:aControls, { | o | IF( o:ClassName() = "TGET", o:bGotFocus := { | o | if( !Empty( o:oGet:Buffer ), o:SelectAll(), ) }, )  } )  
Return nil

 

Hola buenos dias Ing. Cristobal, gracias por tomarte el tiempo y el interes a este tema .

Hare la prueba y le comento el resultado.

Saludos

Atte: Adrian C. C.

Gracias Ing. Cristobal ,si funciona muy amable.

Ya solo faltaria el detalle que tome el foco de la edicion a la longitud del caracter escrito,pero eso creo que seria retocando la clase de TGet y el metodo SelectAll() y con eso se veria esteticamente ya profesional en todos los gets, y que el programador pueda activar o no activar SelectAll() sea para un solo get o en todos los controles del Get.

He leido el otro parametro que no le entiendo para que funcion se utiliza SetPos() y luego nPos o SetPos(nPos() para que servira ese metodo en los gets y demas controles...???

Espero que el maestro Antonio Linares nos apoye con ese detalle del mensaje anterior con la imagen que adjunte.

Gracias de nuevo Ing. Cristobal muy amable .

Saludos y buendia !

Atte: Adrian C. C.

[Willi Quintana]

Amigos, yo cambio el GET de esta forma, (afecta a todos los GETs del programa)

SetGetColorFocus(RGB(255,232,149)) // cambio de color en el foco de los gets

Salu2

[ACC69]

Amigos, yo cambio el GET de esta forma, (afecta a todos los GETs del programa)

SetGetColorFocus(RGB(255,232,149)) // cambio de color en el foco de los gets

Salu2

Buenas tardes Ing. Willi gracias por tu interes y tu atencion,si probaras el ejemplo me entenderias para que nos sirve selectall() que gracias al Ing. Cristobal Navarro me ayudo a solucionar ese pequeño detalle de que tome todo el control al entar en el modo de editar ...es como si lo sombrearas para copiar todo el contenido...solo nos falta ese detalle de que unicamente entrara a la edicion a la longitud del caracter o numerico,te recomiendo a probar el ejemplo o la rutina que el Ing. Cristobal Navarro me ayudo y asi entenderas para que es lo que yo necesito,el color del get no tengo ningun problema Ing. Wlli.

Saludos cordiales

Atte: Adrian C. C.