Yo no conozco ningún componente armado, pero se podría armar uno (no lo
probé, se me ocurre que tendría que andar) con un container que tenga 2
botones ARRIBA y ABAJO que se pueden hacer chiquitos con alguna flechita que
manejen un código parecido a esto
_screen.AddObject('ScrollCont', 'Container')
With _screen.ScrollCont as Container
.Top = 10
.Left = 10
.Width = 500
.Height = 200
.AddObject('Boton', 'cdoAbajo')
.AddObject('Rotulo', 'Label')
With .Rotulo as Label
.Top = 180
.Caption = 'Sube sube'
.Visible = .T.
EndWith
.Boton.Visible = .T.
.Visible = .T.
EndWith
Read events
_screen.RemoveObject('ScrollCont')
Define Class cdoAbajo as CommandButton
Left = 400
Top = 180
Procedure Click()
For Each loControl in This.Parent.Controls
If loControl # This
loControl.Top = loControl.top - 5
EndIf
EndFor
This.Top = 180
This.Parent.Refresh()
EndProc
EndDefine
Saludos!
De: [email protected] [mailto:[email protected]] En nombre de Sebastian Massetti
Enviado el: jueves, 15 de junio de 2017 08:36
Para: GUFA List Member
Asunto: [GUFA] scrollbars en simil-containers
Hola Gente !
Alguno sabe como puedo implementar un scrollbar vertical en algun objeto
container o similar?
Actualmente tengo un conteiner en un form , que contiene varios objetos y
necesito agregar más objetos hacia abajo, lo cual me obliga a poner un
scrollbar en el mismo.
Alguien conoce algun otro componente similar al container que me lo permita
?
Desde ya muchas gracias.
Sebastián.
---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus
