Problem: Markup + FontSize

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

This code will lead to wrong column caption font:

Private Sub Form_Load()
    Width = 8000
    Height = 4000
    With ReportControl1
        .Move 0, 0, ScaleWidth, ScaleHeight
        .EnableMarkup = True

        With .PaintManager
            .CaptionFont.Name = "Verdana"
            .CaptionFont.Size = 14
        End With

        With .Columns.Add(0, "", 100, False)
            .Caption = "<TextBlock TextWrapping='Wrap' TextAlignment='left' VerticalAlignment='Center' FontFamily='Verdana'>One</TextBlock>"
        End With
        With .Columns.Add(0, "", 100, False)
            .Caption = "<TextBlock TextWrapping='Wrap' TextAlignment='left' VerticalAlignment='Center' FontFamily='Verdana'>Two</TextBlock>"
        End With
    End With
End Sub

It should render the same: either both 8pt or both 14pt ;)

To get the correct font rendering I have to set the fontSize in the markup:

Private Sub Form_Load()
    Width = 8000
    Height = 4000
    With ReportControl1
        .Move 0, 0, ScaleWidth, ScaleHeight
        .EnableMarkup = True
        With .Columns.Add(0, "", 100, False)
            .Caption = "<TextBlock TextWrapping='Wrap' TextAlignment='left' VerticalAlignment='Center' FontFamily='Verdana' FontSize='14'>One</TextBlock>"
        End With
        With .Columns.Add(0, "", 100, False)
            .Caption = "<TextBlock TextWrapping='Wrap' TextAlignment='left' VerticalAlignment='Center' FontFamily='Verdana' FontSize='14'>Two</TextBlock>"
        End With
    End With
End Sub

still, RC version 13 or 15 have the same behavior (-: