/************************* Funcion#03 *********************************
Comentario: He visto con inquietud que la mayoria de los proyectos digase
"programas profesionales"
que estoy usando recientemente no tiene a veces la mas minima
GUI,
ya que nunca ves el cursor, borras el registro equivocado por no
saber cual esta seleccionado,etc.
Dado lo anterior deseo compartir con ustedes el uso,
señalamiento y navegacion entre campos de DW.
Script PB: Uso, señalamiento y navegacion entre campos de DW.
Autor : Lic. Victor Arreola //:-)
Sintaxis: Ponganse en los Eventos indicados.
*********************************************************************/
//Que la dw_DataWindow se expanda y contrae al cambiar el tamaño de la w_Ventana //
// Poner en Evento Resize de w_Ventana
dw_1.width = newwidth - dw_1.x
dw_1.height = newheight - dw_1.y
// Señala (con la Manita) y Marca (de Azul) el registro actual de la DW
//DW Evento clicked
if Row>0 then
THIS.SelectRow(0,false)
THIS.ScrollToRow(Row)
//THIS.SelectRow(Row,true) //EN TIEMPO DE CAPTURA NO
SE MARCA(de Azul)
This.SetRowFocusIndicator(hand!)
end if
// DW Evento rowfocuschanged
THIS.SelectRow(0,false)
THIS.ScrollToRow(currentrow)
//THIS.SelectRow(currentrow,true)
This.SetRowFocusIndicator(hand!)
//DW evento retrieveend
if rowcount>0 then
THIS.SelectRow(0,false)
THIS.ScrollToRow(1)
//THIS.SelectRow(1,true)
This.SetRowFocusIndicator(hand!)
end if
//Se crea el evento Tecla_Enter en la w_Ventana, Declare --> User Event
// Declare / User Event
// Event_Name Event_ID
// [tecla_enter] [pbm_dwnprocessenter]
// OK
//Se pone este script en el evento Tecla_Enter de la w_Ventana
Post( Handle(this),256,9,0 ) // Hace que el Enter trabaje como TAB incluso
SHIFT-TAB
return 1 // 1 es igual a ignorar el Enter
/*eof F3. */
Crear cuenta
Comentarios sobre la versión: Versión 1 (0)
No hay comentarios