Código de Power Builder - Uso, señalamiento y navegacion entre campos de DW

Uso, señalamiento y navegacion entre campos de DWgráfica de visualizaciones


Power Builder

Publicado el 02 de Enero del 2003 por Victor Arreola
13.690 visualizaciones desde el 02 de Enero del 2003. Una media de 21 por semana
Uso, señalamiento y navegacion entre campos de DW

Versión 1

Publicado el 02 de Enero del 2003gráfica de visualizaciones de la versión: Versión 1
13.691 visualizaciones desde el 02 de Enero del 2003. Una media de 21 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
/************************* 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. */



Comentarios sobre la versión: Versión 1 (0)


No hay comentarios
 

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s424