with ScrollView

Hi Folks,

I would like to share a topic: vertical ticker text

and at the same time ask what could be improved.

In Gambas at the beginning, there is ‘About’, which features vertical ticker text with images
using a gridview. I looked at the source code and couldn't quite figure it out.

So I programmed a simpler version based on a ‘Scrollview’ and a ‘Textlabel’ object used
in a modul.

Here is the result and if you know a simple and better way to mix Text and Images,
let me know. Magic word "simple" 🙂


The sub takes the window title
a string to be shown
and optional arguments width and heigth of the window

It creates a new window with a scrollview and a textlabel object and a "OK" button.
Usage if the windows is shown (it is modal)

Mouse over the Scrolling Text:
Left Mouse Down … Scroll faster forward
Right Mouse Down … Scroll faster backward
ESC key or OK Button => quit

No special "bells and whistles", formatting the text you can use the HTML subset for a textlabel.

Bildschirmfoto vom 2025-12-05 06-10-51.png

Bildschirmfoto vom 2025-12-05 06-11-04.png

LFScrollAbout-0.0.1.tar.gz

Regards,
Yogi

cogier said

Ok, this version does not scroll past the top and therefore is not endless, but is very simple . You will need to add your "loremIpsum.txt" file to the program.

Code (gambas)

1. Private TextLabelDisplay As TextLabel
2. Private aSpring As Spring
3. Private Timer1 As Timer
4.  
5. Public Sub Form_Open()
6.  
7.   With Me
8.     .Padding = 5
9.     .Arrangement = Arrange.Vertical
10.     .H = 700
11.     .W = 415
12.     .Y = 50
13.   End With
14.  
15.   aSpring = New Spring(Me)
16.  
17.   TextLabelDisplay = New TextLabel(Me) As "TextLabelDisplay"
18.   TextLabelDisplay.Text = File.Load(Application.Path &/ "loremIpsum.txt")
19.  
20.   Timer1 = New Timer As "Timer1"
21.   Timer1.Delay = 25
22.   Timer1.Start
23.  
24. End
25.  
26. Public Sub Timer1_Timer()
27.  
28.   Inc TextLabelDisplay.H
29.  
30. End

From “Post #13,313”, December 5th 2025, 8:35 AM

Hi cogier ,

Wow, a really short one.
Thanks for sharing 👍


Regards,
Yogi