[solved] HScrollbar may not be sized properly

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

   Hi, it seems that if a report control column's width is changed through code, the viewport size for the horizontal scrollbar may not get recomputed. For example, if the control is wide enough to show the initial column widths without scrolling, there's no scrollbar, as expected. Then if you increase the Width property of one of the columns, the scrollbar should appear, but it doesn't. If you then click on the column header divider, as if you were going to resize a column with the mouse (but you don't actually have to resize it), the scrollbar will appear properly. Or if there is initially a horizontal scrollbar and you widen a column, the scrollbar won't scroll far enough to the right to completely show all the columns. And again, if you click on the column divider, the scrollbar will adjust and let you scroll all the way.

Sample code to demonstrate the problem... in VB6, put a Report control named ReportControl1 on the form, then paste this as the form code:

Option Explicit

Private Sub Form_Load()
  Dim r As ReportRecord

  With ReportControl1
    .Width = 250 * Screen.TwipsPerPixelX
    .AutoColumnSizing = False
    Set r = .AddRecord
    r.AddItem "Value for column 1"
    r.AddItem "Value for column 2"
    .Populate

    .Columns.Add 0, "Column 1", 100, True
    .Columns.Add 1, "Column 2", 100, True
    .Columns(0).Width = 200
    ' Uncommenting the .Redraw will cause the scrollbar to appear properly
    '.Redraw
  End With
End Sub

You should see a report control with no horizontal scrollbar, and with Column 2 truncated. Then when you click the column divider, the scrollbar will appear. Calling Redraw after setting the column width will work around the problem, but I didn't expect it to be necessary to do so.

This is with version 16.3.1.