jj 15.03 clean up

2016-03-15 15:50:08 +01:00
parent 15b08db258
commit 052635e53a
6 changed files with 18 additions and 8 deletions
--- a/app/DD-Record-Organiser/ClassControlCommands.vb
+++ b/app/DD-Record-Organiser/ClassControlCommands.vb
@@ -321,7 +321,7 @@
            HEIGHT = properties.Size.Height
            WIDTH = properties.Size.Width

-            If propExists(properties, "Font") Then
+            If propExists(properties, "Font") AndAlso Not IsNothing(properties.Font) Then
                Dim f As Font = properties.Font
                FONT_FAMILY = f.FontFamily.Name
                FONT_SIZE = CType(f.Size, Integer)