The solution you are using provides the entirety of the source code. You need to modify it to do what you need.
Having said that, and briefly looking at the source code, I would start with modifying the setText method to adjust the alignment, something such as:
[CODE lang="b4x" highlight="3, 13"] If originalTextWidth <= mBase.Width Then
xlbl.Text = t
xlbl.Gravity = Gravity.Center
p.Tag = "static"
StopScrolling
Else
p.Tag = ""
Dim duplicateText As String = t & " " & t
Dim Width As Float = MeasureTextWidth(duplicateText, fnt)
p.Width = Width
xlbl.Width = Width
xlbl.Text = duplicateText
xlbl.Gravity = Gravity.LEFT
StartScrolling (p, originalTextWidth)
End If[/CODE]
And see if that accomplishes what you're looking for.