Codejock Developer Community : [BUG] MinimumWidth Columns

[BUG] MinimumWidth Columns : Hi, I don't know anymore......

Fri, 08 May 2009 08:43:34 +0000

Author: Aaron
Subject: 13379
Posted: 08 May 2009 at 8:43am

Hi,

I don't know anymore... I don't know what OCX to use anymore... It's beginning to spin in my head

Somewhere in OCX (I'm using now) I see .AutoColumnSizing is set to true while resizing RC's Also when trying to resize column, the lines that are drawn to define the width of that column, are drawn in weird places

I thought it was getting somewhere but I see still problems, I really hope I have old Beta OCX...

First I need latest Beta OCX for further testing.

Thanks

[BUG] MinimumWidth Columns : Hi Mark, Thanks for the clarifications,...

Thu, 07 May 2009 21:14:16 +0000

Author: jpbro
Subject: 13379
Posted: 07 May 2009 at 9:14pm

Hi Mark,

Thanks for the clarifications, they were very helpful. In case anyone is interested, here's a routine that is useful for adding columns to a ReportControl, using Mark's suggestion of setting the starting width to slightly less than the Minimum width:


Private Function AddColumn(ByRef p_ReportControl As ReportControl, ByVal p_Caption As String, ByVal p_MinimumWidthPx As Long, ByVal p_Resizable As Boolean, ByVal p_AutoSize As Boolean) As ReportColumn
   ' This is a generic function for adding columns to the ReportControl
   ' It bases the starting column width on the passed miminum column width as suggested by Mark Doubson @ Codejock
   ' See http://forum.codejock.com/forum_posts.asp?TID=13379&PID=48715#48715
   ' It also ensures that the column ItemIndex is correct by basing it on the column count at the time the column is added
   
   With p_ReportControl
      Set AddColumn = .Columns.Add(.Columns.Count, p_Caption, p_MinimumWidthPx - 10, p_Resizable)
      With AddColumn
         .AutoSize = p_AutoSize
         .MinimumWidth = p_MinimumWidthPx
      End With
   End With
End Function

    It returns the newly added column so that you can easily set and additional properties as required.

    In other news, I have isolated what appears to be a problem with the horizontal scrollbar appearance under a specific circumstance. If a column has its Resizable property set to True, and its AutoSize property set to False, then the HSB doesn't appear when you would expect it to.

    Here's a sample that demonstrates this problem:

uploads/20090507_210333_ReportControlRe.zip

    In the sample, there are 2 ReportControls (upper and lower). The only difference between them is that in the upper RC, the DateWritten column has the Resizable property set to True, while the lower RC has the Resizable property set to False. The upper RC doesn't show the horizontal scrollbar immediately after the right-most column extends beyond the visible area of the control, while the lower RC works perfectly. My best guess is that the algorithm used to determine visibility of the HSB is basing the decision on the MinimumWidth of the column instead of the displayed width of the column, but I'm not 100% sure of this.

     I'll just think out-loud here for a moment - Maybe a BeforeColumnResize event would be useful, because then we could manage minimum widths, maximum widths and resizability ourselves based on dynamic requirements at runtime. Something like: BeforeColumnResize(Column As ReportColumn, Cancel As Boolean). Setting Cancel to True would prevent the column from being resized by the user.

    Mark - If you prefer to do this through the support system, I can open a new ticket.

[BUG] MinimumWidth Columns : uploads/20090507_105418_ReportControlRe.rar Yes...

Thu, 07 May 2009 10:53:54 +0000

Author: mdoubson
Subject: 13379
Posted: 07 May 2009 at 10:53am

uploads/20090507_105418_ReportControlRe.rar

Yes sure

[BUG] MinimumWidth Columns : Hi, Jason or Mark, can you...

Thu, 07 May 2009 10:49:48 +0000

Author: Aaron
Subject: 13379
Posted: 07 May 2009 at 10:49am

Hi,

Jason or Mark, can you upload new version of working project?

Thanks

[BUG] MinimumWidth Columns : Sorry but I like to make clearabout...

Wed, 06 May 2009 15:34:12 +0000

Author: mdoubson
Subject: 13379
Posted: 06 May 2009 at 3:34pm

Sorry but I like to make clear about recent updates for Report Contol (copy comments from SVN log):

Revision: 8672
Author: mdoubson
Date: 12:00:49, 4 мая 2009 г.
Message:
add search flag xtpReportTextSearchExactStart

Revision: 8676
Author: mdoubson
Date: 17:54:45, 4 мая 2009 г.
Message:
added FindRecordItemByRows support (to efficiently cover sorted cases)

Revision: 8678
Author: mdoubson
Date: 18:29:40, 4 мая 2009 г.
Message:
fix wrong MarkUp size case

As you can see - no modifications related to report sizing.

What I did - fix Jason app code to match resizing model expectation -

Each visible column created with some given width and after minimum width assigned to column as a value little bit larger (e.g. 50 -> 60, 100 -> 110).

No need to play with AutoColumnSizing.

I guess this is also one of rule to remember.

[BUG] MinimumWidth Columns : Mark has updated the source to...

Wed, 06 May 2009 14:42:59 +0000

Author: jpbro
Subject: 13379
Posted: 06 May 2009 at 2:42pm

Mark has updated the source to meet my expectations of the RC behaviour. In addition to these changes, some lessons learned/recommendations:

1) Call UserControl.Refresh after calling the Move method of a ReportControl on a UserControl.
2) Don't prepare your ReportControl (when on a UserControl) in the UserControl_Initialized event, instead create a public sub and call it from Form_Load.
3) When using RC on a UserControl, it is recommended to set the ScaleMode to vbPixels (if only for easier debugging since RC uses pixels exclusively for its internal measurements).

Thanks again to Mark and Aaron for working on this problem.

[BUG] MinimumWidth Columns : Thanks again Aaron, that does...

Tue, 05 May 2009 17:29:35 +0000

Author: jpbro
Subject: 13379
Posted: 05 May 2009 at 5:29pm

Thanks again Aaron, that does help and I think we are getting close to the expected behaviour (or at least the behaviour that I would expect). I'm now communicating with Mark over the support system and I will post back here when we have a resolution.

[BUG] MinimumWidth Columns : Hi Jason, I did test with...

Tue, 05 May 2009 15:19:07 +0000

Author: Aaron
Subject: 13379
Posted: 05 May 2009 at 3:19pm

Hi Jason,

I did test with your test project and added code:

      With lo_Col
         .Caption = lo_Col.Width
         .Visible = True
         .HeaderAlignment = xtpAlignmentCenter
         .Resizable = True
         .AutoSize = False
         .Alignment = xtpAlignmentLeft + xtpAlignmentWordBreak
         '.MinimumWidth = p_Parent.TextWidth(.Caption) \ Screen.TwipsPerPixelX + mc_MinimumWidthPaddingPx
         Debug.Print p_Parent.Name & ", column '" & .Caption & "' minimum width = " & .MinimumWidth
      End With

This for showing you what I ment in 4. in my previous reply.

See??? After checking this you could do following:

If you would create function in usercontrol:

Public Function SetPrepControl()
PrepReportControl UserControl.ReportControl1, Me
End Function

and delete line in UserControl_Initialize of course.

and call this function in form load event (like you already do with RC in form) the column widths of RC in form and user control will be the same.

Private Sub Form_Load()
UserControl11.SetPrepControl
PrepReportControl Me.ReportControl1, Me
End Sub

Hope this helps you a little further

[BUG] MinimumWidth Columns : Thanks Aaron...setting AutoColumnSizing...

Mon, 04 May 2009 22:35:13 +0000

Author: jpbro
Subject: 13379
Posted: 04 May 2009 at 10:35pm

Thanks Aaron...setting AutoColumnSizing = True in the UserControl_Show event seems to match the Auto/BestFit sizing when using a ReportControl on the Form only...

[BUG] MinimumWidth Columns : jpbro wrote:Hi Aaron,Thanks...

Mon, 04 May 2009 15:14:44 +0000

Author: Aaron
Subject: 13379
Posted: 04 May 2009 at 3:14pm

jpbro wrote:

Hi Aaron,
Thanks for the intervention

1. I have no problem with the RowHeight, as you have mentioned, that is working fine.

2. The problems are with the column widths (BestFit) for columns with cells with multiple lines of text (not word wrap mode, just vbNewline characters) and

3. Missing Horizontal scroll bars.

4. There also seems to be a mysterious difference between the column sizing when the RC is on a Form and when it is on a UserControl (see screenshots and sample above).

5. If you have a chance, you can tell me if I am going crazy, or if there is indeed a problem.

Thanks.

Ok, one down and many to go hehehe
Bestfit doesn't work properly with vbNewLine it will be calculated as just one single string. Mark should be able to check this...
Don't know yet But I will check this tomorrow...
If you would create a function and call this function with a button on the form, you will see that all columns will be added with same width. I did this and both RC's have same column widths, also resizing will be the same for all columns. My guess is when columns are added to RC the column width will be calculated per column (you can test this by adding columns and assign Column.Width to Caption. You will see that width of first column is bigger than last column (values decreasing). Maybe total width of RC in form and in usercontrol are different when columns are added. I don't know if this making any sense, if not I will create test for you (will be tomorrow also) Also try with AutoColumnSizing = False at startup and after loading columns and records set AutoColumnSizing = true (this will have at least same col widths at startup)
Let's hope not hehehe, this should be solved one way or another