B4J Question Log window in UI app

[marcick]

Hope the question is not too stupid ....
I would like to convert my NON-UI server app to a UI one. How to make a simple log windows that behave like the NON-UI one ? It should contain the last x number of rows, be scrollable and efficient.

 

[Erel]

Add a TextArea named txtLogs.

Use lg instead of Log:

Sub lg(msg As String)
   txtLogs.Text = txtLogs.Text & CRLF & msg
   If txtLogs.Text.Length > 5000 Then
     txtLogs.Text = txtLogs.Text.SubString(txtLogs.Text.Length - 2000)
   End If
   txtLogs.SetSelection(txtLogs.Text.Length, txtLogs.Text.Length)
End Sub

 

[marcick]

so simple ?
Thanks