Scrollbar horizontal

[jlcapel]

Antonio,

Este código:

Code: Select all  Expand view

function Main()

   local oWnd, oScr1, oScr2

   DEFINE WINDOW oWnd TITLE "ScrollBars"

   @ 2, 5 SCROLLBAR oScr1 OF oWnd ;
      ON UP     MsgInfo("Arriba") ;
      ON DOWN   MsgInfo("Abajo") ;
      ON PAGEUP     MsgInfo("Página Arriba") ;
      ON PAGEDOWN   MsgInfo("Página Abajo") ;
      HORIZONTAL
     

   ACTIVATE WINDOW oWnd

return nil



No aparece nigún msginfo. ¿Que me he dejado por hacer?
Saludos,
José Luis Capel

[Antonio Linares]

Jose Luis,

El método HScroll() de la Clase TWindow no estaba implementado. Ya está.

En un par de dias, ó así, publicamos un nuevo build.

[jlcapel]

Antonio,

El método HScroll() de la Clase TWindow no estaba implementado. Ya está.

En un par de dias, ó así, publicamos un nuevo build.

Qué guapo eres!!

Saludos,
José Luis Capel

[Antonio Linares]