Sub Globals
Private Dialog As B4XDialog 'need XUI Views lib checked
Private XUI As XUI
Private InputTemplate As B4XInputTemplate
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dialog.Initialize (Activity)
InputTemplate.Initialize
InputTemplate.TextField1.TextColor = XUI.Color_Black
InputTemplate.TextField1.SetTextAlignment("TOP", "LEFT")
InputTemplate.mBase.Height = 200dip
Dim et As EditText = InputTemplate.TextField1
et.SingleLine = False
et.Height = 150dip
et.TextColor=XUI.Color_Cyan
Wait For (Dialog.ShowTemplate(InputTemplate, "OK", "", "CANCEL")) Complete (Result As Int)
If Result = XUI.DialogResponse_Positive Then
Log(InputTemplate.Text)
End If
End Sub