0 0 serial 0 0 Default %Library.TMFormClass 0 EH.Makova.EventCtrlr 0 0 0 0 0 0 0 %Library.TMForm 0 0 "" 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMPanel 0 0 "" 0 0 0 0 0 %TMPanel 0 0 "" 0 0 0 0 0 %Library.Integer 0 0 5 0 0 0 0 0 %Library.String 0 0 1 0 0 0 0 %TMButton 0 0 "" 0 0 0 0 0 %TMButton 0 0 "" 0 0 0 0 0 %TMButton 0 0 "" 0 0 0 0 0 %TMButton 0 0 "" 0 0 0 0 0 %TMButton 0 0 "" 0 0 0 0 0 %TMButton 0 0 "" 0 0 0 0 0 %TMButton 0 0 "" 0 0 0 0 0 %TMButton 0 0 "" 0 0 0 0 0 %TMButton 0 0 "" 0 0 0 0 0 %TMButton 0 0 "" 0 0 0 0 0 %TMButton 0 0 "" 0 0 0 0 0 %TMButton 0 0 "" 0 0 0 0 0 %TMButton 0 0 "" 0 0 0 0 0 %TMButton 0 0 "" 0 0 0 0 0 %TMButton 0 0 "" 0 0 0 0 0 %TMButton 0 0 "" 0 0 0 0 0 %TMComboBox 0 0 "" 0 0 0 0 0 %TMComboBox 0 0 "" 0 0 0 0 0 %TMComboBox 0 0 "" 0 0 0 0 0 %TMCheckBox 0 0 "" 0 0 0 0 0 %TMCheckBox 0 0 "" 0 0 0 0 0 %TMCheckBox 0 0 "" 0 0 0 0 0 %TMCheckBox 0 0 "" 0 0 0 0 0 %TMCheckListBox 0 0 "" 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMListView 0 0 "" 0 0 0 0 0 %TMMemo 0 0 "" 0 0 0 0 0 %TMTimer 0 0 "" 0 0 0 0 0 %TMTimer 0 0 "" 0 0 0 0 0 %TMTreeView 0 0 "" 0 0 0 0 0 %TMEdit 0 0 "" 0 0 0 0 0 %TMEdit 0 0 "" 0 0 0 0 0 %TMEdit 0 0 "" 0 0 0 0 0 %TMEdit 0 0 "" 0 0 0 0 0 %TMEdit 0 0 "" 0 0 0 0 0 0 0 code initvalue:%String 0 %Status 0 0 0 code Args:%String 0 0 0 0 code 0 0 ; HotTrackStyles = [] ; RowSelect = True ; TabOrder = 12 ; ViewStyle = vsReport ; Visible = False ; end ; object mmoOutput: CMemo ; Left = 15 ; Top = 7 ; Width = 49 ; Height = 41 ; Color = cl3DLight ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Courier New' ; Font.Style = [] ; ParentFont = False ; ReadOnly = True ; ScrollBars = ssBoth ; TabOrder = 9 ; Visible = False ; WordWrap = False ; end ; object tmrEQs: CTimer ; OnTimer = tmrEQsTimer ; Left = 414 ; Top = 447 ; end ; object tmrRedirect: CTimer ; Enabled = False ; Interval = 2500 ; OnTimer = tmrRedirectTimer ; Left = 704 ; Top = 453 ; end ;end ]]> 0 0 code Args:%String 0 0 0 0 code 0 0 0 0 code initvalue:%String 0 0 0 0 code initvalue:%String 0 %Library.Status 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code 0 0 0 0 code 0 0 0 0 code 0 0 0 0 code Args:%String 0 0 0 Do .. Set tmpItem.Data=tmpItem.Data-1 .. If tmpItem.Data=0 Do ... Set Repaint=1 . Else If tmpItem.Data<0 Do Quit .. Set tmpItem.Data=tmpItem.Data+1 .. If tmpItem.Data=0 Do ... Set Repaint=1 ... Set DelItems=DelItems_$LB(tmpItem) . If tmpItem.ImageIndex=0 Do ;verwijderen... .. If tmpItem=..tvEQs.Selected Do ... Set ..clbSubscribedMsgs.Tag=0 ... Do ..clbSubscribedMsgs.Clear() .. Set tmpItem.Data=-..SwitchDelay .. Set Repaint=1 . Set tmpItem.ImageIndex=0 Set ..lblECtrlrs.Caption="Event controllers && queues: "_Cnt New ParentNode For Loop=1:1:$LL(DelItems) Do . Set tmpItem=$LI(DelItems,Loop) . Set ParentNode=tmpItem.ParentNode . Kill ..aEQs(ParentNode.Text,tmpItem.Text) ;$J+eqID . Do tmpItem.Delete() . If ParentNode.Count=0 Do .. Kill ..aEQs(ParentNode.Text) ;$J .. Do ParentNode.Delete() Set:(DelItems'="") Repaint=1 Do ..dCOMPWRITEtvEQs() Do:(Repaint) ..tvEQs.Repaint() ;End of user code s Args=$lb(Sender) q ]]> 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 Do . Set:($LF(State,"cdsSelected")) Canvas.Font.Color=$$$clMaroon ;Wit op lime is niet zo duidelijk . Set Canvas.Brush.Color=$$$clLime /* If Node.Level=0 Do . If Node.Expanded="True" Do .. Do Canvas.TextOut($LI(Rect,1)-6,$LI(Rect,2),"- "_Node.Text) . Else Do .. Do Canvas.TextOut($LI(Rect,1)-6,$LI(Rect,2),"+ "_Node.Text) Else Do . Do Canvas.TextOut($LI(Rect,1)-6,$LI(Rect,2),Node.Text) */ Set DefaultDraw="True" ;End of user code s Args=$lb(Sender,Node,State,DefaultDraw) q ]]> 0 3 %Library.CacheSerialState list "%Library.TMFormClass" Address Form Button1 TreeView1 btnRefresh tvEQs GroupBox1 chkSelectedOnly clbSubscribedMsgs btnRefreshSubscrMsgs CheckBox1 btnRefreshEQs chkAutoRefreshEQs Label1 Label2 tmrEQs lblSubscrMsgs lblECtrlrs SwitchDelay btnAddMsg Label3 txtMsg txtSubMsg txteqID Label4 Label5 Label6 txtSndMsg txtSndSubMsg txtSndeqID Label7 Label8 Panel1 txtSndIsPost txtSndParams cbbSendType chkSndIsPost EventCtrlr btnSend ComboBox1 cbbSndeqID btnRefreshSndeqIDs Label9 Panel2 Button2 btnShowEQ mmoOutput btnClose btnShowMR btnKillEQ btnKillMR Label10 Label11 btnSelKillEQ btnSelKillMR btnSelShowEQ btnSelShowMR chkTrapMsgs chkHoldMsgs btnHoldMsgs CheckBox2 Edit1 txtRedirecteqID chkRedirecteqID chkRemoveOrig tmrRedirect btnClearQueue Label12 chkToMemo mmoMsgs btnShowMMOMsgs btnClearMMOMsgs cbbRedirecteqID btnSubscribeOnAll ListView1 lvMsgs