Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Public linker As Linker
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Private lblText As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("Layout1")
lblText.Text = "Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet."
linker.Initialize("Linker",lblText)
Dim l As List
l.Initialize
Dim link As LinkProfile
link.Initialize("Lorem ipsum dolor",Colors.Red,True)
l.Add(link)
Dim link As LinkProfile
link.Initialize("consetetur sadipscing elitr",Colors.Blue,True)
l.Add(link)
Dim link As LinkProfile
link.Initialize("sed diam",Colors.Yellow,True)
l.Add(link)
Dim tl As List
tl.Initialize
tl.Add("sed diam voluptua")
linker.addProfiles(l)
linker.addStrings(tl)
linker.update
End Sub
Sub Linker_onLinkClick(charSequenceClicked As String)
Log($"Linker_onLinkClick(${charSequenceClicked})"$)
End Sub
