Power Builder - Mover dw a los lados con los cursores

 
Vista:

Mover dw a los lados con los cursores

Publicado por Juan Carlos (52 intervenciones) el 28/05/2004 15:35:47
Hola todas/os amigos:

Tengo una duda, que desde hace tiempo que nunca lo he conseguido hacer, pero ahora ya es una necesidad. os cuento.

quiero mover una datawindow a derecha e izquierda sin necesidad del raton, por ejemplo con los cursores, lo mismo es una chorrada, pero nunca lo he conseguido o igual no se puede hacer.

gracias por vuestra ayuda y buen fin de semana

juan carlos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Mover dw a los lados con los cursores

Publicado por Juan Carlos (52 intervenciones) el 28/05/2004 15:40:48
Hola a todos de nuevo:

perdonar por mi torpeza y justo despues de poner el post en el foro, me he preguntado, porque no buscas en el foro a ver si hay algo y efectivamente el dia 13/4/2004 Oscar Velasco contesto la formua de como hacerlo.

perdonar por no haber buscado en el foro antes

gracias y lo dicho buen fin de semana

juan carlos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Mover dw a los lados con los cursores

Publicado por Oscar (1178 intervenciones) el 28/05/2004 17:35:51
Por si acaso, el código de ese post para mover el scroll horizontal del DW, se puede mejorar. En este caso ya no usaremos variables de instancia, tampoco HorizontalScrollMaximum, ni desactivaremos nada. Nos auxiliaremos con Describe.

* Script scroll a la derecha
Integer li_value

li_value=Integer(dw_1.Describe("DataWindow.HorizontalScrollPosition"))
li_value=li_value + 200
dw_1.Modify("DataWindow.HorizontalScrollPosition="+String(li_value))

* Script scroll a la izquierda:
Integer li_value

li_value=Integer(dw_1.Describe("DataWindow.HorizontalScrollPosition"))
li_value=li_value - 200

If li_value >0 then
dw_1.Modify("DataWindow.HorizontalScrollPosition="+String(li_value))
Else
Beep(2)
End if

Un saludo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Gracias por tu ayuda

Publicado por Juan Carlos (52 intervenciones) el 31/05/2004 10:04:03
hola Oscar:

Gracias por tu ayuda

un saludo

juan carlos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar