serial KeyCodesCNTs,UIDebugCNTs Default %Library.TMFormClass 62073,41637.55305 61044,61986 0 %Library.String 1 1 %Library.Integer %Library.Integer EH.Makova.EventCtrlr %Library.String %Library.TMForm Deze laatste property volgt niet bij het minimalizeren van de MApplication. ]]> %Library.Boolean %TMLabel %Library.Boolean 0 %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String 0 %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.List %TMButton %TMButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMButton %TMCheckBox %TMLabel %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMPopupMenu %TMPopupMenu %TMPopupMenu %TMPanel %TMPanel %TMPanel %TMRichEdit initvalue:%String cache 0 %Status document literal Args:%String cache 0 document literal uitleg Makova-Support ;Set ..Form.WindowState=$$$wsMinimized Set ..FormIsMinimized=1 Quit ]]> Args:%String cache 0 document literal sMsg:%String,NewLine:%Integer=1,Job:%String cache 0 document literal cache 0 document literal lbRTF:%List cache 0 document literal cache 0 %Library.List document literal sMsg:%String cache 0 %Library.Boolean document literal $$$MaxString) ;New TLen ;Set TLen=$L(..reOutput.Text) ;If TLen'<$$$MaxString Do ;. ;Do MApplication.MessageBeep() ;Else Do ;. Do:(TLen+$L(sMsg)'<$$$MaxString) MApplication.MessageBox("Maximum lengte van de tekst is bereikt.") ]]> cache 0 document literal cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal 0 Set ..reOutput.SelText="" Else Do . If Shift=$LB($$$ssShift) Do ..reOutput.Clear() . Else Do ..btnClearMsgsClick($LB(Sender)) Quit ]]> Args:%String cache 0 document literal cache 0 document literal Msg:EH.Lib.Msg cache 0 document literal Args:%String cache 0 document literal blnPaused:%Boolean cache 0 document literal Args:%String cache 0 document literal 0 Do ;. Do ..reOutput.Lines.Add("Tijd vanaf BPM: "_$$RestartTimer^vhLib) Quit ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal initvalue:%String cache 0 MApplication document literal cache 0 document literal cache 0 document literal cache 0 document literal initvalue:%String cache 0 %Library.Status document literal msg:%String cache 0 %Library.String document literal W") Quit:(..SgQouteMsgWhen=1) msg ; Never Quit:(..SgQouteMsgWhen=3)&&($L($$$TRIM(msg))>0) msg ; Only when chars invisible ; Else ;Do MApplication.MessageBox("test Quote") new ChrQuote Set ChrQuote=$S($L(..SgQouteMsgChar):..SgQouteMsgChar, 1:"""") Quit:(..SgQouteMsgWhen=2)||(..SgQouteMsgWhen=3) ChrQuote_msg_ChrQuote ; Else new AddQoutes If ..SgQouteMsgWhen=4 Do . Xecute "Set AddQoutes=("_..SgQouteMsgCondition_")" Quit $S(AddQoutes:ChrQuote_msg_ChrQuote, 1:msg) ]]> Type:%String,Param:%String,Job:%String cache 0 document literal Type,Param:%String cache 0 document literal AttribOref:%TMTextAttributes cache 0 document literal Setting:%String,NewVal:%String cache 0 document literal 4):NewVal, 1:1) Quit ;----------------------------------------------------------------------------- ssvQouteMsgChar Set ..SgQouteMsgChar=NewVal Quit ;----------------------------------------------------------------------------- ssvQouteMsgCondition Set ..SgQouteMsgCondition=NewVal Quit ;----------------------------------------------------------------------------- ssvRestoreOnMsg Set ..SgRestoreOnMsg=NewVal Quit ;----------------------------------------------------------------------------- ssvStayOnTop Set ..SgStayOnTop=NewVal Set ..Form.FormStyle=$S(..SgStayOnTop:"fsStayOnTop", 1:"fsNormal") Quit ;----------------------------------------------------------------------------- ssvWordWrap Set ..SgWordWrap=NewVal Set ..reOutput.WordWrap=$$$CBoolTF(NewVal) Quit ;----------------------------------------------------------------------------- ssvTest Do MApplication.MessageBox("Test: "_NewVal) Quit ;----------------------------------------------------------------------------- /* ssv... Set ..Sg=NewVal ;Do Quit ;----------------------------------------------------------------------------- */ ]]> cache 0 document literal cache 0 document literal cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal 0 Do . Set ..reOutput.SelStart=0 . Set ..reOutput.SelLength=$F(..reOutput.Text_$$$CRLF,$$$CRLF,ClearChars)-1 . Set ..reOutput.SelText="..."_$$$CRLF Quit ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal 0 Set ..reOutput.SelText="" Else Do ..btnClearMsgsClick($LB(Sender)) ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal 0 Do ..reOutput.CopyToClipboard() ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal %Library.CacheSerialState "%Library.TMFormClass" Address Form BaseX BaseY Button1 EventCtrlr FixedFmtID FormIsMinimized Label1 Moving MsgType Panel1 RTFColor RTFFontName RTFSize RTFStyle SgClearOnRestore SgCloseViaEsc SgCloseWarning SgFullViewOnCreate SgQouteMsgChar SgQouteMsgCondition SgQouteMsgWhen SgRestoreOnMsg SgStayOnTop SgWordWrap SpeedButton1 UnprocessedData btnClearMsgs btnClose btnMenuCmds btnMenuFont btnQuitAppend btnStartSMWrap chkClipboard lblStatus pmiFontApplyDFL pmiFontBold pmiFontItalic pmiFontSep1 pmiFontSetDFL pmiTlClear pmiTlCopy pmiTlExit pmiTlRemoveAll pmiTlSMWrap pmiTlSelectAll pmiTlSep1 pmiTlSep2 pmiTlSep3 pmiTlSettings pmiTlToggleView pmnuCmds pmnuFont pmnuFormats pmuTools pnlCommands pnlResizeOutput reOutput btnContinu pnlMoreMsgs pmiSendText sgShowJobInfo SgShowJobInfo pmiPauseTimer