diff --git a/RailtimeScreenSaver/RailtimeScreenSaver.vbproj b/RailtimeScreenSaver/RailtimeScreenSaver.vbproj index d3cd427..cdca2f4 100644 --- a/RailtimeScreenSaver/RailtimeScreenSaver.vbproj +++ b/RailtimeScreenSaver/RailtimeScreenSaver.vbproj @@ -30,7 +30,7 @@ false true 0 - 1.0.0.%2a + 1.1.0.%2a false true diff --git a/RailtimeScreenSaver/SNCB.vb b/RailtimeScreenSaver/SNCB.vb index b14a4e7..5a8f461 100644 --- a/RailtimeScreenSaver/SNCB.vb +++ b/RailtimeScreenSaver/SNCB.vb @@ -312,7 +312,7 @@ Public Class SNCB Dim TrainTypeFlags As TrainData.TrainTypeFlags = RailtimeScreenSaver.TrainData.TrainTypeFlags.TrainTypeNormal - If TrainType Like "S#" Then + If TrainType Like "S#" OrElse TrainType Like "S##" Then TrainTypeFlags = TrainTypeFlags Or RailtimeScreenSaver.TrainData.TrainTypeFlags.TrainTypeSBahn Else If InStr(TrainDestination, "airport", CompareMethod.Text) > 0 OrElse _ diff --git a/RailtimeScreenSaver/Templates.vb b/RailtimeScreenSaver/Templates.vb index e907730..48c8e4b 100644 --- a/RailtimeScreenSaver/Templates.vb +++ b/RailtimeScreenSaver/Templates.vb @@ -206,9 +206,10 @@ Public Class SNCBTemplate Dim STrainType As String = Mid(Train.Type, 2) Dim STrainTypeFont As New Font(TrainFont.FontFamily, TrainFont.Size * 3 / 4) Dim TrainTypeSize As SizeF = Graphics.MeasureString("S", TrainFont) - Dim STrainTypeSize As SizeF = Graphics.MeasureString(STrainType, STrainTypeFont) - Dim STrainTypeCricle As New RectangleF(TrackRect.X - BorderWidth - STrainTypeSize.Width * 5 / 4, TrackRect.Y + TrainTypeSize.Height * 1 / 4, STrainTypeSize.Width * 2 / STrainType.Length * 4 / 5, STrainTypeSize.Width * 2 / STrainType.Length * 4 / 5) + Dim STrainTypeSize As SizeF = Graphics.MeasureString("0", STrainTypeFont) ' STrainType, STrainTypeFont) + Dim STrainTypeCricle As New RectangleF(TrackRect.X - BorderWidth - STrainTypeSize.Width * 5 / 4, TrackRect.Y + TrainTypeSize.Height * 1 / 4, STrainTypeSize.Width * 2 * 4 / 5, STrainTypeSize.Width * 2 * 4 / 5) Graphics.DrawString("S", TrainFont, m_ForeColorBrush, TrackRect.X - BorderWidth - TrainTypeSize.Width - STrainTypeSize.Width, TrackRect.Y) + 'Graphics.DrawString("S", TrainFont, m_ForeColorBrush, TrackRect.X - BorderWidth - TrainTypeSize.Width - STrainTypeCricle.Width, TrackRect.Y) Graphics.FillEllipse(m_ForeColorBrush, STrainTypeCricle) PrintCentered(STrainType, STrainTypeCricle, Graphics, STrainTypeFont, New SolidBrush(TrainRectColor)) diff --git a/exe/RailtimeScreenSaver.exe b/exe/RailtimeScreenSaver.exe index 55ea6c2..81231fb 100644 Binary files a/exe/RailtimeScreenSaver.exe and b/exe/RailtimeScreenSaver.exe differ diff --git a/exe/RailtimeScreenSaver.scr b/exe/RailtimeScreenSaver.scr index 55ea6c2..81231fb 100644 Binary files a/exe/RailtimeScreenSaver.scr and b/exe/RailtimeScreenSaver.scr differ