Attribute VB_Name = "Globals"
Option Explicit
Global Const COM_VER_STRING = ".140"
Global Const RASTER_STR = "LEADRaster.LEADRaster" + COM_VER_STRING
Global Const LEFT_BUTTON = 1
Global Const RIGHT_BUTTON = 2
Global Const MIN_WIDTH = 20
Global Const MIN_HEIGHT = 20
Global gBitonalScaling As Integer
Global Const FACTOR = 100

Public Type POINT
   x As Long
   y As Long
End Type

Public Type RECT
   top As Long
   left As Long
   right As Long
   bottom  As Long
End Type

'Public Declare Function PtInRect Lib "user32" (lpRect As RECT, pt As POINT) As Long


Function PtInRect(ByRef lpRect As RECT, ByRef pt As POINT) As Boolean
   Dim bPtInRect As Boolean
   bPtInRect = False
   If (pt.x >= lpRect.left And pt.x <= lpRect.right And pt.y > lpRect.top And pt.y < lpRect.bottom) Then
      bPtInRect = True
   End If
   
   PtInRect = bPtInRect
End Function