Algo sobre el scroolbar

Algo sobre el scroolbar

Postby fespinoza » Wed Jul 30, 2008 4:25 pm

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
User avatar
fespinoza
 
Posts: 188
Joined: Wed Feb 01, 2006 6:59 pm
Location: Ecuador

Postby Carlos Mora » Wed Jul 30, 2008 6:51 pm

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.
Carlos Mora
 
Posts: 989
Joined: Thu Nov 24, 2005 3:01 pm
Location: Madrid, España

Postby fespinoza » Thu Jul 31, 2008 1:05 pm

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
User avatar
fespinoza
 
Posts: 188
Joined: Wed Feb 01, 2006 6:59 pm
Location: Ecuador


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 43 guests