jj: Neues Control Linie, form Designer entschlacken

This commit is contained in:
Jonathan Jenne
2018-04-03 14:51:35 +02:00
parent d56367db07
commit f83d5aea45
8 changed files with 386 additions and 1458 deletions

View File

@@ -77,13 +77,21 @@ Public Module ModuleControlProperties
Return _size
End Get
Set(value As Size)
If (value.Height <= 0) Then
value.Height = 1
End If
If (value.Width <= 20) Then
value.Width = 20
End If
_size = value
End Set
End Property
<Category("Anzeige")>
<TypeConverter(GetType(FontConverter))>
Public Property Font As Font
Public Overridable Property Font As Font
Get
Return _font
End Get
@@ -350,4 +358,17 @@ Public Module ModuleControlProperties
Public Class GridViewProperties
Inherits InputProperties
End Class
Public Class LineLabelProperties
Inherits BaseProperties
<Browsable(False)>
Public Overrides Property Font As Font
Get
Return Nothing
End Get
Set(value As Font)
End Set
End Property
End Class
End Module