oBrw:GoDown(nLine) //Abajo
oBrw:GoUp(nLine) //Arriba
oBrw:GoBottom() //Final
oBrw:GoTop() //Inicio
#include "FiveWin.ch"
#include "xbrowse.ch"
FUNCTION Main()
local oChild, oBrw, oTimer
USE CUSTOMER NEW
DEFINE WINDOW oChild TITLE "Mueve Solo"
@ 0,0 XBROWSE oBrw OF oChild AUTOCOLS ALIAS "CUSTOMER" LINES CELL 105,80 pixel
WITH OBJECT oBrw
:CreateFromCode()
:bPastEof := {|| oBrw:GoTop()} //Esto hace que cuando intentes pasar el ultimo registro, vuelva solo al primero
END
oChild:oClient := oBrw
DEFINE TIMER oTimer INTERVAL 1000 ACTION Mover(oBrw) OF oChild // Un segundo de demora
ACTIVATE WINDOW oChild ON INIT (oBrw:SetFocus(), oTimer:Activate())
RETURN NIL
STATIC FUNCTION Mover(oBrw)
oBrw:GoDown()
oBrw:Refresh()
RETURN nil
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 108 guests