Print Page | Close Window

Bug in 15.0.1 Right Mouse Click?

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Report Control
Forum Description: Topics Related to Codejock Report Control
URL: http://forum.codejock.com/forum_posts.asp?TID=17876
Printed Date: 15 November 2024 at 7:56pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com


Topic: Bug in 15.0.1 Right Mouse Click?
Posted By: McKloony
Subject: Bug in 15.0.1 Right Mouse Click?
Date Posted: 14 February 2011 at 11:48am
In version 15.0.1 right mouase click doesn't mark the entry anymore. Is it a bug or a feature?

-------------
Product: Xtreme SuitePro (ActiveX) 16.2.5

Platform: XP / Windows 7

Language: Visual Basic 6.0 SP6



Replies:
Posted By: SuperMario
Date Posted: 14 February 2011 at 1:15pm
Do you have this?
wndReportControl.AllowSelectionCheck = True


Posted By: McKloony
Date Posted: 15 February 2011 at 1:43am
True or False takes no effect for this problem.



-------------
Product: Xtreme SuitePro (ActiveX) 16.2.5

Platform: XP / Windows 7

Language: Visual Basic 6.0 SP6


Posted By: McKloony
Date Posted: 15 February 2011 at 6:20am
I use the following code to solve this problem:


Private Sub repCont1_MouseUp(Button As Integer, Shift As Integer, X As Long, Y As Long)

Dim HiRow As XtremeReportControl.ReportRow
Dim HiCol As XtremeReportControl.ReportColumn
Dim HiItm As XtremeReportControl.ReportRecordItem
Dim HiTes As XtremeReportControl.ReportHitTestInfo
Dim RpCo1 As XtremeReportControl.ReportControl
Dim RpRws As XtremeReportControl.ReportRows

Set RpCo1 = Me.repCont1
Set RpRws = RpCo1.Rows
Set HiTes = RpCo1.HitTest(X, Y)
Set HiRow = HiTes.Row
Set HiItm = HiTes.Item
Set HiCol = HiTes.Column

Select Case HiTes.ht
Case xtpHitTestGroupBox:
Case xtpHitTestHeader:
Case xtpHitTestReportArea:
        If Button = vbRightButton Then
            For Each RpRow In RpRws
                If RpRow.Selected = True Then
                    RpRow.Selected = False
                End If
            Next RpRow
            HiRow.Selected = True
        End If
Case xtpHitTestUnknown:
End Select

Set RpRws = Nothing
Set RpCo1 = Nothing
    
End Sub



-------------
Product: Xtreme SuitePro (ActiveX) 16.2.5

Platform: XP / Windows 7

Language: Visual Basic 6.0 SP6


Posted By: Aaron
Date Posted: 15 February 2011 at 11:27am

Hi,

Don't know what you really want but if you only want the row to be selected, I would do this:

 
Private Sub wndReportControl_RowRClick(ByVal Row As XtremeReportControl.IReportRow, ByVal Item As XtremeReportControl.IReportRecordItem)
    Row.Selected = True
End Sub
 
 
I think right clicking row never selected the row by default, that's why CJ 'invented' this event LOL I have also few contextmenus that popup with right button and had to select the row by code. I'm not 100% sure but you can always ask support, right?
 
Good luck


-------------
Product: Xtreme SuitePro (ActiveX) version 15.0.2
Platform: Windows XP (32bit) - SP 2
Language: Visual Basic 6.0

Zero replies is not an option....



Print Page | Close Window

Forum Software by Web Wiz Forums® version 12.04 - http://www.webwizforums.com
Copyright ©2001-2021 Web Wiz Ltd. - https://www.webwiz.net