How to intercept the scroll event?

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

   Hello, I'd place an ActiveX control created by me in the cell control Control Report. Regarding the positioning there are problems, as using the event FocusChanging, I can place the control cell, but when I go to make the scroll control rightly does not move because no event is not generated. How do I set the control to move to the cell? There is some event to trap the event scrolluing? Thank you. I hope for your response. 

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
energypf Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 13 October 2009 Location: Italy Status: Offline Points: 6	Post Options Post Reply Quote energypf Report Post Thanks(0) Quote Reply Topic: How to intercept the scroll event? Posted: 24 May 2010 at 4:12am
	Hello, I'd place an ActiveX control created by me in the cell control Control Report. Regarding the positioning there are problems, as using the event FocusChanging, I can place the control cell, but when I go to make the scroll control rightly does not move because no event is not generated. How do I set the control to move to the cell? There is some event to trap the event scrolluing? Thank you. I hope for your response.

Aaron Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 29 January 2008 Status: Offline Points: 2192	Post Options Post Reply Quote Aaron Report Post Thanks(0) Quote Reply Posted: 24 May 2010 at 11:32am
	Hi, I think you are better off, using just one event... The BeforeDrawRow event is THE event that covers most of what you are looking for. This event fires whenever ReportControl needs to be repainted. Clicking, scrolling, columnsizing, selecting row... etc etc etc ... Just set wndReportControl.SetCustomDraw xtpCustomBeforeDrawRow Private Sub wndReportControl_BeforeDrawRow(ByVal Row As XtremeReportControl.IReportRow, ByVal Item As XtremeReportControl.IReportRecordItem, ByVal Metrics As XtremeReportControl.IReportRecordItemMetrics) 'Your code goes here 'For example: Dim l As Long Dim t As Long Dim r As Long Dim b As Long If Row.Record.Index = 1 And Item.Index = 1 Then 'Get Row position and size Row.GetItemRect Item, l, t, r, b 'stay on top YourOwnControl.ZOrder 0 'Position control on Record with index 1 and in second column (maybe you need to set a margin to get proper positioning) YourOwnControl.Move l * Screen.TwipsPerPixelX, t * Screen.TwipsPerPixelY, (r - l) * Screen.TwipsPerPixelX, (b - t) * Screen.TwipsPerPixelY End If End Sub Now, try scrolling and column sizing, your control will stay on that position and with proper size
	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....