Bug : Multi-Line height & Merge Cells

Hi again

Always working with Merged cells, i found something i would call a BUG !

* All columns are "AlignmentWordBreak", i merged columns 1 & 2 and i have this.
So far, no problems.




* Let's now resize column 1 "Subject" and look to the third line !

CodeJock calculate the height of the line without add column 1 "Subject" and column 2 "Received" widths




* See here : the height of the third line is the same if no cells are merged :





I think this is a BUG, can anyone confirm ?


I use CodeJock Xtreme SuitePro (ActiveX) 15.1.3 - Report Control.

Thanks.


My code :

Option Explicit
Private Sub Form_Load()
   
    Dim ligne  As Integer
    Dim Record As ReportRecord
    Dim Column As ReportColumn
   
    Set Column = wndReportControl.Columns.Add(0, "From", 40, True)
    Set Column = wndReportControl.Columns.Add(1, "Subject", 90, True)
    Set Column = wndReportControl.Columns.Add(2, "Received", 40, True)
   
    wndReportControl.PaintManager.HorizontalGridStyle = xtpGridSolid
    wndReportControl.PaintManager.VerticalGridStyle = xtpGridSolid
    wndReportControl.PaintManager.GridLineColor = &H80000012
 
    wndReportControl.PaintManager.AllowMergeCells = True
    wndReportControl.PaintManager.FixedRowHeight = False
    wndReportControl.Columns(0).Alignment = xtpAlignmentWordBreak
    wndReportControl.Columns(1).Alignment = xtpAlignmentWordBreak
    wndReportControl.Columns(2).Alignment = xtpAlignmentWordBreak
   
    Set Record = wndReportControl.Records.Add()
    Record.AddItem "postmaster@mail.codejock.com"
    Record.AddItem "Undeliverable Mail"
    Record.AddItem ""
    wndReportControl.Records.MergeItems ligne, ligne, 1, 2
   
    ligne = ligne + 1
    Set Record = wndReportControl.Records.Add()
    Record.AddItem "postmaster@mail.codejock.com"
    Record.AddItem "Undeliverable Mail 2"
    Record.AddItem ""
    wndReportControl.Records.MergeItems ligne, ligne, 1, 2
   
    ligne = ligne + 1
    Set Record = wndReportControl.Records.Add()
    Record.AddItem "Codejock Exchange (https://forum.codejock.com)"
    Record.AddItem "Good Answer! Capture message send from Net Send 1 - Capture message send from Net Send 2! Good Answer"
    Record.AddItem ""
    wndReportControl.Records.MergeItems ligne, ligne, 1, 2
   
    ligne = ligne + 1
    Set Record = wndReportControl.Records.Add()
    Record.AddItem "Codejock Exchange (https://forum.codejock.com)"
    Record.AddItem "Comment Added: returning a <ma> from a dll"
    Record.AddItem ""
    wndReportControl.Records.MergeItems ligne, ligne, 1, 2
   
    wndReportControl.Populate

    wndReportControl.Redraw
       
End Sub

Hi,

you are right, the row height does not consider merged cells. This requires some changes to the control, so I probably have to postpone the fix after 15.2.1 and then include the fix in 15.2.2.

Andre

The forums seem dead at this point, but, same problem in 16.1.0.  Merged cells are (still) not taken into account when calculating row height.  I am currently attempting to implement my own workaround because I have very specific cases of merged cells - for those interested the function to override appears to be CXTPReportPaintManager::GetRowHeight.