Algo sobre el scroolbar

[fespinoza]

Tengo el siguiente código donde ubico un scrollbar horizontal:

DEFINE DIALOG oWndPlan OF oVent TITLE "Calendario " FROM 5, 5 TO 21.6, 96.705

@ 117.3,0 SCROLLBAR HORIZONTAL OF oWndPlan ON UP PreviousYear() ON DOWN NextYear() PIXEL SIZE 363,9 ;
PAGESTEP 10 RANGE 1, 200 UPDATE MESSAGE "El click sobre la barra cambia de año"

oWndPlan:cTitle := "Calendario [ " + str(nYear,4) + " ]"
oWndPlan:bLClicked := { |x,y,flags | IF(f_bLClicked(x,y), oWndPlan:End(1), ) }
oWndPlan:bKeyDown:={ | nKey,nFlags | IF( nKey==VK_ESCAPE, oWndPlan:End(2), ) } // Sale de oWndPlan al pulsar Escape
oWndPlan:cTooltip := "Seleccione el día para ver los resultados"
oWndPlan:lHelpIcon:= .F.

ACTIVATE DIALOG oWndPlan CENTERED ON PAINT DrawRowLines() ON INIT oWndPlan:SetIcon(oApp:cIcono)

Mi problema es que no se como hacer que la posición inicial del scroll sea en el medio, por defecto se ubica a la izquierda. Reviso la documentación y no hallo ningun valor que me permita asignarle un valor inicial

Saludos

Fernando Espinoza

[Carlos Mora]

Fernando,

revisa el codigo de los browses, buscca 'scroll' y veras como lo hacen los controles de fivewin. No hay mejor documentacion que el propio codigo

Un saludo,

Carlos.

[fespinoza]

Bueno efectivamente buscando en los PRG fuentes halle lo que quería; es el metodo SetPos( nPos )

[quote]
DEFINE DIALOG oWndPlan OF oVent TITLE "Calendario " FROM 5, 5 TO 21.6, 96.705

@ 117.3,0 SCROLLBAR oScroll HORIZONTAL OF oWndPlan ON UP PreviousYear() ON DOWN NextYear() PIXEL SIZE 363,9 ;
PAGESTEP 10 RANGE 1, 200 UPDATE MESSAGE "El click sobre la barra cambia de año"

oWndPlan:cTitle := "Calendario [ " + str(nYear,4) + " ]"
oWndPlan:bLClicked := { |x,y,flags | IF(f_bLClicked(x,y), oWndPlan:End(1), ) }
oWndPlan:bKeyDown:={ | nKey,nFlags | IF( nKey==VK_ESCAPE, oWndPlan:End(2), ) } // Sale de oWndPlan al pulsar Escape
oWndPlan:cTooltip := "Seleccione el día para ver los resultados"
oWndPlan:lHelpIcon:= .F.

ACTIVATE DIALOG oWndPlan CENTERED ON PAINT DrawRowLines() ON INIT ( oScroll:SetPos(100), oWndPlan:SetIcon(oApp:cIcono) )
[quote]

Saludos