Working with VB6/SP6 and CJ Suite 13.1.0

 

Probably I am missing something because I can't believe, that such a basic operation as MouseDowen - Drag for selection - MouseUp is not implemented in RC...

 

Thanks for a hint

 

But thanks for asking!

 

If you start dragging right at the end of a column you can mark items with the mouse.

 

Yes I simulate this using mouse events and the RC Navigator but there are a lot of things to do (mouse up on a column with check boxes marks the checkbox, if you simply click in an edit box or a combo removes the focus immediately because I select the row and so on). Now I have a working version but I think that is basic and sould be done by RC!

 

Thats my code:

 

Private FirstRow1       As ReportRow

Private Sub ReportControl1_MouseDown(Button As Integer, Shift As Integer, x As Long, y As Long)
  Set FirstRow1 = Nothing
  If Button = vbLeftButton And Shift = 0 Then
    If ReportControl1.HitTest(x, y).ht = xtpHitTestReportArea Then
      If Not ReportControl1.HitTest(x, y).Item Is Nothing Then
        If ReportControl1.HitTest(x, y).Item.Index <> COL_NOTIZ2 Then  'This column is not allowed to start selection
          Set FirstRow1 = ReportControl1.HitTest(x, y).Row
          If Not FirstRow1 Is Nothing Then
            ReportControl1.SelectedRows.DeleteAll
            FirstRow1.Selected = True
          End If
        End If
      End If
    End If
  End If
End Sub

 

Private Sub ReportControl1_MouseMove(Button As Integer, Shift As Integer, x As Long, y As Long)
  Dim Row As ReportRow
 
  If Button = vbLeftButton And Shift = 0 And Not FirstRow1 Is Nothing Then
    If ReportControl1.HitTest(x, y).ht = xtpHitTestReportArea Then
      Set Row = ReportControl1.HitTest(x, y).Row
      If Not Row Is Nothing Then
        ReportControl1.Navigator.MoveToRow Row.Index, True
      End If
    End If
  End If
End Sub

 

Private Sub ReportControl1_MouseUp(Button As Integer, Shift As Integer, x As Long, y As Long)
  Dim Row As ReportRow
 
  If Button = vbLeftButton And Shift = 0 And Not FirstRow1 Is Nothing Then
    If ReportControl1.HitTest(x, y).ht = xtpHitTestReportArea Then
      ReportControl1.Navigator.MoveToRow FirstRow1.Index, False
      Set Row = ReportControl1.HitTest(x, y).Row
      If Not Row Is Nothing Then
        ReportControl1.Navigator.MoveToRow Row.Index, True
      End If
    End If
  End If
End Sub

 

What are you talking about, Fabian - at least under XP Explorer - if I am dragging mouse holding left mouse button - I only see one selected row (the row I start dragging) and moving drag and drop icon - not multiple rows...

 

In Excel this is possible but not in Explorer!

 

I guess that you mean Tracker mode when you start dragging outside item and tracker rectanlge cover several items - in this case it create multi-selection.

Explorer use this mode because it is convinient in IconView mode (and not very convinient in Table (ReportView) Mode).

But we don't use tracker-based selection in ReportControl...

 

Nonetheless I think RC is nearer to EXCEL as to explorer and this feature would be very handy for the user. I have found a solution with the Navigator class (s. post) but I would be happy if it was done by the component itself...

 

 

Only a wish!

 

Thanks for reading

 

You new source is not buildable (runnable) 

 

line WithEvents mo_AutoScrollTimer  As CTimer 

 

Compiler error: User defined type not defined

 

Please check and update

 

But I can run your exe - now no problems with X-Icon case and no problems with checkboxes!

 

 

Why we have different behaviour?

It is true if checkbox is stand-alone control in form - you need MouseDown-MouseUp on same glyph.

But buit-in checkbox (e.g. checkbox in MS DateTimePicker) - react on your first MouseDown - immediately

 

Btw - this is not difficult to implement checking mouse down and mouse up points to prevent this effect

(rev 9644)and try checkbox case

 

 

Try get update please now (9645)

and group row also - I don't touch it in prev rev

retesting under current ocx?