'Initialize PT2 Private Sub Form_Load() On Error GoTo err_Form_Load Dim LoadXL&, Refreshed As Boolean, willbeWID& ',RetVal As Variant Call Btns_Init '<<<<<<< If HiDef Then Call TwpCor If NudgeIt Then Call NudgeLabels If MyCTRLdown Then MyCTRLdown = False cmbSize1.Value = UsrCore.usrc_WidthSettingPT1 cmbSize2.Value = UsrCore.usrc_WidthSettingPT2 DefaultsManagerEnabled = UsrCore.usrc_DefaultsManagerEnabled_PT2 SettingGraphWidth1 = UsrCore.usrc_WidthSettingPT1 * 1440! SettingGraphWidth2 = UsrCore.usrc_WidthSettingPT2 * 1440! SettingRE = UsrCore.usrc_RenderEngine_PT2 iniListSB = lstSB.Width iniPlotTop1 = peGraph1.Top peGraph5.Top = peGraph3.Top peGraph3.Top = peGraph3.Top + G5HeightViewable iniPlotTop3 = peGraph3.Top peGraph5.Height = G5Height curXSecLeft = iniListSB + SettingGraphWidth1 + SettingGraphWidth2 iniPlotHeight4 = 2.2493 * 1440 'to fix for PesgoV8 peGraph4.Height inilstSBTop = lstSB.Top Magenta = RGB_Magenta MagentaLight = RGB_MagentaLight Gray50 = RGB_Gray128 RedDelete = RGB(128, 0, 0) 'Red in 3DSB Delete button txtACT.Left = txtHeaderSummary.Left txtACT.Width = 10 * 1440 ' 4.55 * 1440 'boxToolbar.Width curMultiAxesProportions0 = 1! txtForceSave.TabStop = False 'Restore Default Settings If DefaultsManagerEnabled Then willbeWID& = SCurWID Call ManageDefaults("User", willbeWID&) Else Call ManageDefaults("SES") End If NeedDefaultsRefresh = False Call UpdateShowAnnoG3(True) 'G3ShowAnno = True G3Anno3DSB = True G3AnnoSCTD = True G3FillBetween = False G3GraphAnnotMoveable = PEGAM_POINTER ' PEGAM_NOT_MOVEABLE G3GAEveryPossiblePoly = False PlotGrid = False GridsOK = False GridsCount = 0 GridName = vbNullString Grids_BulkShift = 0# Grids.gID_Cur = -1 'flag Grids.CheckSumGID_Cur = -1& PlotProj = False Proj.OK = False Proj.Count = 0 Proj.CheckSum_Cur = -1@ 'Should add below to Defaults Manager actG12RSDWindow = 0.5 ' 0.2 'was hardwired 4 x dblMyMRound; reset here or could get mixup if loaded well's units change Call GetSetSumTbl(sACTION_GETDEFAULT, 0&, DefSumTbl, False) Call GetSetProjFlatStore 'NOTE: during DESK InitAppLast, is called...GetSetBedFav("", sBedFavStoreRecs, pt2BedFavStore()) 'Hard-wired peColors peclr_Black = peRGBfromLong(0&, 255) peclr_White = peRGB(255, 255, 255, 255) peclr_Magenta = peRGB(255, 0, 255, 255) peclr_Gray05 = peRGB(242, 242, 242, 255) 'Gray-5% peclr_Gray10 = peRGB(229, 229, 229, 255) 'Gray-10% peclr_Gray25 = peRGB(192, 192, 192, 255) 'Gray-25% peclr_Gray40 = peRGB(150, 150, 150, 255) 'Gray-40% peclr_Gray50 = peRGB(128, 128, 128, 255) 'Gray-50% peclr_MyGrayLt = peRGBfromLong(MyGrayLt, 255) 'Light Gray peclr_Acc2kGray = peRGBfromLong(Acc2kGray, 255) 'A2000 background gray peclr_Black64 = peRGBfromLong(RGB_Black64, 255) 'Toolbar Gray peclr_PEGray = peRGB(192, 192, 192, 255) 'PE default gray peclr_PEGrayA128 = peRGB(192, 192, 192, 128) 'PE default gray with Alpha Value peclr_PEGrayX2 = peRGB(161, 161, 161, 128) 'PE default gray on top of peclr_PEGrayA128 yields peclr_PEGray color but with some transparency - for VS label peclr_RedDark = peRGB(194, 58, 0, 255) 'Reddish peclr_RedDarkSolid = peRGB(255, 58, 0, 255) 'Reddish solid peclr_DeskColor = peRGBfromLong(UsrCore.usrc_GraphsDeskColorRGB, 255) '(192,192,192) or (212,208,200) peclr_DeskColorA128 = peRGBfromLong(UsrCore.usrc_GraphsDeskColorRGB, 128) '(192,192,192) or (212,208,200) with Alhpa Value peclr_BulkShifter = peRGBfromLong(3289650, 127) '*with transparency* peclr_SC = peclr_Gray50 peclr_CPdot = peRGB(0, 0, 0, 160) '*with transparency* peclr_CP = peRGB(0, 0, 0, 192) '*with transparency* peclr_Invis = peRGBfromLong(0&, 0) peclr_GrayA128 = peRGB(0, 0, 0, 128) 'dark gray *with transparency* peclr_GrayA064 = peRGB(0, 0, 0, 64) 'light gray *with transparency* 'Px onePxTwp = TwpCorFactor * CSng(fPixelsToTwips(1, DIRECTION_VERTICAL)) twoPxTwp = TwpCorFactor * CSng(fPixelsToTwips(2, DIRECTION_VERTICAL)) threePxTwp = TwpCorFactor * CSng(fPixelsToTwips(3, DIRECTION_VERTICAL)) fourPxTwp = TwpCorFactor * CSng(fPixelsToTwips(4, DIRECTION_VERTICAL)) fivePxTwp = TwpCorFactor * CSng(fPixelsToTwips(5, DIRECTION_VERTICAL)) sixPxTwp = TwpCorFactor * CSng(fPixelsToTwips(6, DIRECTION_VERTICAL)) elevenPxTwp = TwpCorFactor * CSng(fPixelsToTwips(11, DIRECTION_VERTICAL)) 'Other subformLoading.BorderColor = Acc2kGray 'otherwise can't see it in design mode subformLoading.Left = cmdsReload_1.Left + SMIDGE03 subformLoading.Top = cmdsReload_1.Top + SMIDGE02 subformLoadingLT.BorderColor = RGB_Gray225 subformLoadingLT.Left = cmdsReload_1.Left + SMIDGE04 subformLoadingLT.Top = cmdsReload_1.Top + SMIDGE03 imgSyncWarning.Top = 0.1 * 1440 imgSyncWarning.Left = 2.8 * 1440 'Continue loading FormLoadDone = True Call RefreshParamTunerLoad(SES_PT2OpenArgs, True, False, True) 'Me.OpenArgs Exit Sub err_Form_Load: MsgBox Err.description, vbCritical, "Error " & Err.Number & " Trapped (Form_Load)" Err.Clear Resume Next End Sub 'Refresh Screen Load Public Function RefreshParamTunerLoad(PTOpenArgs$, FromSES As Boolean, MouseBusy As Boolean, Gray As Boolean) As Boolean On Error GoTo err_RefreshParamTunerLoad Dim Passed As Variant, RetVal As Variant, LoadStep%, HaveTriedResumeNext As Integer, DoTL As Boolean '********** Const LoadSteps = 55 'Actual '********** DoCmdHourglassTrue If MouseBusy Then Call ShowGraphsBusy("MouseBusy") End If Form.KeyPreview = False FormIsLoaded = False sBtnProAllowClick = False Call UpdateLoading(Gray, 1) chkRestoreOptions.Value = True 'This could prevent goofy behavior when loading different wells sequentially AdvancedCursorTrackingOn = False CLNeedRefresh = True CL_IDCopied = 0 'just in case NeedSUMRefresh3DSB = False 'just in case Call sBtnPro.SetEnabledAndValue(tglsidACT, True, False) Call SetVisible("txtHeaderSummary", True) If txtACT.Visible = True Then Form.SetFocus txtACT.Visible = False End If RetVal = SysCmd(acSysCmdInitMeter, "Loading latest data...", LoadSteps) 'Process OperArgs LoadStep = 1 If FromSES Then Passed = Split(PTOpenArgs$, conSColon) wID = Passed(0) MBedsNum% = Passed(1) StratBlock% = Passed(2) Curve% = Passed(3) LwdNum = Passed(4) 'value of 0 means no LWD data for well FtUnits = CBool(Passed(5)) Curve2$ = Passed(6) WellName$ = Passed(7) MBDesc$ = Passed(8) End If cur_PTLoadedEID = "True" & wID & MBedsNum% cur_PTLoadedWID = wID cur_PTLoadedMB = MBedsNum% If FtUnits Then G3MinTVDRangeAllowedWhileDragging = 10# MyMRound = 0.05! 'round RSD to 0.05 ft when smoothing Derived Type Log; 2x for ACT; 4x for IG dblMyMRound = 0.05 MDPolyFillStepLength = 50# ShortUnit$ = " (ft)" 'actG12RSDWindow = 0.2 'was hardwired 4 x dblMyMRound; reset here or could get mixup if loaded well's units change Else 'meters G3MinTVDRangeAllowedWhileDragging = 10# * 0.3048 MyMRound = 0.02! 'round RSD to 0.02 m when smoothing Derived Type Log; 2x for ACT; 4x for IG dblMyMRound = 0.02 MDPolyFillStepLength = 15.24 ShortUnit$ = " (m)" 'actG12RSDWindow = 0.08 'was hardwired 4 x dblMyMRound; reset here or could get mixup if loaded well's units change End If RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep) 'Restore Default Settings If DefaultsManagerEnabled And wIDLevelDefaults And NeedDefaultsRefresh Then Call ManageDefaults("User", wID&) Else NeedDefaultsRefresh = True End If If (FromSES Or TLsDontMatch) Then DoTL = True LoadStep = LoadStep + 1: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep) 'Proceed (order is critical in most cases) LoadStep = LoadStep + 1: Call GetMBedsHeader: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray, 2) LoadStep = LoadStep + 1: Call GetStoreSP: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call GetStoreSPUnique: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: If DoTL Then Call GetStoreTL: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call GetStoreLWD: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: If DoTL Then Call UpdateTLNorm: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call GetMBedsDetail("Init"): RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call RefreshScreenFormVars: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call RefreshScreenNewF: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call RefreshFormCaption: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call RefreshHeaderSummary: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call RefreshRSDzCombos(True): RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call RefreshRSDCombos: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call UpdateRSDmatrix("All"): RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call UpdateSBList("Init"): RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call UpdateSBList("Select"): RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call InitializeGraphObjects: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call InitializeGraph12: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call UpdateGraph12Data("All"): RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call UpdateGraph12View: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call UpdateGraph1ScaleLimits: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call UpdateGraph2ScaleLimits: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call UpdateDefaultMDExtents: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call UpdateTVTs("All"): RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call UpdateSB_usds_Sync("All"): RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call InitializeGraph3: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call ManageGRIDS("Init"): RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call InitializeGraph5: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) 'need before RefreshVS LoadStep = LoadStep + 1: Call RefreshVS("Init", False): RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) 'need before ManagePROJ LoadStep = LoadStep + 1: Call ManagePROJ("Init"): RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) 'need before Graph3Data LoadStep = LoadStep + 1: Call UpdateGraph3Data("All"): RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call UpdateGraph3View: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call RefreshLSV("Init", FromSES): RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call UpdateGraph3ScaleLimits(True): RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call InitializeGraph4: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call UpdateGraph4Data("All"): RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call UpdateGraph4View: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call UpdateGraph4ScaleLimits(True): RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call UpdateGraph1HLA("Init"): RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call UpdateGraph2HLA("Init"): RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call UpdateGraph3VLA("Init"): RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call UpdateGraph3XAA: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call UpdateGraph3GA_Data: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call UpdateGraph3GA_View: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call UpdateGraph3IMG: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) 'LoadStep = LoadStep + 1: Call UpdateGraph3SUM("All"): RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep) 'MOVED TO BELOW - NEEDS TO BE AFTER RESIZE LoadStep = LoadStep + 1: Call UpdateGraph4VLA("Init"): RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call UpdateGraph4HLA("Init"): RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call UpdateSaveUndoSortGapIcons: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call ManageIG("Init"): RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) ' LoadStep = LoadStep + 1: Call RefreshVS("Init", False): RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) 'MOVED TO ABOVE - NEEDS TO PRECEDE ManagePROJ 'Wrap-up cmbSetActiveSB.Requery cmbSetActiveSB.Value = StratBlock% If SES_BlockZeroBeingCreated Then SES_BlockZeroBeingCreated = False Call SnapRSDExtentsToNewLimits2(2) 'Current 3DSB top half Call SnapRSDExtentsToNewLimits1(1) 'Landing View Call RefreshGraph12XScaleLimits(False, True, True, True) End If LStratBlock% = StratBlock% RefreshParamTunerLoad = True FormIsLoaded = True Call MyResize LoadStep = LoadStep + 1: Call SyncG34GraphWidths: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call SyncG35GraphWidths: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call RefreshVS: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call UpdateGraph3SUM("All"): RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) LoadStep = LoadStep + 1: Call RefreshApparentDip: RetVal = SysCmd(acSysCmdUpdateMeter, LoadStep): Call UpdateLoading(Gray) Form.KeyPreview = True FormIsLoaded = False 'b/c next PeGraph1.SetFocus tiggers lstSB_AfterUpdate... Call LeaveFocusOnXSec FormIsLoaded = True Call ShowGraphsBusy("ResetHandArrow") Call UpdateOncePerLoad Call UpdateOnceAfterFormLoad Call UpdateLoading(Gray, 3) Call Forms(SES_Desk).zzSES.Form.subformzXSecHeader.Form.UpdateSwitch2PT Me.TimerInterval = SES_NoClicksUntil DoCmd.Hourglass False Exit Function err_RefreshParamTunerLoad: If Err.Number = 7952 Then 'You made an illegal function call. If user clicks something it can mess with SysCmd Status meter, processing fails If Not HaveTriedResumeNext > LoadSteps Then ' HaveTriedResumeNext = HaveTriedResumeNext + 1 Resume Next Else MsgBox Err.description, vbCritical, "Error " & Err.Number & " Trapped (RefreshParamTunerLoad)" End If Else MsgBox Err.description, vbCritical, "Error " & Err.Number & " Trapped (RefreshParamTunerLoad)" End If RefreshParamTunerLoad = False End Function