Attribute VB_Name = "Globals"
Public RasterObj As LEADRaster
Public RasterKrnDlg As LEADRasterDlgKrn
Public RasterFileDlg As LEADRasterDlgFile
Public gNumChildren As Integer

Global Const COM_VER_STRING = ".140"
Global Const RASTER_STR = "LEADRaster.LEADRaster" + COM_VER_STRING
Global Const RASTERPROC_STR = "LEADRasterProcess.LEADRasterProcess" + COM_VER_STRING

' the combine flag that copies the source to the destination
Global Const L_SRC_COPY = CB_DST_0 + CB_OP_OR
'End Region Flags

'API's
Global Const SW_SHOW = 5
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'End Api's
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
     
Type aREFERENCEDATA
   nMarkType As Integer
   nTypeIndex As Integer
   nMinSizeRatio As Long
   nMaxSizeRatio  As Long
   nWidth As Long
   nHeight As Long
   Rects() As RECT
   MarkRects() As RECT
   Points() As POINT
   Filled() As Boolean
   nNumber As Integer
   nIndex As Integer
End Type
Public ReferenceData As aREFERENCEDATA

Type aRGSDATA
   rcRect As RECT
   rcMarkRect As RECT
   bFilled As Boolean
   ptPoint As POINT
End Type
Public RgsData() As aRGSDATA
Public RgsDataCount As Integer

Type aMARKSINFO
   ptCenter As POINT
   rcMarkRect As RECT
   rcSearchRect As RECT
   bFilled As Boolean
End Type
Public MarksInfo As aMARKSINFO