Power Builder - Funcion#3 de la Semana //:-)

/************************* 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 retrievee