Option Explicit On
Option Strict On
Imports Excel = Microsoft.Office.Interop.Excel
Imports System.Collections.Generic
Friend Class CWrapperGlobal
Friend intlstDepToHide As New List(Of Integer)
Friend strlstCellmodeCellAddresses As New List(Of String)
Friend spCurrentSpecialParms As cSpecialParms
Friend blnAbandonImportedDep As Boolean
Friend blnBad As Boolean
Friend blnBlankScriptOK As Boolean
Friend blnChangingWorksheet As Boolean
Friend blnClosingWorkbook As Boolean
Friend blnCombinedSketchAndScript As Boolean
Friend blnCompoundDepBeingProcessed As Boolean
Friend blnCreateInvisible As Boolean
Friend blnDidEditScript As Boolean
Friend blnEstimating As Boolean
Friend blnFirstSession As Boolean
Friend blnMainDrawSomeSelected As Boolean
Friend blnOkForPolyshape() As Boolean
Friend blnPleaseRedraw As Boolean
Friend blnValueIsOkay As Boolean
'****************************
Friend CellRange As myCellRange
Friend CellRanges() As myCellRange
Friend Stopwatch As Diagnostics.Stopwatch = New Diagnostics.Stopwatch
Friend StopWatchAddLine As Diagnostics.Stopwatch = New Diagnostics.Stopwatch
Friend StopWatchAddShape As Diagnostics.Stopwatch = New Diagnostics.Stopwatch
'********************************
'keep certain dictionaries out of pwrap to reduce its bloat
Friend DictDragged As New Dictionary(Of Integer, cBaseShape)
Friend DictKeyboard As New Dictionary(Of Integer, String)
Friend DictMovements As New Dictionary(Of Integer, cDeltas)
Friend DictSketchScales As New Dictionary(Of Integer, CSketch)
Friend DictTextFileFilters As New Dictionary(Of Integer, String)
Friend DictTextFileFBackup As New Dictionary(Of Integer, String)
Friend DictTextFileLayers As New Dictionary(Of Integer, String)
Friend DictTextFileScript As New Dictionary(Of Integer, String)
Friend DictOperations As New Dictionary(Of Integer, COperation)
Friend DictRownum2Depnum As New Dictionary(Of Integer, Integer)
Friend DictScript As New Dictionary(Of Integer, String)
Friend DictScriptBackupCopy As New Dictionary(Of Integer, String)
Friend DictScriptToCompare As New Dictionary(Of Integer, String)
Friend DictSelected As New Dictionary(Of Integer, CTracckkerSelection)
'Friend DictSettings As New Dictionary(Of Integer, String)
'********************************
Friend intAutoShapeTypeBeingMoved%
Friend intBoundaryNodeCount%
Friend intBoundaryNodePntNumList%()
Friend intCallingForm%
Friend intCellAddressCount%
Friend intCellRangeDimensions%()
Friend intCellModeDepFoundCount%
Friend intCellModeSelCount%
Friend intCompDepMemberCount%
Friend intCompoundColor%
Friend intCSVNumber%
Friend intCSVNumberLast%
Friend intCurrentDepictionType%
Friend intDebugColor%
Friend intDebugMode%
Friend intDelete1Insert2%
Friend intDepsInLayers%()
Friend intDupeFinds%
Friend intEntries%
Friend intErrorNumber%
Friend intFilterBitHide%
Friend intFormNumber%
Friend intFreeFormPointCount%
Friend intGridlineCount%
Friend intHelpTopic%
Friend intHideCommandEnabled%
Friend intLatestShapeMoved% 'Presumably moved, may simply have been selected
Friend intLatestShapeSelected%
Friend intLayerMoves%
Friend intLineSlant%
Friend intLineColorRGBSelected%
Friend sglLineWidthSelected%
Friend intMidpointYes1No2%
Friend intNBN%
Friend intOffsetDepName%
Friend intOffsetMP%
Friend intOutputParameterCount%
Friend intPairsItems%
Friend intPieSliceArcEndsAt%
Friend intPieSliceArcPosition%
Friend intPieSliceArcStartsAt%
Friend intPieSliceOneLineEndsAt%
Friend intPieSliceOneLineStartsAt%
Friend intPieSliceOtherLineEndsAt%
Friend intPieSliceOtherLineStartsAt%
Friend intPointInstanceLength%
Friend intPointListCount%
Friend intPresentCase%
Friend intRbnSubParam%
Friend intRibbonIconNumber%
Friend intIconNumberStart%
Friend intSavedShapeCount%
Friend intScriptRedoRow%
Friend intScriptSpecialRow%
Friend intScrollRow%
Friend intSelPropertyLineCount%
Friend intSeqNumFound%
Friend intShapeCountSaved%
Friend intShowDepNum%
Friend intShownDtype%
Friend intShownPosition%
Friend intSketchShapeCount%
Friend intTesting%
Friend intTrace%
Friend intWarningNumber%
'Friend PairOfPoints() As MyPairOfPoints
Friend SelCursorInfo As myCursorActions
Friend sglAverageMeshSideLength!
Friend sglClickedCellHeightPnts!
Friend sglClickedCellLeftPnts!
Friend sglClickedCellTopPnts!
Friend sglClickedCellWidthPnts!
Friend sglClickX1!
Friend sglClickX2!
Friend sglClickY1!
Friend sglClickY2!
Friend sglCrosshairSize!
Friend sglDimBoxPntsX!
Friend sglDimBoxPntsY!
Friend sglFriendBoxPntsX!
Friend sglFriendBoxPntsY!
Friend sglFreeFormDataPnts!(,)
Friend sglFreeFormOffsetHorzPnts!
Friend sglFreeFormOffsetVertPnts!
Friend sglFreeFormScaleHorzPPI!
Friend sglFreeFormScaleVertPPI!
Friend sglFudgeFactor!
Friend sglGridSpacingUU!
Friend sglGridUU!
Friend sglHeightOfSelectedShapeBoxPnts!
Friend sglLeftOfSelectedShapeBoxPnts!
Friend sglMinimumAspectRatio!
Friend sglMovedDxPnts!
Friend sglMovedDyPnts!
Friend sglOriginalDepictionPntsX1!
Friend sglOriginalDepictionPntsParm1!
Friend sglOriginalDepictionPntsY1!
Friend sglOriginalDepictionPntsParm2!
Friend sglPPI!
Friend sglSectorAngleDeg!
Friend sglTopOfSelectedShapeBoxPnts!
Friend sglTSCalc!
Friend sglTSDraw!
Friend sglUndoValues!()
Friend sglWidthOfSelectedShapeBoxPnts!
Friend sglXMovedLeftPnts!
Friend sglXMovedRightPnts!
Friend sglXofSelectedPoint!
Friend sglYMovedBotPnts!
Friend sglYMovedTopPnts!
Friend sglYofSelectedPoint!
Friend sglZoom!
Friend str123CADLicenseCode$
Friend str123CADOrderNumber$
Friend str123CADVersion$
'Friend strCellModeCellAddr$()
Friend strColorSelected$
Friend strDataWorksheetname$
Friend strDepCodeForIntersection$
Friend strDrawThis$
Friend strLineExtras$
Friend strFeaturesSelected$
Friend strFormat2DP$
Friend strFormat3DP$
Friend strFormulaExtracted$()
Friend strFQTextFileName$
Friend strHelpDiagramName$
Friend strHelpVideoName$
Friend strIconHelp$
Friend stringWithStructure$
Friend strIsUsedInNames$
Friend strLastDepnameUsed$
Friend strLatestDepName$
Friend strLatestShapeSelectedName$
Friend strLongVariationDesc$
Friend strMainFormTitle$
Friend strMembers$
'Friend strMovedLineName$
Friend strName$
Friend strNameProvided$
Friend strNextCommand$
Friend strNonModalFormResults$
Friend strNumberFromTime$
Friend strNumberFromTimePreviously$
Friend strPreviousCommand$
Friend strPushedSelections$
Friend strIconDescription$
Friend strRunProgram$
Friend strScriptFields$()
Friend strScriptFilename$
'Friend strScriptHelp$
Friend strScriptPhrase1$
Friend strSelectionListItems$()
Friend strSelectionTextboxLines() As String
Friend strSpareArray$()
Friend strTargetName$
Friend strVariation$
Friend strVariationsForHelp$
Friend strWarningMessage$
Friend strWorkbookName$
Friend strWorkbookForParm$
Friend strWorksheetForParm$
Friend strCellForParm$
Friend strWorksheetForImport$
Public Sub New()
intSeqNumFound% = 0
ReDim blnOkForPolyshape(c_MaxDepTypes)
ReDim CellRanges(c_100)
ReDim intBoundaryNodePntNumList%(c_400)
ReDim intCellRangeDimensions%(c_100)
ReDim intDepsInLayers%(c_MaxLayers)
ReDim sglFreeFormDataPnts!(0 To 100, 0 To 1)
ReDim sglUndoValues!(c_100)
'ReDim strCellModeCellAddr$(c_100)
ReDim strFormulaExtracted$(c_WidthScript)
ReDim strScriptFields$(c_WidthScript)
ReDim strSelectionListItems$(c_MaxSelDeps)
ReDim strSelectionTextboxLines(2 * c_MaxDepTypes)
ReDim strSpareArray$(c_MaxMembers500)
End Sub
End Class