jj: Neues Control Linie, form Designer entschlacken
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user