I rebuilt the entire application yesterday with FWH 2310 and now when calling the program, it fails on an "array access". This is a pretty random issue, and there were no coding changes.
I went back to 2306 and it works perfectly.
So "something" in the new FWH release has "broken" active x. I wish I could be more specific, but whatever changes may have been made might be checked.
Here is where it fails with 2310 but not 2306 or ANY previous FWH version. It is the :ViewType = line. The error says array access ...
- Code: Select all Expand view RUN
- METHOD BuildCalex() CLASS MpCal
local oErr
#ifdef __HARBOUR__
#ifdef __XHARBOUR__
TRY
IF lBuild64
::oCalex := tActiveX():New( ::oPanelCalex, "Codejock.CalendarControl.20.3.0" )
ELSE
::oCalex := tActiveX():New( ::oPanelCalex, "Codejock.CalendarControl.20.3.0" )
ENDIF
#ELSE
TRY
IF lBuild64
::oCalex := thActiveX():New( ::oPanelCalex, "Codejock.CalendarControl.20.3.0" )
ELSE
::oCalex := thActiveX():New( ::oPanelCalex, "Codejock.CalendarControl.20.3.0" )
ENDIF
#endif
#endif
CATCH oErr
MsgStop( "Missing installation Components", "Aborting" )
Quit
END
with object ::oCalex
:VisualTheme = ( xtpCalendarThemeOffice2007 )
:bOnEvent = { | event, aParms | ::xTrmCalTriggeredEvents( Event, aParms ) }
:SetDataProvider( "Provider=custom" )
:DataProvider:open()
:ShowCaptionBar = ( .f. )
:ShowCaptionBarSwitchViewButtons = ( .f. ) //turn off switch from day, week, month view on capbar
:ViewType = ( xtpCalendarDayView )
:EnableToolTips(.t.)
:DayView:TimeScaleMinTime = ( [7:00:00 AM] )
:DayView:TimeScaleMaxTime = ( [7:00:00 PM] )
:DayView:TimeScale = ( 15 )
:Options:WorkDayStartTime = ( [7:00:00 AM] )
:DayView:ScrollToWorkDayBegin() //scroll the view to the work day starting time
:Options:DayViewTimeScaleShowMinutes = ( .t. )
:EnableReminders( .t. )
:RemindersUpdatePeriod = ( [12:10:00 AM] ) // Sample has #12:10:00 AM# Call is as Date
end
::oPanelCalex:oClient = ::oCalex
RETURN self
