Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Function IsMouseInCurrentCell() As Boolean
- Dim PTMouse As POINTAPI
- Dim NRCTCell As NEWRECT
- Dim RCTCell As RECT
- GetCursorPos PTMouse
- ScreenToClient Me.hWnd, PTMouse
- NRCTCell.Left = (Me.fgNumbers.CellLeft + Me.fgNumbers.Left) \ asScreenTwipsPerPixelX()
- NRCTCell.Width = (Me.fgNumbers.CellWidth + Me.fgNumbers.Left) \ asScreenTwipsPerPixelX()
- NRCTCell.Top = (Me.fgNumbers.CellTop + Me.fgNumbers.Top) \ asScreenTwipsPerPixelY()
- NRCTCell.Height = (Me.fgNumbers.CellHeight + Me.fgNumbers.Top) \ asScreenTwipsPerPixelY()
- asNewRectToRect NRCTCell, RCTCell
- IsMouseInCurrentCell = CBool(PtInRect(RCTCell, PTMouse.X, PTMouse.Y) <> C_FALSE)
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement