47 lines
1.2 KiB
Plaintext
47 lines
1.2 KiB
Plaintext
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
|