serial KeyCodesCNTs,%ApiCNTs Default %Library.TMFormClass %Library.TMForm %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMPanel %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMComboBox %TMComboBox %TMCheckBox %TMCheckBox UI.Lib.Dlg.TListView %TMLabel %TMLabel %TMLabel %TMMemo %Library.String %Library.String %Library.String %Library.String %Library.Integer -1 %Library.Integer 0 %Library.String %Library.Integer -1 %Library.Integer 0 %Library.String %TMPopupMenu %TMPopupMenu %TMPopupMenu %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMPanel %TMPanel %TMPanel %TMRadioButton %TMRadioButton %TMRadioButton %TMRadioButton %TMRichEdit %TMSaveDialog %TMShape %TMEdit %TMEdit %TMEdit initvalue:%String cache 0 %Status document literal cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal cache 0 document literal initvalue:%String cache 0 MApplication document literal initvalue:%String cache 0 %Library.Status 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 " opties="K|TBW|U">tekst of tekstblok ;Compacte vorm : >TekstIntern ;Checken of selectie de begin en eindtag bevat New CharLoop,InStr,EndOfBeginTagPos Set InStr=0 Set EndOfBeginTagPos=-1 ;op zoek gaan naar afsluiter pBeginEndTag, let wel het teken kan ook voorkomen in intern/opties, weliswaar ts quotes For CharLoop=1:1:$L(Selection) Do Quit:(EndOfBeginTagPos'=-1) . If $E(Selection,CharLoop)="""" Do .. Set InStr='InStr . If 'InStr && ($E(Selection,CharLoop)=..pBeginEndTag) Do .. Set EndOfBeginTagPos=CharLoop ;afsluiter niet gevonden? gewoon de originele selectie teruggeven Quit:(EndOfBeginTagPos=-1) Selection New Tekst,Attrib,Intern,Params Set Tekst=$E(Selection,EndOfBeginTagPos+1,999999) Set Attrib=$E(Selection,1,EndOfBeginTagPos-1) Set Intern=$P($P(Attrib, "intern=""",2), """") Set Params=$P($P(Attrib, "opties=""",2), """") ;Indien intern leeg is, dan bevat Tekst de interne waarde en kan de selectie gewoon wo teruggegeven Quit:(Intern="") Selection New Type,Groep Set Type=$P(Params,..pParamSep,1) Set Groep=$P(Params,..pParamSep,2) Quit Attrib_..pBeginEndTag_##class(Res.Vertaling).GetVertalingPlus(Groep,Intern,Type,"N",,1) ]]> Args:%String cache 0 document literal Args:%String 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 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 LineNr:%Library.Integer cache 0 document literal Msg:%Library.String,Type:%Library.Integer=$$$MBICONINFORMATION cache 0 document literal FileName:%Library.String,GoToLineNr:%Library.Integer=-1,FindItemInLine:%Library.Boolean=0 cache 0 %Library.Boolean document literal Group:%Library.String cache 0 document literal Type:%Library.String cache 0 document literal Selection:%Library.String cache 0 document literal " opties="K|TBW|U">tekst of tekstblok ;Compacte vorm : TekstIntern ;Checken of selectie de begin en eindtag bevat If ($E(Selection,1,BeginLen)=..pBeginTag) && ($E(Selection,SelLen-EndLen+1,SelLen)=..pEndTag) Do . Set Selection=$E(Selection,BeginLen+1,SelLen-EndLen) . New CharLoop,InStr,EndOfBeginTagPos . Set InStr=0 . Set EndOfBeginTagPos=-1 . ;op zoek gaan naar afsluiter pBeginEndTag, let wel het teken kan ook voorkomen in intern/opties, weliswaar ts quotes . For CharLoop=1:1:$L(Selection) Do Quit:(EndOfBeginTagPos'=-1) .. If $E(Selection,CharLoop)="""" Do ... Set InStr='InStr .. If 'InStr && ($E(Selection,CharLoop)=..pBeginEndTag) Do ... Set EndOfBeginTagPos=CharLoop . If EndOfBeginTagPos=-1 Do Quit .. Set ..txtIntern.Text="" .. Set ..mmoTekst.Lines.Text=Selection .. Do ..rLocateType("") .. Do ..rLocateGroup("") .. Do rpsSelectCapital("") . New Tekst,Attrib . Set Tekst=$E(Selection,EndOfBeginTagPos+1,999999) . Set Attrib=$E(Selection,1,EndOfBeginTagPos-1) . Set Intern=$P($P(Attrib, "intern=""",2), """") . If Intern="" Do .. Set ..txtIntern.Text=Tekst .. Set ..mmoTekst.Lines.Text="" . Else Do .. Set ..txtIntern.Text=Intern .. Set ..mmoTekst.Lines.Text=Tekst . New Params . Set Params=$P($P(Attrib, "opties=""",2), """") . Do ..rLocateType($P(Params,..pParamSep,1)) . Do ..rLocateGroup($P(Params,..pParamSep,2)) . Do rpsSelectCapital($P(Params,..pParamSep,3)) . Do ..rSelectPlainText($P(Params,..pParamSep,4)) Else Do . Set ..txtIntern.Text="" . Set ..mmoTekst.Lines.Text=Selection . Do ..rLocateType("") . Do ..rLocateGroup("") . Do rpsSelectCapital("") . Do ..rSelectPlainText("") Quit ;------------------------------------------------------------------------------ rpsSelectCapital(Capital) If Capital="" Do . Set ..rbFormatNone.Checked="True" Else If Capital="U" Do Quit . Set ..rbFormatUC.Checked="True" Else If Capital="L" Do Quit . Set ..rbFormatLC.Checked="True" Else If Capital="F" Do Quit . Set ..rbFormatFC.Checked="True" Quit ]]> PlainText:%String cache 0 document literal NoTranslation:%Library.Boolean=0 cache 0 document literal 0 Do . Set Type=$P(..cbbTransType.Items.GetStrings(..cbbTransType.ItemIndex),": ",1) . Set $P(ParamStr,..pParamSep,1)=Type New Group If ..cbbTransGroup.ItemIndex>0 Do . Set Group=$P(..cbbTransGroup.Items.GetStrings(..cbbTransGroup.ItemIndex),": ",1) . Set $P(ParamStr,..pParamSep,2)=Group New PlainText If ..pmiPlainText.Checked="True" Do . Set PlainText="T" Else If ..pmiHTML.Checked="True" Do . Set PlainText="H" Else Do . Set PlainText="" Set:(PlainText'="") $P(ParamStr,..pParamSep,4)=PlainText New Capital If ..rbFormatNone.Checked="True" Do . Set Capital="" Else If ..rbFormatFC.Checked="True" Do . Set Capital="F" Else If ..rbFormatLC.Checked="True" Do . Set Capital="L" Else If ..rbFormatUC.Checked="True" Do . Set Capital="U" Set:(Capital'="") $P(ParamStr,..pParamSep,3)=Capital If NoTranslation Do . Set Selection=..mmoTekst.Lines.Text Else Do . If ..mmoTekst.Lines.Text="" Do .. Set Selection=Selection_$S(ParamStr="":"",1:" opties="""_ParamStr_"""")_..pBeginEndTag_..txtIntern.Text_..pEndTag . Else Do .. Set Selection=Selection_$S(ParamStr="":"",1:" opties="""_ParamStr_"""")_..pBeginEndTag_..mmoTekst.Lines.Text_..pEndTag Set ..reSource.SelText=Selection Set ..reSource.SelStart=OrigSelStart Set ..reSource.SelLength=$L(Selection) Quit ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal %Library.CacheSerialState "%Library.TMFormClass" Address Form pnlBottom pnlTop reSource Button1 ComboBox1 ComboBox2 Edit1 Label1 Label2 Label3 Label4 lblFileName shExample ComboBox3 ComboBox4 Edit2 Label5 Label6 Label7 Label8 Panel1 RadioButton1 RadioButton2 RadioButton3 txtIntern Button2 Button3 Button4 Panel2 RadioButton4 cbbTransGroup cbbTransType CheckBox1 CheckBox2 btnChangeSelection btnReadSelection chkWordWrap Label9 chkAutoSelectionRead btnClose btnSave rbFormatFC rbFormatLC rbFormatNone rbFormatUC txtLineNr pBeginTag pEndTag pParamSep pFileName btnHighlight btnNoTransItem Label10 pSearchPos txtSearch pItemPos btnNextItem btnPrevItem pmSave pmiSave pmiSaveAs sdSaveAs pmSource pmiCopy pmiCut pmiPaste pmiRemove pmiSelectAll pmiSep1 pmiSep2 pmiUndo lblLineNr pFormHandle pREHandle btnLookUp pfrmLookUp frmLookUp Label11 mmoTekst btnInternToTekst btnTekstDefault pBeginEndTag chkPlainText pStdPlainText lblTekst pmPlainText pmiHTML pmiPlainText pmiTextDefault pnlTrans