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

Versión 1

Publicado el 2 de Enero del 2003gráfica de visualizaciones de la versión: Versión 1
15.105 visualizaciones desde el 2 de Enero del 2003
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...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s424