This commit is contained in:
SchreiberM
2017-03-23 17:16:10 +01:00
parent f4b61df91e
commit ac726d544f
9 changed files with 63 additions and 39 deletions

View File

@@ -1379,7 +1379,9 @@ Public Class ClassControlBuilder
Try
Dim control As Label = New Label
Dim defaultSize As Size = New Size(200, 27)
If id = 735 Then
Dim i = "Obacht"
End If
Dim metadata As New ClassControlMetadata()
metadata.Id = id
metadata.Name = name
@@ -1422,6 +1424,13 @@ Public Class ClassControlBuilder
control.Text = result.ToString
End If
End If
Else
If text <> "" Then
control.Text = text
Else
control.Text = "NO CAPTION/TEXT"
End If
End If
End If