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 (-:
------------- Product: Xtreme SuitePro (ActiveX) version 13.4.1 / 16.3.0
Platform: Windows Vista (32bit) - SP 2
Language: Visual Basic 6.0 (SP6)
|