Compile Function MITCHEM_TEST_Events(CtrlEntId, Event, @PARAMS)
#pragma precomp SRP_PreCompiler

#window MITCHEM_TEST

Declare function Get_Property, Reactor_Services, Database_Services
Declare subroutine Set_Property, RList, Msg , Reactor_Services, End_Window, Post_Event

$Insert APP_INSERTS
$Insert EVENT_SETUP
$Insert REACTOR_EQUATES
$insert logical
$Insert RLIST_EQUATES
$Insert REACTOR_MODES_EQUATES
$Insert REACT_MODE_NG_EQUATES
$Insert MSG_EQUATES

// Update the arguments so that the OpenInsight OLE event will treate the ActiveX event as a native event handler.
If Event EQ 'OLE' then
    Transfer Event to OIEvent
    Transfer Param1 to Event
    Transfer Param2 to Param1
    Transfer Param3 to Param2
    Transfer Param4 to Param3
    Transfer Param5 to Param4
    Transfer Param6 to Param5
    Transfer Param7 to Param6
    Transfer Param8 to Param7
end

GoToEvent Event for CtrlEntId else
    // Event not implemented
end

Return EventFlow or 1


Event WINDOW.CREATE(CreateParam)
	debug
	Set_Property(@Window, 'BACKCOLOR', -2)
	Color     = Get_Property(@Window:'.EB_SPEC_SUBSTRATE', 'BACKCOLOR')
	//Set_Property(@Window:'.EB_SPEC_SUBSTRATE', 'BACKCOLOR', -2)
	Color     = Get_Property(@Window:'.EB_SPEC_SUBSTRATE', 'BACKCOLOR')
    EventFlow = 1
	
End Event
