// Bestand: UIDebugCNTs.INC #include vhLib.Macro #include EventQueueCNTs //================================================================================ // Constanten voor het aanroepen van de klasse UI.Debug.OutputWin.MainForm //================================================================================ #define IP4OLD $P($G(ClientIP,MApplication.GetClientIP()),".",4) #define IP4 $P($S($G(%ClientIP)'="":%ClientIP, $G(ClientIP)'="":ClientIP, 1:$S($D(MApplication):MApplication.GetClientIP(), 1:"9999")),".",4) #define DBGeqID "Debug-OW:"_$$$IP4 #define DBGeqType "DBG"_$$$IP4 #define DBGstMSG "MSG" #define DBGstFMT "FMT" #define DBGstCLS "CLS" #define W(%p1) Do ##class(EH.Makova.EventQueue).AddMsg($$$DBGeqID,$$$DBGeqType,$$$DBGstMSG,$LB(%p1,0),$$$stPublic,1) #define WL(%p1) Do ##class(EH.Makova.EventQueue).AddMsg($$$DBGeqID,$$$DBGeqType,$$$DBGstMSG,$LB(%p1,1),$$$stPublic,1) #define WFMT(%p1,%p2) Do ##class(EH.Makova.EventQueue).AddMsg($$$DBGeqID,$$$DBGeqType,$$$DBGstMSG,$LB(%p1,0,%p2),$$$stPublic,1) #define WLFMT(%p1,%p2) Do ##class(EH.Makova.EventQueue).AddMsg($$$DBGeqID,$$$DBGeqType,$$$DBGstMSG,$LB(%p1,1,%p2),$$$stPublic,1) #define WCUST(%p1,%p2,%p3) Do ##class(EH.Makova.EventQueue).AddMsg($$$DBGeqID,$$$DBGeqType,$$$DBGstMSG,$LB(%p1,%p2,p3),$$$stPublic,1) #define SETFMT(%p1) Do ##class(EH.Makova.EventQueue).AddMsg($$$DBGeqID,$$$DBGeqType,$$$DBGstFMT,$LB(%p1),$$$stPublic,1) #define SETFMT(%p1) Do ##class(EH.Makova.EventQueue).AddMsg($$$DBGeqID,$$$DBGeqType,$$$DBGstFMT,$LB(%p1),$$$stPublic,1) #define CLS Do ##class(EH.Makova.EventQueue).AddMsg($$$DBGeqID,$$$DBGeqType,$$$DBGstCLS,"",$$$stPublic,1) ; Voluit: $$$WCUST(,,,) = Do ##class(EH.Makova.EventQueue).AddMsg($$$DBGeqID,$$$DBGeqType,$$$DBGstMSG,$LB("Deze Tekst",1,"B-Blue"),$$$stPublic,1) ; ===============================================================================================