@@ -6,7 +6,7 @@ Imports System.Text.RegularExpressions
66
77Public Class B2SScreen
88
9- Public Property ScreensOrdered() = Screen.AllScreens.OrderBy( Function (sc) sc.Bounds.Location.X).ToArray()
9+ Public Property ScreensOrdered() As Screen() = Screen.AllScreens.OrderBy( Function (sc) sc.Bounds.Location.X).ToArray()
1010 Public Property VersionTwoFile() As Boolean = False
1111
1212 Public Shared formBackglass As formBackglass = Nothing
@@ -39,7 +39,7 @@ Public Class B2SScreen
3939 Public Property BackgroundLocation() As Point = New Point( 0 , 0 )
4040 Public Property BackgroundPath() As String = String .Empty
4141
42- Public Property BackglassCutOff() As Rectangle = Nothing
42+ Public Property BackglassCutOff() As Rectangle = Rectangle.Empty
4343
4444 Public Property IsDMDToBeShown() As Boolean = False
4545 Public Property StartBackground() As Boolean = False
@@ -149,7 +149,7 @@ Public Class B2SScreen
149149 debugLog.WriteLogEntry( "B2SScreen.ReadB2SSettingsFromFile A version #2 file " & Me .BackgroundPath)
150150
151151 line(i) = 0
152- line(i + 1 ) = 0
152+ If i < 49 Then line(i + 1 ) = 0
153153
154154 Me .BackglassMonitor = line( 4 )
155155 EvalateBackglassScreen()
@@ -170,7 +170,7 @@ Public Class B2SScreen
170170 If (line( 7 ).Contains( "%" ) Or line( 8 ).Contains( "%" )) Then debugLog.WriteLogEntry( "B2SScreen.ReadB2SSettingsFromFile DMDSize: " &
171171 line( 7 ) & "," & line( 8 ) & "->" & Me .DMDSize.Width & "," & Me .DMDSize.Height)
172172
173- Me .DMDLocation = New Size (CInt (CalcValue(line( 9 ), Me .BackglassScreen.Bounds.Width)), CInt (CalcValue(line( 10 ), Me .BackglassScreen.Bounds.Height)))
173+ Me .DMDLocation = New Point (CInt (CalcValue(line( 9 ), Me .BackglassScreen.Bounds.Width)), CInt (CalcValue(line( 10 ), Me .BackglassScreen.Bounds.Height)))
174174 If (line( 9 ).Contains( "%" ) Or line( 10 ).Contains( "%" )) Then debugLog.WriteLogEntry( "B2SScreen.ReadB2SSettingsFromFile DMDLocation: " &
175175 line( 9 ) & "," & line( 10 ) & "->" & Me .DMDLocation.X & "," & Me .DMDLocation.Y)
176176
@@ -638,16 +638,16 @@ Public Class B2SScreen
638638 If DMDFlipY AndAlso Not DMDAtDefaultLocation Then
639639 y = formDMD.Height / _rescaleDMDY - y - ledarea.Value.Rect.Height / _rescaleDMDY
640640 End If
641- ledarea.Value.Rect = Rectangle.Round( New Rectangle (ledarea.Value.Rect.X / _rescaleDMDX, y, ledarea.Value.Rect.Width / _rescaleDMDX, ledarea.Value.Rect.Height / _rescaleDMDY))
641+ ledarea.Value.Rect = Rectangle.Round( New RectangleF (ledarea.Value.Rect.X / _rescaleDMDX, y, ledarea.Value.Rect.Width / _rescaleDMDX, ledarea.Value.Rect.Height / _rescaleDMDY))
642642 End If
643643 Else
644- ledarea.Value.Rect = Rectangle.Round( New Rectangle (ledarea.Value.Rect.X / _rescaleX, ledarea.Value.Rect.Y / _rescaleY, ledarea.Value.Rect.Width / _rescaleX, ledarea.Value.Rect.Height / _rescaleY))
644+ ledarea.Value.Rect = Rectangle.Round( New RectangleF (ledarea.Value.Rect.X / _rescaleX, ledarea.Value.Rect.Y / _rescaleY, ledarea.Value.Rect.Width / _rescaleX, ledarea.Value.Rect.Height / _rescaleY))
645645 End If
646646 Next
647647
648648 ' and now recalc the backglass cut off rectangle
649649 If BackglassCutOff <> Nothing Then
650- BackglassCutOff = New Rectangle (BackglassCutOff.X / _rescaleX, BackglassCutOff.Y / _rescaleY, BackglassCutOff.Width / _rescaleX, BackglassCutOff.Height / _rescaleY)
650+ BackglassCutOff = Rectangle.Round( New RectangleF (BackglassCutOff.X / _rescaleX, BackglassCutOff.Y / _rescaleY, BackglassCutOff.Width / _rescaleX, BackglassCutOff.Height / _rescaleY) )
651651 End If
652652
653653 End Sub
0 commit comments