This is what I am doing:
but the text is non-editable.
What am I doing wrong, please?
-j
B4X:
LongInputTemplate.Initialize
Dim column As B4XTableColumn = B4XTable1.GetColumn(ColumnId)
Dim value As String = B4XTable1.GetRow(RowId).Get(ColumnId)
LongInputTemplate.Text = value
LongInputTemplate.CustomListView1.DefaultTextBackgroundColor = xui.Color_White
LongInputTemplate.CustomListView1.DefaultTextColor = xui.Color_Black
'LongInputTemplate.Text = column.Id
Wait For (Dialog.ShowTemplate(LongInputTemplate, "OK", "", "CANCEL")) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
B4XTable1.sql1.ExecNonQuery2($"UPDATE data SET ${column.SQLID} = ? WHERE rowid = ?"$, Array As String(LongInputTemplate.Text, RowId))
End If
but the text is non-editable.
What am I doing wrong, please?
-j