Che, ahora que releo el mail dice "no probé", eso lo arranqué a escribir
cuando iba a tirar sólo la idea... después SÍ obviamente me puse a probar
hasta que anduvo, no se vayan a pensar que eso lo escribí en el aire y
resulta que funciona...



Me dio fiaca la reedición del texto, nomás...



De: [email protected] [mailto:[email protected]] En nombre de Ricardo Aidelman
Enviado el: jueves, 15 de junio de 2017 11:59
Para: GUFA List Member
Asunto: [GUFA] scrollbars en simil-containers



Excelente idea, Omar.



Se podría jugar con Thisform.LockScreen para mejorar visualmente las
transiciones, y propiedades que controlen el tope superior e inferior.



Mis 2 centavos J





ricardo aidelman



De: [email protected] [mailto:[email protected]] En nombre de Omar Bellio
Enviado el: jueves, 15 de junio de 2017 11:26
Para: GUFA List Member <[email protected]>
Asunto: [GUFA] scrollbars en simil-containers



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.







<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campai
gn=sig-email&utm_content=emailclient> Imagen quitada por el remitente.

Virus-free.
<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campai
gn=sig-email&utm_content=emailclient> www.avast.com





---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus

Responder a